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1. PURPOSE 
U-l INTENT 

TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821 — 2540 
ATTACHMENT. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

THE PROGRAM IS RUN WITH A DIAGNOSTIC MONITOR. 
THE PROGRAM ASSUMES THAT THE CPU £ CHANNEL ARE OPERABLE. 
THE PROGRAM ASSUMES THAT I/O COMMANDS ARE OPERABLE. 
THE PROGRAM IS RELOCATABLE. 

2.2 EQUIPMENT REQUIREMENTS 

PROGRAM LOADING DEVICE 
HARD COPY OUTPUT DEVICE 
CPU - OPERABLE 
CHANNEL - OPERABLE 
8K MINIMUM STORAGE 
2540 READER/PUNCH 

2821 CONTROL UNIT WITH FOLLOWING REQUIREMENTS- 
CONTROL CIRCUITS FUNCTION PROPERLY. 
ERROR CHECKING CIRCUITS FUNCTION PROPERLY. 
READER 6 PUNCH CAN BE MADE READY 

2.3 PROGRAM IDENTIFICATION NUMBERS 

TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS 
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING ID NUMBERS 
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE. 



F805 



F806 



OBJECT DECKS AND ASSEMBLER PROGRAM 
LISTINGS FOR ROUTINE OVERLAYS 03 
AND 04. 



OBJECT DECK AND ASSEMBLER PROGRAM 
LISTING FOR ROUTINE OVERLAY 05. 



»*NOTE*« 



THE SEARCH NUMBER FOR THIS PROGRAM IS 604— 
805 AND 806 CAN NOT BE USED. 



. 3. USE PROCEDURE 



3.1 LOADING 



STANDARD VIA DM AS DESCRIBED IN THE USERS GUIDE. 

SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY 
CONCEPT, ALL ROUTINES MUST BE LOADED AND RUN IN ID NUMBER 
SEQUENCE. 

3.2 OPERATING 

3.2.1 GENERAL OPERATING 

THE READER AND PUNCH MUST BE MADE READY BEFORE RUNNING 
THIS PROGRAM. THE PUNCH MUST BE LOADED WITH AT LEAST 
20 BLANK CARDS PER PROGRAM PASS. 

3.2.2 SENSE SWITCH USAGE — COMMON TO ALL ROUTINES — 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE 

OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS 
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN 
TIME. THE SWITCH BITS ARE ZERO WHEN OFF, AND ONE WHEN ON. 



FUNCTION 



SENSE I 
SW. I 

I 

0 I OFF— PROCEED NORMALLY 



I ON — -SHORT LOOP ON START I/O 
-I — — » 



TEST I/O 



1 I OFF — PROCEED NORMALLY 

I ON— ENTER UTILITY SCOPE ROUTINE 
1 , _ .. . . — . _„ 

2 I OFF— PROCEED NORMALLY 

I ON — LOG OUT DATA ACCUMULATION TABLE 

6 I OFF — PROCEED NORMALLY 

I ON— PRINT SECTION TITLE 



SECTION I BYTE 

OR I AND 
ROUTINE I BIT 



— 1 - 

ENTIRE I X004 
SECTION I 0 

I X004 

n I 1 

I X004 
t, I 2 

I X004 
tt 16 



ASSIGNMENT 



I 

ID NUMBER I 
I 

F804» I DESCRIPTION OF COMPLETE PROGRAM 

I WHICH INCLUDES ALL ROUTINE OVERLAYS. 1 

. . , , , 

F804 I OBJECT DECKS AND ASSEMBLER PROGRAM 

I LISTINGS FOR ROUTINE OVERLAYS 

I 01 AND 02. 



3.2.3 UTILITY ROUTINE SET UP PROCEDURES 

THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT 
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS 
RESULTS AND LOG OUT PRINTOUT OF EACH ROUTINE. THIS 
ROUTINE WILL BE ENTERED AT THESE TIMES IF SECTION SENSE 
SWITCH 1 IS SET TO 1. 

WHEN THIS ROUTINE IS ENTERED, AN OUTPUT MESSAGE WILL 
INFORM THE C.E. TO PRESS CONSOLE STOP, THEN ENTER THE 
SCOPING DATA. THIS DATA IS TO BE ENTERED, IN HEX, VIA 
THE CONSOLE SWITCHES AS INDICATED BELOW. 

BYTE 0 12 3 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 
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BIT 012,34567 01234567 01234567 01234567 



I III 
GRA I I-OP CODEI ) I ) — SLI FLAG, BIT 2 

I * I SEE I * I * — SKI P FLAG, BIT 3 

I I 6.1 I I 

I „ i... _ I • 1 

I I 

GRB I— CONTENTS OF DATA FIELD- — I 

I I 

j« I- 1— — - 1 

I II I 

GRC i— CCW COUNT— I II/O ADDRESS- 1 

I £ I I 



NOTES-^-THE FOUR BYTES OF DATA ENTERED IN GRB WILL 
BE RIPPLED THROUGHOUT THE CCW DATA FIELD. 

— IF THE CCW COUNT EXCEEDS 180 BYTES, THE ROUTINE 
WILL FORCE IT TO 180* 

— THE MAIN STORAGE LOCATIONS OF PERTINENT FIELDS 
USED BY THIS ROUTINE ARE LISTED BELOW. X DENOTES 
THE CONTENTS OF GENERAL REGISTER 15. 

SIO INSTRUCTION — X6C6 THRU X6C9 

CAW — X048 THRU X04B 

CCW — X0E8 THRU XOEF 

DATA FIELD — X234 THRU X2E7 

AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD 
SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING 
CONSOLE START • 

1. SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTED 
OP IN A TIGHT START I/O - TEST I/O LOOP. 

2. SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE 
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE 
WILL PERFORM THE SELECTED OP ONCE, THEN REQUEST NEW 
SCOPING DATA. 

3. SET SECTION SENSE SWITCHES 0 AND 1 TO ZERO. IN 
THIS CASE, THE SELECTED OP WILL NOT BE PERFORMED, 
AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR. 

THE C.E. CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING 
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0 
AND 1 TO ZERO, THEN PRESS CONSOLE START* 

3.3 HALTS 

3.3.1 NORMAL HALTS 

NONE 

3.3*2 ERROR HALTS —COMMON TO ALL ROUTINES— 

THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE 
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR. 

3*3.3 SPECIAL HALTS —COMMON TO ALL ROUTINES 

THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS 
IF THE CORRESPONDING SENSE SWITCHES ARE SET. 

HALT AFTER LOG OUT OF ACCUMULATED DATA 

IF THE OPERATOR REQUESTS THE LOG OUT OF THE ACCUMULATED 
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DATA, THE PROGRAM WILL HALT AFTER THE LOG OUT. IN 
ORDER TO CONTINUE, THE CONSOLE INTERRUPT KEY MUST BE 
DEPRESSED. 

HALT TO SET UP INFORMATION FOR UTILITY ROUTINE. 

IF THE OPERATOR REQUESTS TO USE THE BUILT-IN UTILITY 
ROUTINE, THE PROGRAM WILL LOOP TO WAIT FOR THE C.E* TO 
PRESS CONSOLE STOP —REFER TO SECTION 3.2.3 FOR DETAILS 
CONCERNING THE BUILT-IN UTILITY ROUTINE. 

3.4 TERMINATION 

THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA 
MONITOR CALL SVC 06* 

4. PRINTOUTS 

4.1 TITLE PRINTOUTS 

THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE 
SWITCH 06 IS SET TO 1. 

-2821 SCAN/2540 ATTACHMENT, CHANNEL REGISTER FLT 
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 01 

-2821 SCAN/2540 ATTACHMENT, CONTROL PROGRAM 



ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 02. 



-2821 SCAN/2540 ATTACHMENT, BUFFER ADDRESSING FLT 
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 03. 



-READ XL ATE FLT- 



ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 04. 



-PUNCH XL ATE FLT— 



ABOVE PRINTOUT IS THE TITLE PRINTOUT FOR ROUTINE OVERLAY 05. 

4.2 INSTRUCTIONS TO THE OPERATOR — COMMON TO ALL ROUTINES— 

-I/O ADDR XXX CAW YYYYYYYY GOT CC1 CSW STATUS 0200 SNS 40- 
— MAKE THIS UNIT RDY WITH BLANK CARDS- 
ABOVE MESSAGE WILL BE PRINTED IF INTERVENTION REQUIRED IS 
ENCOUNTERED WHEN TRYING TO EXECUTE AN I/O OPERATION. 
XXX DEFINES THE UNIT ADDRESS AND Y — Y DEFINES THE CHANNEL 
ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO 
ALLOW THE UNIT TO BE MADE READY. THE MESSAGE WILL BE REPEATED 
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED. 

4.3 ERROR MESSAGES 

4.3.1 ERROR MESSAGES COMMON TO ALL ROUTINES 

-I/O ADDR XXX CAW YYYYYYYY GOT CC 0 BUT NO INTERRUPT- 
ABOVE MESSAGE WILL BE PRINTED IF NO I/O INTERRUPT OCCURS 
WITHIN 10 SECONDS OF RECEIVING CONDITION CODE 0 TO AN 
I/O OPERATION. XXX DEFINES THE UNIT ADDRESS AND Y— Y 
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DEFINES THE CHANNEL ADDRESS WORD DATA. THE PROGRAM 
WILL RETRY THE I/O OPERATION. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC U CSW STATUS WW SNS 11- 

ABOVE -MESSAGE WILL BE PRINTED WHEN UNEXPECTED UNIT OR 
CHANEL STATUS IS RECEIVED IN RESPONSE TO AN I/O OPERATION. 
XXX DEFINES THE UNIT ADDRESS, Y— Y DEFINES THE CHANNEL 
ADDRESS WORD DATA, U DEFINES THE CONDITION CODE —0 OR 1—/ 
WW DEFINES THE UNIT AND CHANNEL STATUS, AND ZZ DEFINES 
THE SENSE DATA. THE PROGRAM WILL RETRY THE I/O OPERATION. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC U- 

ABOVE MESSAGE WILL BE PRINTED WHEN CONDITION CODE 2 OR 3 
IS RECEIVED IN RESPONSE TO A START I/O. XXX DEFINES THE 
UNIT ADDRESS, Y — Y DEFINES THE CHANNEL ADDRESS WORD DATA, 
AND U DEFINES THE CONDITION CODE. THE PROGRAM WILL RETRY 
THE I/O OPERATION. 

-DIAG CK RD UNIT XXX NOT OK, WILL TRY AGAIN- 
ABOVE MESSAGE WILL BE PRINTED IF THE DIAGNOSTIC CHECK READ 
COMMAND DOES NOT TRANSFER DATA TO THE CPU. XXX OEFINES 
THE UNIT ADDRESS. THE PROGRAM WILL RETRY THE OPERATION. 

4.3.2 ERROR MESSAGES COMMON ONLY TO ROUTINE 02 — CONTROL PROGRAM— 
-ERR 001- 

ABOVE MESSAGE DEFINES AN ADDRESS REGISTER PROBLEM. 

-ERR 002 THRU 004- 
«»RESERVED«» 

-ERR 005- 

ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM. 
—ERR 006- 

ABOVE MESSAGE DEFINES PROBLEM WITH BUFFER INHIBIT LINES 
AND/ OR CONTROLS OR SENSE AMPS WITH DATA CHECK* 

—ERR 007- 

ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM. 
-ERR 008- 

ABOVE MESSAGE DEFINES A PROBLEM WITH BUFFER INHIBIT LINES 
AND/OR CONTROLS OR SENSE AMPS WITH NO DATA CHECK. 

-ERR 009- 

ABOVE MESSAGE DEFINES A PROBLEM WITH PARITY BIT INHIBIT 
LINES OR CONTROLS OR PARITY SENSE AMP. COULD ALSO BE 
INTERMITTENT PARITY PROBLEM. 

-ERR 010- 

ABOVE MESSAGE DEFINES A FALSE READ TRANSLATE PROBLEM IN 
READ TRANSLATE CHECK CIRCUITS. 

-ERR 011- 

ABOVE MESSAGE DEFINES A DATA REGISTER PROBLEM. 
-ERR 012- 

ABOVE MESSAGE DEFINES A FALSE PUNCH TRANSLATE CHECK. 
-ERR 013- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS -COULD BE FALSE 
PiS^m AND/OR fALSE READ TRANSLATE CHECKS. 

-ERR 014- 
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ABOVE MESSAGE DEFINES FALSE PARITY CHECKS. 
-ERR 015- 

A»OVE MESSAGE DEFINES FALSE PUNCH TRANSLATE CHECKS. 
-ERR 016- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS -COULO BE FALSE 
TRANSLATE AND/OR FALSE PARITY ERRORS* 

-ERR 017-' 

ABOVE MESSAGE DEFINES FALSE PARITY CHECKS. 
-ERR 018- 

ABOVE MESSAGE DEFINES READ BUFFER OR DIAGNOSTIC WRITE 
PROBLEM. 

—ERR 019- 

ABOVE MESSAGE DEFINES INTERMITTENT FALSE READ TRANSLATE 
CHECKS. 

-ERR 020- 

ABOVE MESSAGE DEFINES INTERMITTENT PARITY CIRCUIT PROBLEM* 
-ERR 021- 

ABOVE MESSAGE OEFINES MULTIPLE ERRORS. 
. -ERR 022- 

ABOVE MESSAGE DEFINES DATA REGISTER OR READ TRANSLATE 
PROBLEM. 

-ERR 023- * 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS. 

—ERR 024- 

ABOVE MESSAGE DEFINES A PUNCH TRANSLATE PROBLEM. 
-ERR 025- 

ABOVE MESSAGE DEFINES A 'PUNCH TRANSLATE PROBLEM* 

rERR 026- • 
ABOVE MESSAGE DEFINES A FALSE PARITY CHECK PROBLEM. 

-ERR 02f THRU 029- 
*»RESERVED*« 

4.3.3 ERROR MESSAGES COMMON ONLY TO ROUTINE 01 — CHANNEL REG FLT — 
-ERR 030- 

NO CHANNEL REGISTER BITS WILL TURN ON 
LOGIC PAGE 32.11.12.1 
CIRCUITS - B1D10, B1E09, B1A12 
LOGIC PAGE 32.11.13.1 
CIRCUITS - B1E12, B1E1 1, B1D02 
LOGIC PAGE 32.11.16.1 
CIRCUITS - B1C04, B1E18 

-ERR 031- 

NO RESET TO CHANNEL REGISTER 
LOGIC PAGE 32.11.13.1 
CIRCUITS - B1E12, HIE 11, B1D02 

-ERR 032- ' 
CHANNEL REG -0- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.12.1 
CIRCUITS - B1D09, B1D11, B1A11 
LOGIC PAGE* 32.11.21.1 
CIRCUITS - B1H02 



DATE 15JUL65 17MAR66 id F804-» 

EC 124265 125643 PAGE 3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2821 - 2540 READER PUNCH SCAN 



P/N 840257 
PAGE 4 



—ERR 033- 

CHANNEL REG -0- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.12.1 

CIRCUITS - B1D09, B1D11, B1A1I, B1B07, B1D10 
LOGIC PAGE 32.11.21.1 

CIRCUITS - B1H02 

-ERR 034- 

CHANNEL REG -1- BIT DOES NOT TURN ON 
LOGIC PAGE 32*11.12.1 
CIRCUITS - 81D09, BIDllt B1A11 
LOGIC PAGE 32.11.21.1 
CIRCUITS - B1H02 

-ERR 035- 

CHANNEL REG -1- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.12.1 

CIRCUITS - B1D09, B1D11, B1A11« B1B07, B1D10 
LOGIC PAGE 32.11.21.1 
CIRCUITS - B1H02 

-ERR 036- 

CHANNEL REG -2- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H10, B1E10, B1012. B1E12, B1F09 
LOGIC PAGE 32.11.23.1 
CIRCUITS - B1H02 

-ERR 037- 

CHANNEL REG -2- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H10, BlElOt B1D12« B1E12, B1B07* B1F09 
LOGIC PAGE 32.11.23.1 
CIRCUITS - B1H02 
LOGIC PAGE 42.32.01.1 
CIRCUITS - B4D16 

-ERR 038- 

CHANNEL REG -3- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11. 13. 1 

CIRCUITS - B1H10, B1E10, B1012, B1F09 
LOGIC PAGE 32.11.24.1 
CIRCUITS - B1G07 

-ERR 039- 

CHANNEL REG -3- BIT DOES NOT TURN OFF 

LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H10, BlElOv B1D12« B1E12* B1B07, B1F09, B1E12 
LOGIC PAGE 32.11.24.1 
CIRCUITS - B1G07 
LOGIC PAGE 42.32.01.1 
CIRCUITS - B4G23, B4D16 

—ERR 040- 

CHANNEL REG -4- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.14.1 

CIRCUITS - B1F09. B1H10, B1F10, B1D12, B1C07. B1E12 
LOGIC PAGE 32.11.25.1 
CIRCUITS - B1G08 

-ERR 041- 

CHANNEL REG -4- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11*14.1 

CIRCUITS - BIHlOt B1F10, B1D12, B1C07, B1E12, B1F09 
LOGIC PAGE 32*11*25*1 
CIRCUITS - B1G08 

LOGIC PAGE 42.32.01.1 
CIRCUITS - B4E16. B4623 
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-ERR 042- 

CHANNELREG -5- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.14.1 

CIRCUITS - B1H10, B1F11, B1F10, B1G10, B1F09« B1C07 
LOGIC PAGE 32.11.23.1 
CIRCUITS - B1H02 

—ERR 043- 

CHANNEL REG -5- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.14.1 

CIRCUITS - B1H10, B1F11, B1F10, B1C07. B1G10, B1F09 
LOGIC PAGE 32.11.23.1 „ 
CIRCUITS - B1H02 
LOGIC PAGE 42.32.01.1 
CIRCUITS - B4E16, B4G19 

-ERR 044- 

CHANNEL REG -6- BIT DOES NOT TURN ON 
LOGIC PAGE 32.il. 15.1 

CIRCUITS - B1E08, B1H10* B1G11, B1F11, 81G10 
10GIC PAGE 32.11.26.1 

Circuits - bigos 

—ERR 045- 

CHANNEL REG -6- BIT DOES NOT TURN OFF 
LOGIC "PAGE 32.11.15.1 

CIRCUITS - B1E08, B1H10» B1G11, B1F11» B1610* B1C07 
LOGIC PAGE 32.11.26.1 
CIRCUITS - B1G08 
LOGIC PAGE 42.32.02.1 

CIRCUITS - B4F16, B4D08 ° 
-ERR 046- 

CHANNEL REG -7- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.15.1 

CIRCUITS - B1G10, B1H10» BIGllt B1F11 
LOGIC PAGE 32.11.27.1 
CIRCUITS - B1G09 

—ERR .047- 

CHANNEL REG -7- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.15.1 

CIRCUITS - B1G10, BIHlOt B1G11, B1F11« B1C07 



LOGIC PAGE 32.11.27.1 

CIRCUITS - B1G09 

LOGIC PAGE 42.32.02.1 

CIRCUITS - B4F16, B4G23 

4.3.4 ERROR MESSAGES COMMON ONLY TO ROUTINE 03 — BUFFER ADDR FLT— 

-ERR 050-* • 
BAR PROBLEM - ERROR PATTERN IS ERRATIC. PROBLEM MAY 
BE INTERMITTENT. 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06, B3G07 
LOGIC PAGE 32.20*16*1 
CIRCUITS - B3H05, B3H06 
•* LOGIC PAGE 32.20.17.1 
. CIRCUITS - B3H07 



: 4 



-ERR 051- 

BAR UNITS A OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32,20*15.1 
CIRCUITS - B3G06, B3F06« B3E05 

-ERR 052- 

RAR UNITS A INPUT TO BAR ALWAYS ACTIVE 
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LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

*ERR 053- 

PAR UNITS A INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20*15.1 
CIRCUITS - B3G06 

-ERR 054- 

BAR UNITS A OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06* B3F06. B3E05 

-ERR 055- 

RAR UNITS A INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 056- 

PAR UNITS A INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 057- 

BAR UNITS B OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20*15.1 * 
CIRCUITS - B3G06, B3F06, B3E05 

—ERR 058- 

RAR UNITS B INPUT TO BAR ALWAYS ACTIVE 

LOGIC PAGE 32.20*15.1 

CIRCUITS - B3G06 , 

-ERR 059- 

PAR UNITS B INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 060- 

BAR UNITS B OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06, B3F06, B3E05 

-ERR 061- 

RAR UNITS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 062- 

PAR UNITS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 063- 

BAR UNITS C OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07. B3F06, B3E05 

—ERR 064- 

RAR UNITS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 065- 

PAR UNITS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 



-ERR 066- 

BAR UNITS C OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07, B3F06, B3E05 

-ERR 067- 

RAR UNITS C INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 068- 

PAR UNITS C INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 069- 

BAR UNITS D OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07, B3F06, B3E05 

-ERR 070- 

RAR UNITS D INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 071- 

PAR UNITS D INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS — B3G07 

-ERR 072- . . . 

BAR UNITS D OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07, B3F06, B3E05 

-ERR 073- 

RAR UNITS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 

CIRCUITS - B3G07 

-ERR 074- 

PAR UNITS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 075- 

BAR UNITS E OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05, B3F06, B3F05 

-ERR 076- 

RAR UNITS E INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05 

-ERR 077- 

PAR UNITS E INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05 

-ERR 078- 

BAR UNITS E OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05, B3F06, B3F05 

-ERR 079- 

RAR UNITS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.16.1 
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CIRCUITS - B3H05 

-ERR 080- 

PAR UNITS E INPUT TO BAR NEVER ACTIVE 
■ LOGIC.<P-'AGE 
CIRCUITS - B3H05 . . 

-ERR 081- : ■ 

BAR TENS "A OUTPUT ALWAYS ACTIVE . 
LOGIC PAGE '32,20*16*1 - 
CIRCUITS - 83H05* 83F06t ■ B3F0S ' ' " • 

^ERR 082- 

RAR TENS A INPUT TO BAR ALWAYS ACTIVE 
•■ LOGIC PAGE 32«2b.*16«l 

■ CIRCUITS - 83H05 

-ERR 083- ' 

PAR TENS A INPUT TO BAR ALWAYS ACTIVE 

• LOGIC PAGE 32*20*. 16*1 • 

CIRCUITS - B3H0I3- 

—ERR 084- 

-. BAR TENS A OUTPUT MEVER ACTIVE 

LOGIC PAGE '32*20* 16* .1 ■ . v 

- ■ CIRCUITS --. B3HQ5* 83F06 f , ' 

-ERR 085-° 

RAR TENS A •■ .INPUT' TO BAR NEVER ACTIVE 
LOGIC PASS 32*20. 16. t' 
CIRCUITS -B3H05 

-ERR 086- 

PAR TENS A INPUT TO BAR NEVER ACTIVE 
' LOGIC PAGE '32*20*16*1 
CIRCUITS - B3HQ5 ' 

-£RR '08?- •' 

" BAR .TENS B "OUTPUT ALWAYS, ACTIVE 
LOGIC PAGE 32-. 20. 16.1 
CIRCUITS - B3H06, 83F0? f 831=05. , 

'-ERR 088- ' ' 

■ RAR TENS B INPUT TO BAR ALWAYS ACTIVE 

LOGIC PAGE 32*20* 16* I 
CIRCUITS -' B3H06 ' 

-ERR 089- 

PAR TENS 8 INPUT TO BAR ALWAYS ACTIVE 

LOGIC PAGE 32*20*16*1 

' CIRCUITS - 83H06 

-ERR 090- : . ■ 

■ BAR TENS B OUTPUT NEVER ACTIVg 
LOGIC PAGE 32*2-0*16.1 ' 
CIRCUITS - B3B06* B3F07* 83F05 

—ERR 091- 

RAR TENS B" INPUT TO BAR NEVER ACTIVE • 
LOGIC PAGE 32*20*16*1 • 
. CIRCUITS - B3H06. 

-ERR • 092- ■ 

PAR TENS B INPUT TO BAR NEVER ACTIVE 
LOGIC. PAGE 3^*20*'16«1 . 
CIRCUITS - B3H06 

-ERR 093- 
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BAR TENS C OUTPUT ALWAYS ACTIVE .. 
■ LOGIC PAGE 32.20*16.1 ' 

CIRCUITS - B3H06, B3F07, B3F05 

-ERR'.094-f 

RAR TENS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20*16*1 
CIRCUITS. - B3H06 ■ 

-ERR 095- .''■'. ' 

• PAR TENS C: INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32*20*16*1 

CIRCUITS B3H06 .. - 

-ERR 096-': 

BAR TENS C OUTPUT NEVER ACTIVE 

LOGIC PAGE 32.20*16*1, . 
CIRCUITS B3H06, B3F07» 83F05 

-ERR 097-"- 

: RAR TENS C INPUT -TO' BAR NEVER ACTIVE .. 

LOGIC PAGE 32*20*16*1' 
. CIRCUIT* -, -B3H06 . ■ - 

-E'RR 098- 

■ PAR TENS' C INPUT TO BAR NEVER- ACTIVE ' 

■ LOGIC PAGE '32*.20*16*i.' ." 

■ CIRCUITS - B3HQ6 ' 

—ERR 099— • '• ■ 

BAR TENS D- OUTPUT ■' ALWAYS -.'ACTIVE' 

• LOGIC PAGE 32*20*17.1 
CIRCUITS '- B3H0?f B3F07# B3G05 

-ERR 100- ■ '■"' 

RAR TENS 0 INPUT TO ' BAR -ALWAYS .ACTIVE 
LOGIC PAGE 32*20*17*1 .'.'..' 
. CIRCUITS --B3H07;.. ,'.; 

-ERR 101- ' ' " : : 

- • PAR TENS 0' INPUT" TO BAR ALWAYS ACTIVE 
■' LOGIC PAGE 32'*20*i7*l . 

; CIRCUITS - 83H0? :. " 

-ERR 102- 

BAR TENS D OUTPUT NEVER ACTIVE 

• LOGIC PAGE 32.20.17.1 
CIRCUITS ~* B3H07, 83F07t'< B3G05 

-ERR 103- ' 

RAR TENS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17*1 

CIRCUITS - B3N0? 

-ERR 104- - 

PAR TENS 0 INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE' 32*20*17*1 
CIRCUITS - B3H07 

-ERR 105- 

8AR TENS E OUTPUT ALWAYS ACTIVE 

LOGIC PAGE 32.20*17.1 

CIRCUITS - B3H07, B3F07, 83G05 

-ERR 106- 

RAR TENS E INPUT TO BAR ALWAYS ACTIVE 

LOGIC PAGE 32.20.17*1 

CIRCUITS - B3H07 
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-gRR 107- 

. PAR TENS E INPUT TO BAR ALWAYS ACTIVE 
iDGIC PAGE 32.20.17,1 
CIRCUITS - B3H07 

•fim 108- 
J BAR TENS E OUTPUT NEVER ACTIVE 
/LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07# B3F07. B3G05 

-ERR 109- 

RAR TENS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07. 

-ERR 110- 

PAR TENS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07 

-ERR 111- 

RAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS A OR B ALWAYS ACTIVE 
LOGIC PAGE 32.20.11.1 

CIRCUltS - B3E08, B3E09 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F08, B3F09, B3B09 

2. UNITS TRIGGER A NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E08 

3. TENS TRIGGERS D OR E NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F11, B3F12, B3C12 

-ERR 112- 

PAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS. A OR B ALWAYS ACTIVE 
LOGIC PAGE 32.20.13.1 

CIRCUITS - B36G8, B3G09 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H08, B3H09, B3B10 

2. UNITS TRIGGER A NEVER ACTIVE 
LOGIC 'PAGE 32.20.13.1 
CIRCUITS - B3G08 

3. TENS TRIGGERS 0 OR E NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 

CIRCUITS - B3H11, B3H12, B3C12 

-ERR 113- 

RAR UNITS TRIGGER B NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E09 

-ERR 114- 

PAR UNITS TRIGGER B NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G09 



-ERR 117- 

RAR UNITS D TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E11 

-ERR 118- 

PAR UNITS D TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G11 

-ERR 119- 

RAR TENS B TRIGGER NEVER ACTIVE 

LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F09 

-ERR 120- 

PAR TENS B TRIGGER NEVER ACTIVE 

LOGIC PAGE 32.20.14.1 

CIRCUITS - B3H09 

-ERR 121 — 

RAR TENS C TRIGGER NEVER ACTIVE 

LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F10 

-ERR 122- 

PAR TENS C TRIGGER NEVER ACTIVE 

LOGIC PAGE 32.20.14.1 

CIRCUITS - B3H10 

-ERR 123- 

. RAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS D OR E ALWAYS ACTIVE 
LOGIC PAGE 32.20.11.1 

CIRCUITS - B3E11, B3E12 
LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F11, B3F12, B3B09, B3B10 

2. UNITS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3F13 

3. TENS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F14, B3C18, B3F15 

-ERR 124— 

PAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS D OR E ALWAYS ACTIVE 
LOGIC PAGE 32.20.13.1 

CIRCUITS - B3G11, B3G12 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H11, B3H12* B3811 

2. UNITS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G13 

3. TENS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3614, B3F15, B3C18 



-ERR 115- 

RAR UNITS C TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E10 

-ERR 116- 

PAR UNITS C TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G10 



-ERR 125- 

RAR UNITS C TRIGGER ALWAYS ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E10 

-ERR 126- o * 

PAR UNITS C TRIGGER ALWAYS ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G10 
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-ERR 127- 

RAR PROBLEM — ERROR PATTERN CANNOT BE IDENTIFIED. 

PROBLEM MAY BE INTERMITTENT. 

LOGIC PAGES 32.20.11.1 AND 32.20.12.1 

CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

—ERR 128- 

PAR PROBLEM — ERROR PATTERN CANNOT BE IDENTIFIED. 

PROBLEM MAY BE INTERMITTENT. 

LOGIC PAGES 32.20*13.1 AND 32.20.14.1 

CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

-ERR 129- 

PROBLEM IN CIRCUITS USED TO DETECT COLUMN 80 

LOGIC PAGE 32.31.05.1 

CIRCUITS - B3A27, B3B05, 83B04 

—ERR 130- 

RAR UNITS E TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3D12* B3E13t B3F15 

—ERR 131— 

PAR UNITS E TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3D12, B3E14, B3F15 

—ERR 132- 

RAR TENS A TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F08, B3B29 

—ERR 133— 

PAR TENS A TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H08t B3B29 

-ERR 134- 

FALSE BAR ADDRESS CHECKS 

LOGIC PAGES 32.20.18.1, 32.20.19.1 

CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

-ERR 135 THRU 139- 
**RESERVED»» 

ERROR MESSAGES COMMON ONLY TO ROUTINE 04 — READER 
TRANSLATOR FLT — 



I I 
I ERROR I 
I NO. I 

I* —I 



DESCRIPTION 



I 140 I DATA RECORDS ARE MISSING OR 5 
ARE OUT OF SEQUENCE. THERE 
IS A TOTAL OF 129 DATA RECORDS! 



SEQUENCE NUMBERED 084 THRU 
212. 



I 141 I CAN NOT ISOLATE READER 

I I TRANSLATOR FAILURE. SET 

I I SECTION SENSE SWITCH 2* TO 1 

I I TO OBTAIN PROGRAM LOG OUT • 



I 142 I CAN NOT SET DATA REG 12 TR 
WITH DIAGNOSTIC WRITE 



I 

— I- 




I .32*20*31.1 
1-42.23.03.1 I B4D12 
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143 



144 



145 



146 



147 



148 

149 

150 
151 



152 



153 



154 



155 



156 



157 



158 



159 



160 



161 



162 



DATA REG 12 TR ON SOLID I 32.20.31.1 I B3F22,B3E22 ,B3E18 , 

I I B3H22 

I 42.23.03.1 I B4D12 

> . k . 1 1 

CAN NOT SET DATA REG 11 TR* I 32.20.31.1 I B3G22,B3E22 

WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4D12 

DATA REG 11 TR ON SOLID I 32.20.31.1 I B3G22«B3E22 V B3E18, 

I I B3H22 

I 42.23.03.1 I B4D12 

CAN NOT SET DATA R€G 0 TR- I 32.20.31.1 t B3F23«B3E23 

WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4D12 

DATA REG 0 TR ON SOLID I 32.20.31.1 I. B3F23»B3E23 y 83E18* 

I I B3H23 

I 42.23.03.1 I B4D12 

. . k . I ~I 

CAN NOT SET DATA REG 1 TR I 32.20.32.1 I B3G23.B3E23 

WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4D12 

DATA REG 1 TR ON SOLID I 32.20.32.1 I B3G23»B3E23,B3E18, 

I I B3H23 

I 42.23.03.1 I B4D12 

CAN NOT SET DATA REG 2 TR I 32.20.32.1 I B3F24.B3E24 

WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4E12 

DATA REG 2 TR ON SOLID I 32.20.32.1 I B3F24, B3E24»B3E19, 

I I B3H24 

I 42.23.03.1 I 84E12 

^ . . — — 1 > j ^ 

CAN NOT SET DATA REG 3 TR I 32.20.32.1 I B3G24.B3E24 

WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4E12 

DATA REG 3 TR ON SOLID I 32.20.32.1 I B3G24,B3E24,B3E19, 

I I B3H24 „ 

I 42.23.03.1 I B4E12 

CAN NOT SET DATA REG 4 TR I 32.20.33.1 I B3F25.B3E25 

WITH DIAGNOSTIC WRITE I 42.23.04.1 I B4E12 

k - ! . 1 . 

DATA REG 4 TR ON SOLID I 32.20.33.1 I B3F25,B3E25,B3E19, 

I I B3H25 

I 42.23.04.1 I .B4E12 

CAN NOT SET DATA REG 5 TR I 32.20.33.1 I B3G25.B3E25 

WITH DIAGNOSTIC WRITE I 42.23.04.1 I B4E12 

DATA REG 5 TR ON SOLID I 32.20.33.1 I B3G25.B3E25 ,B3E19 t 

I . I B3H25 

I 42.23.04.1 I B4E12 

CAN NOT SET DATA REG 6 TR I 32.20.33.1 I B3F26,B3E26 

WITH DIAGNOSTIC WRITE I 42.23.04.1 I B4F12 

DATA REG 6 TR ON SOLID I 32.20.33.1 X B3F26,B3E26,B3E20, 

I t B3H26 

I 42.23.04.1 I B4F12 

CAN NOT SET DATA REG 7 TR I 32.20.34.1 I B3G26.B3E26 

WITH DIAGNOSTIC WRITE I 42*23.04.1 I B4F12 

DATA REG 7 TR ON SOLID I 32.20.34.1 I B3G26»B3E26»83E20, 

I I B3H26 

I 42.23.04.1 I B4F12 

CAN NOT SET DATA REG 8 TR I 32.20.34.1 I B3F27.B3E27 
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I WITH DIAGNOSTIC WRITE 
-I— • 



163 I DATA REG 8 TR ON SOLID 
I 

I 

164 I CAN NOT SET DATA REG 9 TR 
I WITH DIAGNOSTIC WRITE 

165 I DATA REG 9 TR ON SOLID 
I 

I 

i . „ — ™ 

166 I B3F22C TO B3E22C 

16? I B3E22A STUCK AT MINUS Y 
~I . 

168 I B3F22E TO B3E22D 

— 1 • - 

169 I B3E22E STUCK AT PLUS Y 

170 I B3G22C TO B3E22H 
— — -I 



I 42. 23.04.1 I 84F12 
_! 1 . 

I 32.20.34.1 I B3F27,B3E27 t B3E20, 

I I B3H27 " 

I 42.23.04.1 I B4F12 
-I ~~I - — 

I 32.20.34.1 I B3G27,B3E27 

I 42.23.04.1 I B4F12 . 
-I — 

I 32.20.34.1 I B3G27,B3E27.B3E20, 
I I B3H27 
I 42.23.04.1 I B4F12 
.1 . . . 

I 32.20.31.1 I B3E22,B3F22 
.1 j . . 

I 32.20.31.1 I B3E22 
„ X 1 . 

I 32.20.31.1 I B3E22 t B3F22 

.1- . — _ . 

I 32.20.31.1 I B3E22 

I 32.20.31.1 I B3£22*B3G22 



— -I 
72 I 



— I 



B3E22L 


STUCK AT MINUS Y 


1- 

I 


32.20.31.1 


-I- 

I 


B3E22 


B3G22E 


TO B3E22P 


1- 

I 


32. 20,. 31.1 


-I- 
I 


B3E22,B3G22 


B3E22Q 


STUCK AT PLUS Y 


1- 

I 

1- 


32.20.31.1 


I 

-I- 


B3E22 



174 I B3F23C TO B3E23C 

, : 

175 I B3E23A STUCK AT MINUS Y 

i . . . — 

176 I B3F23E TO B3E23D 

177 I B3E23E STUCK AT PLUS Y 



178 I B3G23C TO B3E23H . 

— I ■ ■ 

179 I B3E23L STUCK AT MINUS Y 

~~ 1„ . _ „. _ 

180 I B3G23E TO B3E23P 

_ | _« ^. 

181 I B3E23Q STUCK AT PLUS Y 

_ 1_ , — 



I 32.20.31.1 I B3E23,63F23 

— I -I — 

I 32.20.31.1 I B3E23 

I 32.20.31.1 I B3E23 f B3F23 

. 

I 32.20.31.1 I B3E23 

~ — — .... i — 

I 32.20.32.1 I B3E23,B3G23 



182 I B3F24C TO B3E24C 

183 I B3E24A STUCK AT MINUS Y 

1 . ™- _ 

184 I B3F24E TO B3E24D 

185 I B3E24E STUCK AT PLUS Y 
1_ _ ... 

186 I B3G24C TO B3E24H 

I OR 

I CAN NOT GET INVALID CARD 
I CODE VIA 3 NT 4567 

187 I B3E24L STUCK AT MINUS Y 
I OR 

I B3E24L TO B1G29G 

— . 

188 I B3G24E TO B3E24P 



I 32.20.32.1 I B3E23 

I 32.20.32.1 I B3E23,B3G23 

• I -I-- - ~ ■ 

I 32.20.32.1 I B3E23 
-I —I— 

I 32.20.32.1 I B3E24,B3F24 
- I — i— — —™ 

I 32.20.32.1 I B3E24 
- 1— • 1 — — — — -™- 

I 32.20.32.1 I B3E24 t B3F24 
- 1 ™.„™-™.- 

I 32.20.32.1 I B3E24 
-I ~— . 

I 32.20.32.1 I B3E24.B3G24 

I I 

I 32.31.10.1 I B1G29 

I I 



I 32.20.32. 1 I B3E24 

I I 

• I 32.31.10.1 I B1G29 

I™— .™™ 

I 32.20.32.1 I B3E24,B3G24 
_ !„„.. ^—x.— — „™ 



189 I B3E24Q STUCK AT PLUS Y 

190 I B3F25C TO B3E25C 



I 32.20.32.1 I B3E24 

. — . 

I 32.20.33.1 I B3E25,B3F25 
I I 



15JUL65 
12*265 



17MAR66 

125643 



ID F804-« 
PAGE . 9 



ooooooooooooooooo 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2821 - 2540 READER PUNCH SCAN 



P/H 840257 
PAGE 9A 



I 
I 

I 
I 

— I- 

191 I 
I 
I 

—1- 

192 I 
— — -I- 

193 I 

194 I 

I 
I 
I 
I 
I 

195 I 
I 

I 

— I- 

196 I 

— 1- 

197 I 

— I- 

198 I 

I 
I 
I 
I 
1 



B1F30L STUCK AT PLUS Y 
OR 

CAN NOT GET INVALID CARD 
CODE VIA 4 NT 567 

B3E25A STUCK AT MINUS Y 
OR 

B3E25A TO B1G30F 

B3F25E TO B3E25D 

B3E25E STUCK AT PLUS Y 

B3G25C TO B3E25H 
OR 

B1F29C STUCK AT PLUS Y 
OR 

CAN NOT GET INVALID CARD 
CODE VIA 5 NT 67 



I 32. 
I 

I 32. 
I 

I 32. 
I 

I 32. 
-I 

I 32, 
-I 

I 32. 
-I 

I 32, 

I 

I 32. 
I 

I 32. 
I 



31. 10.1 I 

I 

31.10.1 I 

20.33.1 
31.10. 1 



20.33.1 
20.33.1 



20.33.1 
31.10.1 
31.10.1 



B3E25L STUCK AT MINUS Y 
OR 

B3E25L TO B1G30B 

B3G25E TO B3E25P 

B3E25Q STUCK AT PLUS Y 

B3F26C TO B3E26C 
OR 

B3G26C TO B3E26H 

OR ( 
CAN NOT GET INVALID CARD 
CODE VIA 6 NT 7 



I 32. 

I 

I 32. 

I 32. 
-I— 
I 32. 

I 32. 

r 

I 32. 

! 

1 32, 

I 



20.33.1 
31.10.1 
20.33.1 
20.33.1 



20.33.1 

20.33,1 
31.10.1 



B1F30 
81630 

B3E25 
B1G30 



B3E25,B3F25 



B3E25 



B3E25#B3G25 
B1F29 . 

B1G30 



B3E25 
B1630 



B3E25*B3G25 



B3E25 



B3E26,B3F26 

B3G26 

B1G30 



199 I 

I 

I 

200 I 
I- 

201 I 

«r— I- 

202 I 
1- 



B3E26A STUCK AT MINUS Y 
OR 

B3E26A TO B1G30G 

B3F26E TO B3E26D 

B3E26E Stuck at plus y 



I 32. 

I 

I 32. 
I— - 
I 32. 
I—- 
32. 



PRESERVED** 



203 I 

I 
I 

204 I 
— — I 

205 I 



B3E26L 
OR 

B3E26L 



STUCK AT MINUS Y 
TO B1G30L 



B3G26E 
B3E26Q 



TO B3E26P 
STUCK AT PLUS Y 



20.33.1 
31.10.1 
20.33.1 
20.33.1 



B3E26 
81G30 
83E26 

B3E26 



32.20.34.1 
32.31.10.1 



B3E26 
B1G30 



32.20.34.1 
32.20.34.1 



B3E26t83G26 
B3E26 



206 I 
I 

207 I 



B3F27C TO B3E27C 



1- 

°208 I 



B3E27A STUCK AT MINUS Y 
TO B3E27D 



32.20.34.1 

32.20.34*1 



83£27*B3F27 
B3E27 



209 I 
— I" 

210 I 
— — -I- 

211 I 



B3F27E 
B3E27E 



STUCK AT PLUS Y 



32.20.34.1 
32.20.34.1 



B3E27,83F27 

B3E27 



B3G27C TO B3E27H 

STUCK AT MINUS Y 



B3E27L 



32*20.34.1 
32.20.34.1 



1- 

212 I 
1- 

213 I 



B3G27E TO B3E27P 



B3E27Q STUCK AT PLUS Y 



32.20.34.1 
32.20.34.1 



B3£2T*83G2? 

83E27 

B3E27,B3G27 

B3E2? 



DATE 
EC 



5JUL65 17MAR66 
24265 125643 



ID • F804-* 
PJM3§' . ■ 9A 
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DATE 



214 

215 

216 
21? 
218 



I B3E22A TO B4A07A 

I 

I B3E22L TO B4A07B 

I 

I B4A07G STUCK AT MINUS Y 

_I — — . » 

I B4A07G STUCK AT PLUS Y 

„ I 

I B3E22A TO B4A07D 
I 

•I- 



219 I B3E23A TO B4A07E 



220 I B4A07C STUCK AT MINUS Y 

1 — 

221 I B4A07C STUCK AT PLUS Y 
— | — 

222 I B3E22L TO B4A07L 

" I 

i ^„^-i— 



223 



224 



225 
226 

227 



I B3E23A TO B4A07H 

I 

. | _ , 

1 B4A07F STUCK AT N1NUS Y 
• I — - — - - — — ~™~ — ■ 
I B4A07F STUCK AT PLUS Y 
, — * 

I B3E22E TO B4A07P 

I 

_ 

I B3E22Q TO B4A07Q 

I 

- 1 — — — — 



228 I B4A07R STUCK AT MINUS Y 

i — » 

229 I B4A07R STUCK AT PLUS Y 

230 I B3E26Q TO B4A09R 
I 

231 I B3E25Q TO B4A09L 



232 



233 



I 234 

I 

I 235 

I 

I 236 

I 23? 
I— 

I 238 

I 

I— — - 
I 239 
I 



B3E25E TO B4A09H 



B3E24Q TO B4A09F 



B3E24E TO B4A09E 



B3E26E TO B4A09Q 



B4A09P STUCK AT MINUS Y 



B4A09P STUCK AT PLUS Y 



B3E27C3 TO B4A10D 



B3E23A TO B4A10C 



15JUL65 
124265 



17MAR66 
125643 



~ |— —I — — • 

I 32.20.61.1 I B4A07 
I 32. 20.31.1 I B3E22 

— I——. — i— — . 

I 32.20.61.1 I B4A07 

I 32.20.31.1 I B3E22 

--I- .-i——.- — 

I 32.20.61.1 I B4A07 
-i— 

I 32.20.61.1 I B4A07 
— ... i 

! 32.20.61.1 I B4A07 
I 32.20.31.1 I B3E22 

I 32.20.61.1 I B4A07 
I 32.20.31.1 I B3E23 

— X —.-——i—. » 

I 32.20.61.1 I B4A07 

_ 1 — 

I 32.20.61*1 I B4A07 
1—™™™ I — - .™- 

I 32.20.61.1 1 B4A07 
I 32.20.31.1 I B3E22 
— 1„. „~ i 

I 32.20.61.1 I B4A07 
I 32.20.31.1 I B3E23 
_ i — — — 

I 32.20.61.1 I B4A07 

i — 1 

I 32.20.61.1 I B4A07 

I- — . 

I 32.20.61.1 I B4A07 

I 32.20.31.1 I B3E22 

_ I I 

I 32.20.61.1 I B4A07 

I 32.20.31.1 I B3E22 

1 — — 

I 32.20.61.1 I B4A07 

— I— — ~™ I 

1 32.20.61.1 I B4A07 
„_ I„— — ™ I 

I 32.20.62.1 I B4A09 
I 32.20.34.1 I B3E26 

— — — I 

I 32.20.62.1 I B4A09 
I 32.20.33.1 I B3E25 



I 32.20.62.1 I B4A09 
I 32.20.33.1 I B3E25 

- 1 — — — — I — ■— 
I 32.20.62.1 I B4A09 
I 32.20.32.1 I B3E24 

. j — — 

I 32.20.62.1 I B4A09 

I 32.20*32.1 ! B3E24 
. I- i — — 

I 32.20.62.1 I B4A09 
I 32.20.33.1 I B3E26 
„ S .— i-™.™ 

I 32.20.62.1 I B4A09 
-I—™.-.-- 1— 

I 32.20.62.1 I B4A09 


I 32.20.62.1 I B4A10 

I 32.20.34.1 I 'B3E27 

- 1——— I — — 

I 32.20.62.1 I B4A10 

•I 32.20.31.1 I B3E23 



ID F804-* 
PAGE 10 



DATE 
EC 



— 1- 

240 I 
I 

1- 

241 I 

i 

242 I 
I 



B3E22E TO B4A10B 



I 32.20.62.1 

I 32.20.31.1 



I B4A10 
I B3E22 



B3E22Q TO B4A10A 



I 32.20.62.1 
I 32.20.31.1 



I B4A10 
I 83E22 



B3E27A TO B4A10E 



I 32.20.62.1 
I 32.20.34.1 



I B4A10 
I B3E27 



243 I 

I 

I 

. „j. 

244 I 
I 
I 

. — j. 

245 I 

I 

246 I 

I 

-|- 



B4A10G STUCK AT MINUS Y 
OR 

B4A10G TO B4A14L 



I 32.20.62.1 

I 

I 32.20.66.1 



B4A10 
B4A14 



B4A10G STUCK AT PLUS Y 

OR 

B4A14F STUCK AT MINUS Y 



.1 . „ 

I 32.20.62.1 

I 

I 32.20.66.1 



B3E2SE TO B4A10H 



B3E24E TO B4A10F 



247 I 

I 

248 I 

I 

249 I 

I 



B3E26E TO B4A10L 



B3E27E TO 84A10R 



B3E27L TO B4A10Q 



250 I B4A10P STUCK AT MINUS Y 

251 I B4A10P,B4A14G,0R B4A14C 
I STUCK AT PLUS Y 

I OR. 

I B4B14C OR B4B13D STUCK 

I AT MINUS Y 

I OR 

I B4B14C TO B4C08G 

I OR 

I B4B130*T0 B1GI1F 

252 I B3E27L TO B4A12A 
4*1 OR 

I B4A07R TO B4A12L 

I OR 

I B3E24E TO B4A12H 



I 32* 
I 32, 

I 32. 

I 32. 
-I 

I 32. 

I 32. 
-I 

I 32. 

I 32. 

I 32. 

I 32. 
-I 

I 32. 
-I 

I 32. 

I 

I 

I 32. 

I 

I 

I 32. 

I 

I 32. 

-I 

I 



20.66.1 

20.33.1 



20.66.1 
20.32.1 



20.66.1 
20.33.1 



B4A10 
B4A14 



B4A10 
B3E25 



B4A10 
B3E24 



B4A10 
B3E26 



20.66.1 
20.34.1 



20.66.1 

20.34.1 



20.66.1 

20.66.1 



B4A10 

83627 



253 I 
I 



B3E24A TO B4A12R 



254 I 

I 



255 I 
I 

—-»--!. 

256 I 
I 

——I- 

257 I 

I 
I 

j. 

258 I 



5JUL65 
24265. 



B3E27A TO B4A12B 
ALWAYS GET READ XL ATE 4 



32. 
I 32. 

I 32. 
I 

I 32. 
-I 

I 32. 

I 32. 
-I 

I 32* 

I 32. 



20.66.1 

20.66.1 

11.15.1 

20.65.1 
20.34.1 
20.61.1 

20.32.1 



20.65.1 
20.32.1 



20.65.1 
20.34.1 



CAN NOT GET READ XLATE 4 
VIA MINUS Y DATA REG 9.2.8 

B3E27E TO B4A14A " 

OR 

B4B08C TO 84A14E 
B3E23L TO B4A14B 



I 32.20.65.1 

I 

I 32.20.65.1 

I 

«I . 



B4A10 
B3E27 

B4A10 

B4A10,B4A14 

84B14»84B13 

B4C08 

B1G11 

B4A12 
B3E27 
B4A07 

B3E24 



B4A12 

B3E24 



B4A12 
B3E27 



B4Al2,B4A13 f B4B19, 
B4C16.B4B13 



&4A12 



I 32.20.66.1 

I 32.20.34.1 

I 32.20.61.1 

I 32.20.u6;i 



B4A14 
B3E27 
B4808 

B4A14 



17MAR66 
125643 



10 F804-» 
PAGE 10* 



JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 



O0OOOOOO 



oooooooooooooo 



^1 Q 



B4A14G STUCK AT MINUS Y 

♦♦RESERVED** 

B3E24Q TO B4A22Q 

B3E26Q TO B4A22R 



B3E26E TO B4A22H 



ALWAYS GET READ XLATE 6 



B4A22P STUCK AT PLUS Y 

OR 

B4B13C STUCK AT MINUS Y 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



2821 - 2540 READER PUNCH SCAN 



I 

1 

259 I 

260 I 

261 ! 
I 

— I 

262 1 
I 

263 I 
1 

1 

264 I 
I 
I 

~f. 

265 I 

I 

i 

— — i- 

i 

i 

— — i 

267 I 
1 

268 I 
-I 

269 I 

, — i 

270 I 
I 

. ..f 

1 
1 

r 

272 I 

273 I 
-—I 

274 I 
I 
I 
I 
I 

~I 

275 I 
I 



P/N 840257 

PAGE U 



266 I B3E22E TO B4B07B 



B3E23E TO B4B07A 



B4B07G 'STUCK AT MINUS Y 



B4B07G STUCK AT PLUS Y 



B3E23E TO B4B07D 



271 I B3E22Q TO B4B07E 



B4B07C STUCK AT MINUS Y 
B4B07C STUCK AT PLUS Y 

B3E27E TO B4B07H 

OR 

B4A08A TO B4C10Q 

OR 

B4C23L TO B1C10B 



I 32, 
- 1- — 

1 32. 
- 1* 

I 

-I 

I 32, 
I 32, 

-I— 
I 32, 
I 32, 

-I 

I 32, 
I 32, 

-I— - 
I 32, 
I 

I 32, 
-I 

I 32. 

I 32. 

I 32, 
-I— 

I 32. 

I 32, 
- 1— — 

I 32. 

I 32. 

- 

I 32. 

. I - 

I 32. 

-I 

I 32. 
I 32. 

I 32. 
I 32. 
-I—- 

I 32 



20.32.1 
20.66.1 



20.66.1 
20.32.1 



I B3E23 

I , 

I B4A14 

j . ... 

I 

I B4A22 

I B3E24 
i — ........... 

20.66.1 I B4A22 
20.34.1 I B3E26 
.... .-i _ ...... — .... 

20.66.1 I B4A22 
20.33.1 I B3E26 
1 — . ... ... 

I B4A22,B4A14*B4B 
I B4C13 

I B1G11 
...j...... . . 

20.66.1 I B4A22 
11.14.1 I B1F10 
20.66.1 I B4B13 



20.66.1 
11.15.1 



13, 



20.61.1 
20.31.1 



I B4B07 

I B3E22 
........ I ....... 

20.61.1 I B4B07 

20.31.1 I B3E23 

20.61.1 I B4B07 

.. j ....... 

20.61.1 I B4B07 
........ I — ... 

20.61.1 I B4B07 

20.31.1 I B3E23 

20.61.1 I B4B07 

20.31.1 I B3E22 

.20.61.1 I B4B07 



. 

I 32.20.61.1 



B3E27Q TO B4B07L 



-I 

I 32. 
I 32. 
I 32, 
I 32, 
I 32. 

. I ~ 

I 32, 
I 32. 



20.61.1 
20.34.1 

20.63. 1 
20.61.1 

20.62.1 



20.61.1 
20.34.1 



-I—- — 
I B4807 

•I— — 
I B4B07 
I B3E27 
I B4C10 
I B4A08 
I B4C23 

•I 

I 84B07 
I B3E27 



276 



B4B07F STUCK AT MINUS Y 
OR 

B4B07F TO B4B23P 



277 



B4B07F STUCK AT PLUS Y 

OR 

B4B23C STUCK AT MINUS Y 



I 
I 
I 
•I 
I 
I 
I 

I B3E24E TO B4B09C 

I 

I — 

I B3E27E TO B4B09A 

I 

_|^.. ~ .. 

280 I 83E24Q TO B4B09D 
I 



I 32, 

I 

I 32. 
-I— - 

I 32. 

I 

I 32, 



20.61.1 
20.61.1 
20.61.1 
20.61.1 



I 84B07 
I 

I B4B23 

.j....... 

I B4B07 
I 

I B4B23 



278 



279 



I 32. 

I 32. 

. i — ... 

I 32. 
I 32. 

- 1 

I 32. 
I 32. 



20.62. 1 
20.32.1 



20.62.1 
20.34.1 



20.62.1 
20.32.1 



I B4B09 
I B3E24 

■I — 
I 840 09 
I B3E27 

I ■ 

I B4B09 
I B3E24 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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B3E25E TO B4B09E 



— — I- 

281 I 
I 

,j ... 

282 I B3E230 TO B4B09B 
I 

- — —I • — — ~* ~ 

283 I 
t 

-I 

284 I 
I 

— i . 

285 I o B3E26Q TO B4B09H 
I 

286 I B3E27Q TO B4B09Q 
I 

... J . 

287 I 



.20.62.1 

.20.33.1 



B3E25Q TO B4B09F 
B3E26E TO B4B09G 



.20.62.1 
.20.33.1 



.20.62.1 
.20.34.1 



B4B09P STUCK AT MINUS Y 
B4B09P STUCK AT PLUS Y 
B3E27Q TO 84B10F 



288 I 

289 I 

I 

290 I 83E24A TO B4B10L 
I 

291 I B3E23A TO B4B10E 
I 



292 I ALWAYS GET READ XLATE 0 ' 

293 1 CAN NOT GET READ XLATE 0 VIA 
I MINUS Y DATA REG 0.2*N9 

294 I B3E24Q TO B4B14D 
I I . 

I — I ™— 
I 295 I B3E25Q TO B4B14B 

I I 

296 I B3E26Q TO B4B14A 

I 



*20.62*l 
.20.62.1 



1 — , 1 — 






I 297 I **R£S£RV£D»* 


I 


I 


I — I — — — 




... | 



-I- 

I 32. 
I 32. 
.1 « 

I 32.20.62.1 
I 32.20.32.1 

. 

I 32. 

I 32, 
•I- 

I 32.20.62.1 
I 32.20.33.1 
. 

I 32.20.62.1 
I 32.20.34.1 

- j... — . — . 

I 32. 
I 32. 

-I- 
I 32. 

-I- 

I 32. 
- 1- 

I 32, 

I 32. 

I 32.20.63.1 
I 32.20.32.1 

I 32. 

I 32, 
-I 

I 32, 
-1- 

I 32, 

I 

-I- 

I 32. 

I 32, 
.!„......... 

I 32.20.66.1 
I 32.20.33-.1 

I 32. 
1 32. 



•20.63.1 
.20.34.1 



►20.63.1 
.20.31.1 



,20.63*1 
.20.63.1 



,20*66.1 
.20.32.1 



84B09 
B3E25 



B4809 
B3E23 



B4809 
B3E25 



B4809 
B3E26 



B4B09 
B3E26 



B4B09 

B3E27 



B4B09 
B4B09 



B4B10 
B3E27 



B4B10 

83E24 



B4B10 
B3E23 

B4810fB4C10fB4Cii 



B4B10 



B4614 
B3E24 



.20.66*1 
.20.34.1 



I 84814 

I B3E25 

I B4814 

I B3E26 



298 I 
I 
I 

299 I 
I 

I 

I 

300 I 

I 
1 

301 I 
I 

302 • I 



B4B14C STUCK AT PLUS Y 
OR 

B4C08F STUCK AT MINUS Y 

B3E23L TO B4C08R 
OR 

B4A09P TO B4C14P 

OR 

B4C23L STUCK AT PLUS Y 



20.66.1 
20.66.1 



B4C08A STUCK AT MINUS Y 

B3E22A TO B4C12D 
B3E220 TO B4C12Q 



I 32, 
I 

I 32. 

-I 

I 32, 
I 32, 
I 32. 

I 

I 32. 



I 32, 
I 

I 32. 

t 32.20.64.1 
' I 32.20.31.1 

I 32 

I 32 
* I— 



20.62.1 
20.32.1 

20.62.1 

20.62.1 
20.62.1 
11*12.1 



.20.64.1 

.20.31.1 



I 84B14 

I } ' { 

I B4C08 

I— 1 -—" 

I 84C08 

I B"3E23 

I B4C14«B4A09 ' 

I 

I B4C23 

I B4C08 
I 84C14 
I B1D09 

I B4C12 
I B3E22 

•I— 

I 84C12 
I 83E22 

I— — ~— 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



ID F804-* 
PAGE . 11 



DATE 

ec 



15JUL65 
124265 



17MAR66 

125643 



ID ' F804-* 
$>AG€.\. 11A 



f 
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I 303 
I 



I 304 
I 



305 



307 



I- 

I 

I 

I- 

I 306 
I 
!• 
I 
I 

I 308 
I 

I 309 

I 310 

I 311 
I 

I 312 
I 

I 313 

I 

I 

I 314 

I 

I 315 

1 

I_~ 
I 316 

I 

I 317 
I 

I 318 
I 

I . 

I — 
I 319 

I 320 

I 321 

I 322 

•I 
I 

I 

I 323 

I— ~ 

I 324 

I 

I 325 

I 

I 326 

' I 



NEVER GET READ XLATE 2 



CAN NOT BLOCK READ XLATE 2 
VIA MINUS Y DATA REG 12.N11 



B3E26Q TO B4C13D 
B3E26E TO B4C13C 
B3E25Q TO B4C13B 



B3E25E TO B4C13A 

B4C13G STUCK AT MINUS Y 
B4C13G STUCK AT PLUS Y 
B3E26E TO B1F290 



B3E26Q TO B1F29E 



B1F29C STUCK AT MINUS Y 
OR 

B1F29C TO B1G30A 



PRESERVED** 
B3E25Q TO B1F30G 



B3E26E TO B1F30E 



B3E26Q TO B1F30F 



B1F30L STUCK AT MINUS Y 

OR 

B1F30L TO B1G30D 



•♦RESERVED** 



♦•RESERVED** 
•♦RESERVED** 
ALWAYS GET INVALID CARD CODE 



•♦RESERVED** 



B3E24Q TO B1H30A 



B3E26Q TO B1H30E 



B3E26E TO BIH30D 



32.20.64.1 
32-11.13.1 



I B4C12 

I B1E10 



I- 



.j. 



-I- 



-I- 



32*20*64.1 



I B4C12 
I 



32.20, 
32.20, 



66.1 
34.1 



I B4C13 
I B3E26 



32.20, 

32.20, 



66.1 

33*1 



32.20. 
32.20, 



66.1 
33.1 



I 84C13 
I B3E26 
-I—— 

I B4C13 
I B3E25 
-I — 



32.20, 

32.20, 



66.1 
33.1 



I B4C13 

I B3E25 



32.20.66.1 
32.20*66.1 



I B4C13 



32.31, 
32.20. 



10.1 
33.1 



I— — 
I B4C13 

•I—- 

I B1F29 
I B3E26 
-I-—-- — 



32.31, 
32.20, 



32.31 

32.31 



10.1 
34.1 



,10.1 

► 10.1 



32.31.10.1 
32.20.33.1 



32.31.10.1 
32.20.33.1 



I B1F29 
I B3E26 

I B1F29 

I 

I B1G30 
•I— 

I 

1 B1F30 
I B3E25 

•I—- — - 

I B1F30 
I 83E26 



32.31.10.1 

32.20.34*1 



-I— 

I 81F30 
I B3E26 



32.31.10.1 
32.31.10.1 



-I—-- • 

I B1F30 

I 

I B1G30 



I 



32.31.10.1 

32*12.34.1 



32.11,25.1 



I 

.1—™ — — 

I BIG30* B1G29»8IH31 
I BlC27,BlC23»BlH17i 
I B1A19 
I B1G08 

-I — — — — — — - — « — 

I 

_ 



32.31.10.1 
32.20.32.1 



I B1H30 
I B3E24 



32*31*10.1 
32.20.34.1 



I B1H30 
I B3E26 



32*31.10.1 I B1H30 
I 32.20.33.1 I B3E26 



I 327 I B3E25E TO B1H30B 
I I 

I — — I 

I 328 I B3E25Q TO B1H30C 

I I 

I ! 



I 32.31.10.1 I B1H30 
I 32.20.33.1 I B3E25 

I 32.31.10.1 I B1H30 
I 32.20.33.1 I B3E25 

— I • 1 

I 32.31.10.1 I B1H30 
I I 
I 32.31.10.1 I B1G29 
•-.I— — 



I 329 I B1H30G STUCK AT MINUS Y 

I i OR 

I I B1H30G TO B1G29B 

I ——-.I . 

I 330 I CAN NOT GET INVALID CARD CODE I 32.31.10.1 I B1H30,B1G29 
I I VIA 2 NT 34567 ' . ' I I 

1 1 ■ — — ™™ % — , 1 — 

I 331 I B4A07G TO B4A08R 



I 332 I B4A08A STOCK AT MINUS Y 
I i . . ^ — — 

I 333 I B4A0.7C TO B4A08P 

> 

I 334 I B4A08C STUCK. AT MINUS Y 

1 1 — — «~ — 

I 335 I B4A07F TO B4A08G 

I 336 I B4A08F STUCK AT MINUS Y 

I — I ™ — — ■ — 

I 337 I B4B07G TO B4A08Q 

j. — I ■ — — • 

I 338 I B4A08B STUCK AT MINUS Y 

I —I — ■ 

I 339 I B4B07C TO B4A08E 

j. 1« 



I 32.20.61.1 I B4A08,B4A07 

-I — — I- — — — 

I 32.20.61.1 I B4A08 

I 32.20.61.1 I B4A08.B4A07 

I 32.20.61.1 I B4A08 

I 32.20.61.1 I B4A08,B4A07 

-I • ■ ~ — I ■ 

I 32.20.61.1 I B4A08 

-I ■ 1 ■ 



I 340 I B4A08D STUCK AT MINUS Y 

I 341 I B3E23Q TO B4A12F 
I I OR 

I I B4B13L STUCK AT MINUS Y 

I I OR 

I I B4B13L TO B4A12G 

1 ^ , , 

I 342 I **RESERVED** 

I 343 I B3E27A TO B4A12E 

I I 

I . 1 . — — 

I 344 I ♦•RESERVED** 

I „™ 1 r — 



I 32.20.61.1 I B4A08,B4B07 

I 32.20.61.1 I B4A08 

I 32.20.61.1 I B4A08,B4B07 

I 32.20.61.1 1 B4A08 
-1—^ . 1 

I 32.20.65. 1 I B4A12 

I 32.20.32.1 I B3E23 

T 32.20.61.1 I B4B13 

1 I " 

I 32.20.65.1 I B4A12 ' 

I I 

-I ™— i ~— 

1 32.20.65.1 I 84A12 
I 32.20.34.1 I B3E27 

-1— -I — 

I I 



T 345 I CAN NOT GET READ XLATE 4 VIA I 32.20.65.1 I B4A12 
I I DATA REG 8 NT 1 £ NT T £ NT E I I 

I — ~ I ■ ■ • I ■ 1 ~ 



I 346 I B3E24A TO B4A14H 

I 1 

!„.-.-. X- - 

I 347 I ♦♦RESERVED^ 
I„„I — . ► . . 

I 348 I **RES£RVED** 

I i P — « 

I 349 I ♦♦RESERVED^ 

J . 



I 32.20.66.1 I B4A14 
I 32.20.32.1 I B3E24 

I 1 




* I 350 I B4A07R TO B4B08A 

I- 1 : : 

I 351 I B4B07G TO B4B08B 

I -I-*—-—* — • * : 

I 352 I B4B07C TO B4B08D 

| 1 -^.w— »-~-^ 

I 353 I B4B08C STUCK AT MINUS Y 

I 

I 354 I B4B08C STUCK AT PLUS Y 



I 32.20.61.1 I B4B08.B4A07 

.1 1 • »- 

I 32.20.61.1 I B4B08»B4B07 

I 32.20.61.1 I 84B08.B4B07 

T 32*20.61.1 I 84B08 



I 32.20.61.1 I 84B08 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2821-2540 READER PUNCH SCAN 



I 3 

I 356 I 
I 1 



I- 



-—I 



B4A07F 


TO 


B4B08Q 


B4A07C 


TO 


B4B08R 


B4A07G 


TO 


B4B08H 



I 358 I B4B08P STUCK AT MINUS Y 

I 359 I B4B08P STUCK AT PLUS Y 

I — ■ 1 > « 

I 360 I ♦♦RESERVED** 

1 .i , . 

1 361 I **RESERVED** 



I 362 I B4A07R TO B4B13H 

I ! OR 

1 I CAN NOT GET READ XLATE 4 VIA 

I I DATA REG 8 £ NT 2 £ NT T 6 

I I NT E 

I — — • — — 

I 363 I **RESERVED»* 

I 364 I **RESERVED»* 

I — I — — -»™^~_* _ — 

I 365 I ««RESERVED»* 



I 366 I **RESERVED** 

I — I — ■ 

I 367 I ♦♦RESERVED** 

X i „ , — . — 

I 368 I B4B09P TO B4C14R 
I I OR 

I I B4B22A STUCK AT PLUS Y 

| 1— — . — 

I 369 I B4C14A STUCK AT MINUS Y 
I I OR 

I I B4C14A TO B4B22C 

I i , 

I 370 I **RESERVED«* 

| 1 _ — 



I 371 I B4C14C STUCK AT MINUS Y 
I | .* . — 

I 372 I B4A09P TO B4C23D 

I 1 — - — — 

I 373 I B4C23E STUCK AT PLUS Y 

I 374 I B4B09P TO B4C23P 

I 1 , — 

I 375 I B4C23Q STUCK AT PLUS Y 

I 1 ~ — - — 



I 376 I B4C13G TO B1F10F 

I I 

I 377 I ALWAYS GET READ XLATE 5 

I — 1 * > i — •« ^ 

I 378 I B3E24A TO B1G29A 
I I 

I 379 I **RESERVED»* 

I 1 — • 

I 380 1 **RESERVED** 

I — * * I — — . ~- « — - 

I 381 I ♦♦RESERVED** 

I 382 I ♦•RESERVED** 



32.20. 61.1 I B4B08,B4A07 

32.20.61.1 I jB4B08,B4A07 

I : 

32.20.61.1 I B4B08,B4A07 

. . 1- 

32.20.61.1 I B4B08,B4C09 

32.20.61.1 I B4B08,B4C09 



I 

I — — ~ 



32.20.61.1 I B4B13sB4A07 
I 

32*20.65.1 I B4A12 
I 
I 

I 

' I 

1 — s 

I ' 

I 
I 

.62.1 I B4C14,B4B09 

I 

.62.1 I 84B22 

.62.1 I B4C14 
I ' 



32.20. 
32.20. 
32.20. 

32.20.62.1 I B4B22 f B4C14 



32.20.62.1 I B4C14 

32.20.62.1 I B4C23.B4A09 

„ 

32.20.62.1 I B4C23 

— — 1 — >— — 

32.20.62.1 I B4C23,B4B09 

32.20.62.1 I B4C23 

b — 

32.11.14.1 I B1F10 
32.20.66.1 I B4C13 

32.11.14.1 I B1F10 



.10.1 I B1GI9 



I 383 1 B4C13G TO B1G29L 
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♦♦RESERVED** 
♦♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 



•♦RESERVED** 
♦♦RESERVED** 



♦♦RESERVED** 
••RESERVED** 



♦♦RESERVED** 



B4B08C TO B4A11A 



B3E27Q TO B4A11D 
ALWAYS GET READ XLATE 1 



NEVER GET READ XLATE 1 VIA 
MINUS Y DATA REG NOT 2 IOWES 
AND MINUS Y DATA REG NOT 9 



♦♦RESERVED** 



♦♦RESERVED** 



B3E27A TO B4A12B 



•♦RESERVED** 



♦♦RESERVED** 



B4A08B TO B4A13A 

OR 

B4A08D TO B4B19Q 



B3E27A TO B4A13B 

B4A13G STUCK AT MINUS Y 

♦♦RESERVED** 



B3E23L TO B4A14D 



♦♦RESERVED* 



B4A14C STUCK AT MINUS Y 



32.20.66.1 I B4C13 



32.20 
32.20 



.64.1 I 
61.1 I 



B4A11 

B4808 



32.20. 

32.20. 



32*20* 
32.11. 



64.1 I 

34.1 I 

32.20.64.1 I 

I 

.62*1 I 

12.1 1 
— I- 



B4A11 
B3E27 



32.20, 



32.20. 
32.20, 



32.20, 
32.20, 

32.20, 
32.20, 

32.20. 
32.20, 

32.20. 



32*20, 
32.20, 



32.20, 



♦♦RESERVED** 



64.1 I 

I 
I 

I 

I 

— — 1- 
.65.1 I 
.34*1 I 
— I- 

I 

I 

~— I- 
65.1 I 
61.1 I 
65.1 I 
61.1 I 

65.1 I 
34.1 I 

65.1 I 

I 

66.1 I 
32.1 I 

— I- 

I 

66.1 I 
— ~— -I- 

■ I 



B4A11,B4B11»B4C08, 
B4C14 

B4B22 
B1D09 

B4A11 



B4A12 
B3E27 '■ 



B4A13 
B4A08 
B4B19 
B4A08 



B4A13 

B3E27 



B4A13 



B4A14 
B3E23 



B4A14 



I 

— I 
I 

—I 

I ' 
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DATE 
EC 



411 



412 



■413 



B3E23E TO B4B10A 

OR 

B3E23Q TO 84C11L : 



83E23E TO B4B10A 



B3E23L TO B4B10R. 
•^RESERVED** 



417 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG NOT 0 AND 
NOT 8 NOT 9 AND 1 

84B23C TO B4810B' 



B4C23E TO 848106 



•♦RESERVED** 



CAN NOT GET READ XLATE C VIA 
MINUS Y DATA REG 2£3&4£5&6&7 

AND NOT 8 MOT 9 

■ 64C23E TO B4B10P 



B4B08P TO B4B10D 



B3E27A TO B4B10Q 



. «*R£SERVEO*« . 



CAN NOT GET READ XLATE 0 VIA-' 
MINUS Y DATA REG 2£3£4S5£6£7 

AND 2 AND 8 



B4B08P TO B4B11D 



428 



B4C23E TO 84Bllr 



B3E27L TO B4B11E 



♦♦RESERVED** 



CAN NOT GET READ XLATE 1 VIA 
MINUS Y DATA REG 2 ZONES AND 
2&3&4&5&6C7 AND 9- 



83E27L TO B4BUE 



. f _~ 
I 32. 
I 32. 
I 32. 
I 32. 

I 32, 
I 32* 

I 32. 

I 32, 

1 

I -32. 

I 
I 

-I— - 

1 32, 
I 32. 

» I— 
I 32. 
I -32, 

- 1— - 
I 

I 32. 

I 
I 

*I— 
I 32. 

I 32« 
- 1— 

I 32. 

I 32. 
•I~ 

I 32 

I 32 
- I 

I ; 

1 32 

I 

I 

I 32 
I 32 

I 32 
I 32' 
* I •« 

I 32 

■I 32 

•I' 
I 

-I— 
I 32 
I ' 
I 

-I 

I 32 



20.63.1 

20.31,1 
20.63,1 

20.32*1 



-I—— — 
I B4B10 
I B3E23 
I B4C11 
I B3E23 
1— — 



20.63.1 

20.31*1 



20*63*1 
20.32.1 



20.63*1 



20.63.1 



20.63.1 

20*62*1' 



20«63»i 



,20*63.1' 
20.62.1 



I B4B10 
I B3E23 

I B4B10 
I B3E23 
-I- 

I 

-I — 
I B4B10 

I 

I 

I B4B10 

I B4B23, 

I 84810 • 
I B4C23 

I 

I— — 
I B4B10' 

I 

I ■ 

1 B4B10 

I 84C23' 
I — 



.20.63.1 
20.61.1 



I 84810 
I B4B08 



.20.63.1' 

20*34*1 



I B4B10 

I B3E27 ■ 

I 



,20*63.1 



20.64.1 



I 84B1© 
I 

1 • " 

1 B4B11 

I 84808 



20.64.1 
20.62*1 



I B4B11 

I '84C23 



20.64.1 

20*34*1 



I &4B1X 
I 83E27 



20«64.1 



I 

I B4B11 

I 
I 

-I- 

20.64.1 I B4BX1 



B3E27A TO B4B11B 

OR 

B3E23L TO B' &UQ 
OR 

B4B08C TO B4U1L 



32- 



I 32, 

I 32, 

I 

I 32, 

I 32, 



20.64.1 

2-0.34*1 
20.32*1 

20.64.1 

20,61*1 



I -84811 " 
I B3E2? 
I B3E23 
I 

I B4A11 

I B4B08 



—I 

I 
I 
I 
I 

— -I 
1 
I 
1 
I 
I 

— I 
I 

-1 
I 

I 
I 

I 

' I 

I 
I 

1 

I 

' I 
I 
I 

—I 
I 
I 
I 

- I 

I ' 

— I 
I 
I 
f 
I 

I 
I 
I 

I 
I 

--—-I 

I 
I 

--—I 

1 
I 

— 

i 

i 

i 
i 

i 

—I 
i 
i 
i 

■ r. 

•"" : I 
I 



■ 15JUL65 ■ 

12426S 



17MAR66 
125643 
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442 - I B3E22E TO B4B12A 



I 432 
I 

1 — 

I 433 

I 

I 

I 

I ' 434 
I — 
I 435 
I 

I ■■' 

I ' 436 

1 

I 437 

I 438 

I ■ 

1 439 

.1 440 
I — 
I 441 

I 

r ■ 
i- 

I : 
I • , 
I*- — - 

I 443 

I 

I - 
I 

■ 

' I 444 
I 

I 445 
* 

I 446 

I 

I 

I 447 

I • 
I 

I 

f — 
I 448 
I 

I 449 

I 

I 450 
I — — 
I 451 
I 

2 

I 452 
I 



B4B08P TO 84811A 



B3E23Q TO B4B11C 

OR - - 

B3E27E TO B4B11R 



♦•RESERVED** 



CAN NOT GET READ XLATE 1 VIA 
MINUS Y DATA REG 9 AND 8 AND 
2 ZONES AND NOT 1 



B3E27L TO B4B11G 



••RESERVED** 



B4B08P TO 84B11L 



♦•RESERVED** 



'••RESERVED** 



CAN NOT GET READ XLATE 1 VIA 
MINUS Y DATA REG 9 AND 1 AND 
2 ZONES AND NOT 8 - 



B3E23A TO B4B12R 
OR 

B4B22A TO 84807P 



B4C23Q TO B4B12B 



NEVER GET READ. XIATEV 3 ■ 



CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG NOT T 
AND 0 .AND 1£2£3£4£ 5£6£7£8£9 

84C23Q TO B4B128 
OR 

83E22L TO 84812? 



B3E22A TO B4B12G 



B3E22Q TO B4B12H 



••RESERVED** 



CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG 1£2£3£ 
4£5£6&7£8£9 AND T AND NOT E 



B3E22Q TO B4B12D 
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'DATE - 
EC 



453 

454 
455 



456 



457 



458 
459 

460 
461 
462 



463 



464 
465 
466 

467 



469 

470 
471 

472 



B4A08C TO B4B12Q 



♦•RESERVED** 



CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG NOT E 
AND T AND 0 

B3E27A TO B4B19R 



••RESERVED** 



B4B19P STUCK AT MINUS Y 
♦•RESERVED** 



•♦RESERVED** 



♦♦RESERVED** 
B3E27A TO B4C10D 



- 1 - 

I 32. 
I 32. 

I 

-I 

I 32. 

I 
I 

-I— 

I 32. 
I 32, 

-I - 

I 

-I 

I 32, 

-I— — 
I 

-I- 

I 

•I—- 

I 
•I 
I 



20.65.1 
20.61.1 



20.65.1 



20.65*1 
20*34,1 



20.65,1 



B3E27Q TO B4C10P 



►♦RESERVED** 



•♦RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG 8 AND NOT 9 
AND T AND E 



20. 63.1 



B3E23L TO B4C10L 

OR 

B3E22E TO B4C11F 
OR 

B3E22Q TO B4C11R 



B4A08C TO B4C10E 



B3E27Q TO B4C10F 



••RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG 1 AND T AND 

0 AND NOT 9 

B3E27Q TO B4C11D 



32. 
I 32, 
-I-— 
I 32, 
I 32, 

-I~ 

I 

-I 

I 

-I— - 
I 32. 
I 
I 

- 1— 
I 32. 
I 32. 
I 32. 
I 32. 
I 

-I— 
I 32. 

I 32* 

I 32. 
I 32. 
-I— — 

I 

I 32. 

I 

I 

-I 

I 32. 
I 32. 



20.63.1 

20*34.1 



20.63.1 

20.34*1 



20.63.1 
20.32.1 

20.63*1 
20.32.1 



I B4B12 
I B4A08 

I 

1 B4B12 
I 

I 

-I—™ -~ 

2 B4B19 
I B3E27 

-I— « 

I 

I B4B19 
*I — 
1 

-I— — 
I 

-I— - 
I 

• I— — 
I B4C10 
I B3E27 

-I— 

I B4C10 
I B3E27 

I - 

■I— — 
1 

■I- — ~ > 

I B4C10 
I 
I 

I- — 

I B4C10 
I B3E23 
I B4C11 
I B3E22 • 
I 

*I-r 



I 
I 

I 

I 
I 
I 

———I 
I 
I 

—I 

I 

I 

I 

I 

—-—I 

' 1 

*™ 1 

. I 



20.63.1 

20,61.1 



20.63.1 
20.34.1 



20.63.1 



20.63.1 
20.34*1 



I B4C10 

I B4A08 

I B4C10 
I B3E27 

-I- - 

I 

I B4C10 

I 

I 

-I 

I B4C11 
I B3E27 



♦ •RESERV'ED** 
B4A08F TO B4C11E 



.20.63.1 
.20.61*1 



•♦RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG NOT 9 AND 
NOT T AND E AND 0 



I 

-I 

I 32, 
I 32.; 

I 

. j 

I 32.20.63.1 

I 
I 



I 

I ■ 

I B4C11 
I B4A08 

I 

I ■ 

I B4C11 

I 

I 



5JUL65 
24265 



17MAR66 
125643 
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DATE 
EC 



477 



478 



B3E23L TO B4C11C 



B3E27E TO B4C11B 



479 I B4A08F TO B4C11E 



480 



482 



B3E22E TO B4C11A 



••RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG 1 AND NOT 8 
AND E AND 0 AND NOT T 

B4B23C TO B4C11G 



B3E23A TO 84C11Q 



♦♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 

CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG NOT 8 AND 
NOT 9 AND 0 AND NOT 1 AND 

NOT E 



B3E22L TO B4C12E 
OR 

B4B22A TO B4C12B 



B4C23Q TO B4C12F 



B3E23E TO B4C12L 



♦♦RESERVED** 



CAN NOT BLOCK READ XLATE 2 
VIA MINUS Y DATA REG E AND 
162£3£4£5£6£7 AND NOT 0 



B4A08A TO B4C13E 
B4823C TO B4C13F 
B3E25Q TO B4C13H 



B3E25E TO B4C13L 



498 



B3E23E TO B4C13Q 



B3E23Q TO B4C13R 



. i~ 1— 

I 32.20.63.1 I B4C11 I 

I 32.20.32.1 I B3E23 I 

I 32.20.63.1 I B4CI1 I 

I 32.20.34.1 I B3E27 f 

I 32.20.63. I I B4C1I I 

I 32.20.61. 1 I B4A08 I 

. J 1 ^^„_™„_„ | 

I 32.20.63.1 I B4C11 I 

I 32.20.31.1 I B3E22 I 

I I I 

1 32.20.63.1 I B4C11 I 

I I ' ' I 

I I •". !,- 

I 32.20*63.1 I B4C11 I 

I 32.20.61.1 I 84B23 . I 

I 32.20.63*1 I B4C11 ■ ! 

I 32.20.31*1 I B3E23 I 

. | i 

I T- . 1 i 

I I ■: I 

I '• . I ;. . , .1 ' 

I 32.20.63*1 I B4C11 ' I 

I I I 

I I I 

I I 1 

, | ____ I i 

I 32.20.64.1 I B4C12 ' I 

I 32.20.31.1 I B3E22 ' I 

I 32.20.62.1 I B4B22 ' I 

I 32.20.64.1 I B4C12 I 

I 32.20.62.1 I B4C23 ■ ■ I 

I— 1—-™—— 1 

I 32.20.64.1 I B4C12 . I 
I 32.20.31.1 I B3E23 • I 

I I I 

I 32.20.64.1 I B4C12 I 

I I I 

I I I 

I 32.20*66.1 I B4C13 I 

I 32.20.61.1 I B4A08 I 

I 32.20.66.1 I B4C13 I 

I 32.20.61.1 I B4B23 I 

I 32.20.66.1 I B4C13 I 

I 32.20.33*1 I B3E25 I 

I 32.20.66.1 I B4C13 I 

I 32.20.33*1 I B3E25 I 

I 32.20*66.1 I B4C13 I 

I 32.20.31.1 I B3E23 I 

I 32*20.66*1 I B4C13 ' , ' 1 
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124265 



17MAR66 

125643 
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530 



531 

532 



533 



534 
535 



536 
537 

I 538 

I 

I— - 

I 539 

540 

541- 



DATE 
EC 



542 



544 
545 

546 

547 

548 
549 
550 
551 
552 
553 
554 



555 



CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG NOT 
NUMERIC AND E AND NOT 0 



••RESERVED** 

84C08C STUCK AT MINUS Y 



•♦RESERVED** 
PRESERVED** . 



••RESERVED** 



84C11P STUCK AT MINUS Y 



••RESERVED** 



B4B22A TO B4C12B 



83E22E TO B4C12A 



S4A0SF TO 84C12R 



•♦RESERVED** 




CAN NOT BLOCK READ XLATE 2 
VIA MINUS Y DATA REG NOT 
NUMERIC AND NOT T AND E 
AND 0 



543 I B4A08D TO B4C12G 



••RESERVED** 



♦•RESERVED**" 

CAN NOT BLOCK READ XLATE 2 
VIA MINUS Y DATA REG NOT E 
AND NOT 0 AND NOT NUMERIC 



I 32, 
I 

I 

I ' 

I 32- 
32- 



32 



B4C08A AND B4C14C TO B4C23H 



•♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 

B1G29P STUCK AT MINUS Y 

♦♦RESERVED** 



B3E27E TO B4A11B 



B4C23L TO B4A11C 



556 I ♦♦RESERVED^ 



. ■ 1 
~™ —I- 

20*64*1 iv 
I 
I 
I 

I 
I 



32 



32, 



32 

32 



32. 
32 



20.64,1 
20.61.1 

. i: 
i « 

i 

20.64.1 I 
I 

■ . 1 
20.62.1 I 
I 
I 

. I 

■ I 

31.10.1 I 

— 1- 

I 

20.64,1 I 

20.34.1 I 

20.64.1 I 
20.62.1 I 

I 

. 1- 



B4C12 



B4C12 
84A08 



84C12 



B4C23,B4C08,B4C14 



B1G29 



B4A11 

B3E27 



B4A11 
B4C23 



5JUL65 

24265 



17MAR66 
125643 
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DATE 
EC 



557 
558 



559 



•♦RESERVED** 



CAN NOT GET READ XLATE 1 VIA 
MINUS Y DATA REG NOT 8 AND 
N0T1 AND NOT 2&3&5&6G7 AND 
NOT 2 ZONES 



B3E23E TO B4A12D 



560 
561 

562 

563 



B4A08A TO B4A12Q 



564 
565 

■566 



B4C23L TO B4A12P 



••RESERVED** 

CAN NOT GET READ XLATE 4 VIA 
MINUS Y DATA REG NOT 0 AND 
T AND E AND NOT 1 AND NOT 
2£3£4£5£6G7 . 

♦♦RESERVED** 

••RESERVED** 



567 
568 

569 
570 

571 
572 



♦♦RESERVED** 
••RESERVED** 



B4B12C STUCK AT MINUS Y 

♦♦RESERVED** 

ALWAYS GET READ XLATE 6 



♦♦RESERVED** 



ALWAYS GET READ XLATE 7 



573 



574 



575 



576 



577 



578 



579 



580 



♦ ♦RESERVED^ 



B3E27A TO B4C10A 

OR 

B3E27L TO B4C10H 



B3E27Q TO B4C10R 
OR 

B3E27E TO B4C10G 



♦♦RESERVED** 



♦♦RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG 8 AND NOT 9 

AND NOT 1 AND NOT 2£3£4£5£667 



B4C23L TO B4C10B 



5JUL65 
24265 



♦♦RESERVED** 



17MAR66 
125643 



32.20.64.1 



32.20. 

32*20* 



32.20, 
32.20, 



32*20. 

32*20. 



32.20, 



32.20 



I 

•I- 

I 
I 
I 

I 

— I- 

.65.1 I 
,31,1 I 
— -1- 
►65.1 I 
.61.1 I 

►65.1 I 
►62.1 I 
— -- I- 

I 

►65*1 I 
I 
I 

I 

I 
I 

■ I 
I 

— I- 
65.1 I 

— I- 
I 



B4A11 



B4A12 
B3E23 



34A12 

B4A08 



B4A12 
84G23 



B4M2 



84B12 



32.20. 

32.11* 



32.20, 
32.11, 



32.20 
■32.20, 
32,20 
32.20 



32.20 
32.20 



32.20 



32.20, 
32.20, 



66.1 I 
15.1 I 
~— — I- 
" I 

1- 

66.1 I 
I 

.15.1 I 

1- 

I 

.63.1 I 
.34.1 I 
.63.1 I 
.34.1 I 

1- 

.63*1 I 
.34.1 I 
I 

— — I- 
I 

I 

-I- 

,63.1 I 
I 

. . I 

I 
I 

-I- 

I 

• I* 



B4813*B4C13fB4A14 
B1G11 



B4B13,B4A14tB4C08 9 

B4A10 f B4B14 

B1G11 



B4C10 
B3E27 
B4C10 

83E27 

B4C10 
B3E27 



B4C10 



63.1 

62.1 



B4C10 
B4C23 



ID F804-* 
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DATE 

EC • 



581 
582 
583 

584 
585 

586 

587 

588 

589 

■590 

591 

592 

593 
594 



►♦RESERVED** 
►♦RESERVED** 



CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG NOT 1 AND 
NOT 263£4£5C6£7 AND 9 AND 

NOT 8 



♦♦RESERVED** 




♦♦RESERVED** 



♦•RESERVED** 



♦♦RESERVED** 
ALWAYS GET READ XLATE 2 



•♦RESERVED** 
B3E27L TO B4C16Q 

B4C23L TO B4CI6P- / 

B4C16R STUCK AT MINUS Y 



♦♦RESERVED** 
♦♦RESERVED** 



595 
596 
597 
598 
599 
600 



601 
602 
603 
604 
605 
606 
607 



608 
609 



610 
611 



♦♦RESERVED** 

B4A11R STUCK AT MINUS Y 



♦♦RESERVED** 
♦♦RESERVED**' 
♦♦RESERVED** 
♦♦RESERVED** 
♦♦RESERVED** 
B4A12C STUCK AT MINUS Y 



♦♦RESERVED** 
♦•RESERVED** 
♦♦RESERVED** 



♦♦RESERVED** 
♦♦RESERVED** 



B4C10C STUCK AT MINUS Y 



♦♦RESERVED** 
♦♦RESERVED** 



♦♦RESERVED** 



B4C10 



32*20.64.1 
32. 11.13. 1 



32.20.65.1 
32.20.34.1 



32.20.55.1 
32.20.62.1 



'32.20.65.1 



32. 20. 64.1 



32.20.65.1 



1 

I B4C12 . 
I B1E10 

!■ 

I B4C16 
I 83E27 

I -B4C16 
I B4C23 

I B4C16 
-I— ~ 

I 

I • 

I • 

I B4A11 
-I— — — - 

I ' 

I 

-I— — < 

I 

I 

•I- 

1 

I B4A12 

I 
I 

~I~ 

I 
-I- 

I 

-I- 

I 



32.20.63.1 



I B4C10 

I 

I 

I 

I 



15JUL65 
124265 
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I 612 I PRESERVED** 

I 613 I »*RESERVED** 
I ^ | . 

I 614 I PRESERVED** 



-I- 



I" 

I 

X- 

I 616 I NEVER GET INVALID CARD CODE 



615 I PRESERVED** 



I 



1 617 t««RESERVED««.' 
1 618 I PRESERVED** 

I — — I — — — 



1 619 1 ••RESERVED** 



-.1- 

I 620 1 B4B12C AND B4B07R TO B1E10F 

I " I • ■■' ■ ,-o\ 

I 621 I PRESERVED** ^ 



-I- 



I 622 I ALWAYS GET READ XLATE 4 



I 

I - ■ i 

l i ^,_„.._^™., 

I 623 1 **RESERVED«* 



1 624 

I ■ 
I • ■ 



ALWAYS GST READ XLATE 0 



1-625 I •»RESERVED*« 



I 626 I ALWAYS GET READ XLATE I 

■X- ■ . ••■ 1 • ■:- ' - . . 

I ... I 
I I 

I 627 I PRESERVED** 

I THRU I - 

I 6.49 1 - 



I 

— *I- 
I 

— I- 

I 

— i- 

■ • i ■.■ 
— i- 
i 

■ i 
-.-i 

■ i 

— i- 

; i 

' i 

I 

I 

■r — 

I 

— > -I- 
I 

1 
I 

— I- 

I 

— I- 
I 

. I 
I 

' i 
i~ 
i 
I 
I. 

™ 1* 
I 
I 
I. 



32« 
32, 



10.1 
34.1 



I B1H31 
I B1C27 



i 

" : I 



I 

~ 1 

' I 
-—I 
I 

— — X 

I 

I 

I 

I 

—I 
I 



I • 



13*1 1 S1E10 • ' I 
65.1 I B4B07.B4B12 ' • 1 



11*14*1 I 81F10 . I 

20.65.1 I B4813*B4A12*B4A13*I 

, • •. " I B4C16 f B4B19 1 

1 ■ X 

11*12*1 X' B1909 . I 

20.63*1 I B4C14,B4B10oB4C10,I 

• • -I B4C11 • I 

. I I 



12*1 
64.1 



I B1D09 I 
I S4C14,S4C08|B4AU,I 

I B4B11 ' ■ . ■ I 

1 ■■ T . . I 

I ■ ' I 

I ■ I 



4*3.6 



ERROR MESSAGES COMMON ONLY TO ROUTINE 05 — PUNCH 
TRANSLATOR FLT—» 



I I 
I ERROR I 
I NO. I 

I — 1« 
i 650. I 
I 
I 
I 
I 



-DESCRIPTION. 



I 
I 
I 
I 

I — 
I 651 



I ' ' 

I ALD PAGE 

. I 

DATA RECORDS 'ARE MISSING OR I 
ARE.- OUT OF SEQUENCE.! THERE 'X -" 
IS A TOTAL OF 135 DATA RECORDS I » 



-1- 

I 

I I 
I I 

I • I 

I 652 I 
I I 

1 -I- 

1 653 I 
I I 



SEQUENCE NUMBERED 031 THRU 

165. 

CAN NOT ISOLATE PUNCH 
TRANSLATOR FAILURE. SET : 
SECTION SENSE SWITCH 2 TO 1 
TO OBTAIN PROGRAM LOG OUT. 



TRANSLATOR CIRCUITS 



NEVER GET CHAN REG 0 AT PUNCH I 32.11.12.1 

••12* I ' 



I 

•I— - 



ALWAYS GET CHAN REG 0 AT PUNCH! 32*11 
TRANSLATOR CIRCUITS I 



CIRCUITS 



I 
I 

I 

— I 
. 1 
I 
I 
1 
I 



— — — — 1 
I 
I 
I 

. I 

B1D09*B1D10* 81D11 ? I 
B1A11 I 
. . _ x 

BlDG9,BlD10*BlDH f I 
B1AU I 





I 654 

I 

I ~ 

I 655 

I 

I 656 
X 

I 
1 

I- 

I 

I ■■ ■ 

I 659 
I 

I 660 

I • - 

■ I .. 661 
I - 

I 662 

I ' 

663 



664 



657 



658 



I NEVER GET CHAN REG 1 AT PUNCH I 32.11.12.1 I B1D09, 81D10 , B1D11 , 

I TRANSLATOR CIRCUITS I I B1A11 

I ALWAYS GET CHAN REG 1 AT PUNCHI 32.11.12.1 I B1D09, BiD10 f BlDll ♦ 

I TRANSLATOR CIRCUITS I I B1A11 

I NEVER GET CHAN REG 2 AT PUNCH I 32.11.13.1 I B1E10.B1E12 t B1H10 , 

I TRANSLATOR CIRCUITS I I B1F09,B1D12 

I ALWAYS GET CHAN REG- 2 AT PUNCHI 32*11.13.1 I B1E10*' B1EI2 * BIHlOt 

I TRANSLATOR CIRCUITS . I . • • I B1F09»B1D12 - 

I NEVER GET CHAN REG 3 AT ■ -PUNCH I •32*11*13.1' I B1E10*B1E12 f B1M10 # 

I TRANSLATOR CIRCUITS I' I B-lF09 f BID12 ' - - - 

1 _™.^«-^^-»^, — I— — 



I ALWAYS GET . CHAN.. REG 3 AT PUNCHI 32.11*13.1 I B1E10»B1£12 ? B1H10* 

I 'TRANSLATOR CIRCUITS' I ' 1- B1E09*B1012 

I -NEVER .GET CHAW REG. 4 AT PUNCH .X 32.11*14.1 I B1F10* B1E12 *B1F09. 

I TRANSLATOR CIRCUITS I I 81H10.B1D12 

I ALWAYS GET CHAN REG 4 AT PUNCHI 32.11.14.1 I B1F10-B1E12 f B1F09* 

I TRANSLATOR CIRCUITS I I B1H10,B1D12 

I — . . i „> 



-665" 



I NEVER GET CHAN "REG- -5 AT PUNCH 1-32*11*14.1 I B1F10*B1G10, 81F09 , 

I TRANSLATOR CIRCUITS I I B1H10,B1F11 

I - ALWAYS GET CHAN REG 5 AT PUNCHI 32*11.14*1 I 81F10.BIG10 .B1F09 , 

X' TRANSLATOR CIRCUITS' I , I B1.HX0*.BX£XI 

. I - „ 1— > I — — ™— 

I NEVER GET CHAN REG 6 AT PUNCH I 32.11*15.1 I B1G11 *B1G10 ,B1E08 , 

I TRANSLATOR CIRCUITS " ! I BlHIO-f'BlFlI ' 

.1 _ w— ™ I— „ ^«.| ~~ 

I ALWAYS GET CHAN REG 6 AT PUNCHI 32-11*15.1 I B1G11 *BXG10 t B1E08 # 

I TRANSLATOR CIRCUITS I I 81H10.B1FH 

. 1 — _- I I — — . ~— 



666 



667 



668 
669 
670 



I NEVER GET CHAN REG 7 AT PUNCH I 32.11*15.1 I 81GU 9 BlG10 f B1H10 « 

I TRANSLATOR CIRCUITS I I B1F11 

1 ALWAYS GET CHAN REG 7 AT PUNCHI 32.11.15.1 I B1G11 .B1G10 » 81H10* 

I TRANSLATOR CIRCUITS I I 81F11 

I NEVER GET MINUS Y BUFFER ENTRYI 32.20*80.1 I B4B22 t B4A21 f B4D22 

I **RESERVED»* I ..X ,■, 



I NEVER GET PLUS Y CHAN REG 0 
I AT PUNCH TRANSLATOR CIRCUXTS 



I 32.11.12.1 I B1D10.B1D09 

I I 



671 

I — 

I 672 

'X 

673 



674 



I ALWAYS GET PLUS Y CHAN REG 0 

I AT PUNCH TRANSLATOR CIRCUITS 

I NEVER GET MINUS Y CHAN REG 0 

I AT PUNCH TRANSLATOR CIRCUITS 

-I 
I 



I 32.11.12.1 

I - 

I 32.11 

I 

I— - 
I 32.11 



I B1D10.B1D09 

X 



L.12.1 



— I 



675 



ALWAYS GET MINUS Y CHAN REG 0 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET PLUS Y CHAN REG 1 I 32.11 
I AT PUNCH TRANSLATOR CIRCUITS I 

I ALWAYS GET PLUS Y CHAN REG 1 
I AT PUNCH TRANSLATOR CIRCUITS 



12.1 

12*1 



I B1D11*B1D09 

.I-,-. 

I B1D11«B1D09 

I ■ 

I B1D10 V B1D09 

I 



676 I NEVER GET MINUS Y CHAN REG 1 
I AT PUNCH TRANSLATOR CIRCUITS 

677 I ALWAYS GET MINUS Y CHAN REG 1 



I 32.11* 

I 

I 32.11, 

I • 

I 32.11* 



— I . . 

12.1 I B1D10.81D09 

1 



-I* 



12.1 



I B1D11*B1D09 

I 

X — 

12.1 I B1D11.81D09 



DATE 
EC 



15JUL65 

12426f 



17MAR66 
125643 
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678 



679 



680 



631 



682 



6*83 



684 



685 



686 



AT PUNCH TRANSLATOR CIRCUITS I 



NEVER GET PLUS Y CHAN REG 2 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET PLUS Y CHAN REG 2 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET MINUS Y CHAN REG 2* 
AT PUNCH TRANSLATOR CIRCUITS 



I 32*11.13.1 

I 

-I — — — 



ALWAYS GET MINUS Y CHAN REG 2 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET PLUS Y CHAN REG 3 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET PLUS Y CHAN REG 3 
AT PUNCH TRANSLATOR CIRCUITS 




- 1- 



NEVER GET MINUS Y CHAN REG 3 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET MINUS Y CHAN REG 3 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET PLUS Y CHAN REG 4 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET PLUS Y CHAN REG 4 
AT PUNCH TRANSLATOR CIRCUITS 



I 32.11.13.1 

I 

I 32.11.13.1 

I 

- 1- — — — 
I 32.11.14.1 

I 

I 32.11.14.1 

I 



688 



689 



690 



691 



692 



693 



694 



695 



696 



697 



NEVER GET MINUS Y CHAN REG 4 
AT PUNCH TRANSLATOR CIRCUITS 



I 32.11.14.1 

I 



ALWAYS GET MINUS Y CHAN REG 4 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET PLUS Y CHAN REG 5 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET PLUS Y CHAN REG 5 
AT PUNCH TRANSLATOR CIRCUITS 



I 32.11.14.1 
I 

I 32.11.14.1 
I 

I 32.11.14.1 

I 



NEVER GET MINUS Y CHAN REG 5 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET MINUS Y CHAN REG 5 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET PLUS Y CHAN REG 6 
AT PUNCH TRANSLATOR CIRCUITS 



ALWAYS GET PLUS Y CHAN REG 6 
AT PUNCH TRANSLATOR CIRCUITS 



NEVER GET MINUS Y CHAN REG 6 
AT PUNCH TRANSLATOR CIRCUITS 



I 32.11.14.1 

I 

I 32.11.14.1 

I 

I 32.11.15.1 

I 

I 32.11.15.1 

1 ' 

I 32.11.15.1 

I 

-I— . — 



ALWAYS GET MINUS Y CHAN REG 6 
AT PUNCH TRANSLATOR CIRCUITS 



I 32.14.15.1 

I 



698 I NEVER GET PLUS Y CHAN REG 7 I 32.11.15.1 
I AT PUNCH TRANSLATOR CIRCUITS I 

699 I ALWAYS GET PLUS Y CHAN REG 7 I 32.11.15.1 
I AT PUNCH TRANSLATOR CIRCUITS I 



B1E12 9 B1E10 



B1E12«B1E10 



B1F09 9 B1H10 9 B1E10 
B1F09 yBlHlOf BIEIO 

B1E12,B1E10 



B1E12 V Bl'ElO 



BlF09 9 BlH10tBlE10 
BlF09tBlH10f B1E10 



B1E12,B1F10 



B1E12 9 B1F10 



B1F09 9 B1H10,B1F10 



BlF09»BlH10tB-lF10 
B1G10 9 B1F10 



B1G10 9 B1F10 



B1F09 9 B1H10,B1F10 

BlF09»BlH10 f BlF10 

B1G11 V B1G10 

BIGlltBlGlO 

B1E08 9 BIH10»B1G11 



B1E08, B1H10,B1G11 



B1G10»B1G11 
BlGlOt&lGll 



I 700 I NEVER GET MINUS Y CHAN REG 7 I 32.11.15.1 I B1G10 9 B1H10,B1G11 I 
I I AT PUNCH TRANSLATOR CIRCUITS I I I 

I-^.— !^ - „ _ • I — ~ ^-j—^™-™. — X 

I 701 I ALWAYS GET MINUS Y CHAN REG 7 I 32.11.15.1 I B1G10 V B1H10 f B1G11 I 
I I AT PUNCH TRANSLATOR CIRCUITS I I I 

I 702 I *«RESERVEO»* I I I 

, i 1 >- j j 

I 703 I ♦•RESERVED** I I I 

— . ; i „„_„^„_«„. , 

I 704 I **RESERVED«* I I I 

■ i _ .j . _ _ ____ I— — — - 1 — -- — - 1 

I 705 I «*RESERVED*» I I I 

I i — i — I i 

I **RESERVED*« I I I 

I' — — — -^ rI -.« 

I **RESERVED«* I I f 

I ••RESERVED** I I f 



1 706 
I 707 
I 708 
1 709 
I 710 
711 



712 



I ••RESERVED** 

— .... — 

I «*RESERVED»* 
. I 

I . ••RESERVED** 

•I- - — 

I **RESERVED*» 



I 



'713 



I ••RESERVED** 



714 I 81E12Q TO B4A17F 

"'I ■ 

715 I B1G10L TO B4A17H 

■ I 



' I 
I 

I I 

I I 
. I—_ ™_ I 

I 32.20.70.1 I B4A17 . 
I 32.11.14.1 I B1E12 

I 32.20.70.1 I B4AI.7 
I 32.11-15.1 I B1G10 



——I 
I 

' I 

I 

• I 

*— — I 

' I 

~I 

I 

V I 

■ I 

' I 



716 



717 



718 
719 

720 

721 
722 

723 

724 

725 



I B1G10A TO B4A17L 
I 

I B1G10E fO B4A17Q 
I 

» I — 

I B4A17P STUCK AT MINUS Y 

I B4A17P STUCK AT PLUS Y 

. J — ^ 

I B1G10E TO B4B14F . 

I 

. i 



I 32.20.70.1 I B4A17 
• I 32.11.14.1 I B1G10 

- 1— — — I — —~ ... 

. I 32.20.70.1 I B4A17 

I 32.11.15.1 I B1G10 

I 32.20.70.1 I B4A17 



. I 
I. 

— I, 

I ' 



I B1G10A TO B4B14E 

I 

I B1G10L TO B4B14G 
I 

I~ — — -— . 



I 32.20.70.1 I B4A17 
I--———-— I ; 

• . I -32.20.70.1 1 B4B14 

"I 32.11.15.1 'I B1G10 ' 
, j — . — — ^i^^.^^: 



I 32.20.70.1 I B4B14 
I 32.11.14.1 I B1G10 

I 32.20.70.1 I B4B14 
' I 32.11.15.1 I B1G10 

« -»S_ .j ; 



I B4B14L STUCK AT MINUS Y I 32.20.70.1 I B4B14 

I B4B14L STUCK AT PLUS Y 
— ^ «^ 



I B1D10A TO B4A13H 

I , . 

726 I 81D11P TO B4A13L 

I 

_ i — . . 

727 I B4A13F STUCK AT MINUS Y 

I 728 I B4A13F STUCK AT PLUS Y 



I 32.20.70.1 I B4B14 

I 32.20.70.1 I B4A13 

I 32.11.12.1 I B1D10 

I 32.20.70.1 I B4A13 

I 32.11.12.1 I 81D1.1 



I 32.20.70.1 ,1 B4A13 
I 32.20.70.1 I B4A13 



DATE 
EC 



15JUL65 

124265 



17MAR66 
125643 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM 
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DATE 

EC 



B4A13R STUCK AT MINUS Y 
B4A13R STUCK 'AT PLUS Y. ■ 



■ 32*20* 
32*11* 



32*20. 
32.11. 



32*11. 



B4A13 
B1D11 



B4A13 

B1D11 



B4CQ8»B4A13 f 84815 
B1E12 



1 ?4I 
I ' 742 
I T43 

1 ■ 

"1 

I 
I 



B4B16F 



STUCK AT MINUS 


B4B16F 


STUCK' AT Pi US '' -V : ; 


B1G1CA 


TO B4B16P 


B1G10E 


TO B4616Q . 


B4B16R 


STUCK AT "MINUS Y 


- B4816R STUCK AT ptUS;Y- ■ ■ 


B1E12A T.O, B4AUG 



744 I B1-E12E Td B4A11H 

I" ■ . • . 



I 745 1 NEVER GET PUNCH TRANSLATE 11 

i .- r ■ 
s • I 

I 746 I CAN^ H qj BLOCK PUNCH TRANSLATE 
I I 11 VIA PLUS ¥ CHAN REG 2 AND 3 

I 747 I B1010A- TO -84C22D 

I • 1 ■ 

I 748 I B1D10E TO B4C22P-'- ■ 
I I 

1 _* — | — ^^^^^^^^'^^ 

I 749 I ALWAYS GET PUNCH TRANSLATE 9 
I • I 

I 750 I CAN NOT GET PUNCH TRANSLATE 9 

I I VIA MINUS Y NOT CHAN REG 0 

I • ... I AND 1 

I *-^-~t-*--* - ~ - -*.~+* _*^i^* i -^~ r *--. 

I 751 I 
I—™ I 



B4A17P TO B4C15R 
B4C15A STUCk AT MINUS Y 



B4B14L TO B4C15P 



32.20. 



32.20* 
32.il. 



B4C08 



84B16 
B1G10 



32® 20* 
32.11. 



.32*11* 



32.20. 

32. :U. 



B4816 
B1G10 ■ 



B4B16 



B4B16 



B4B16 
B1G10 



B4B16 ' 
B1G10 



32*20, 
32.2'0« 



32.20. 

32*11. 



32*20* 
32 . 1 1. 



32*20. 
32.20. 



71.1 I 

— I- 
-73.1 I 

,13.1' I 

.73.1 I 
13.1 I 
I- 

.31*1 I 
73.1 I 

I 

32.2G : .73*1 I 
I, 

77.3 I 

,12.1- I 

77.1 I 

12.1 I 

32.2*0*34.1 I 
32.20.77.1. I 

32.20*77.1 I 
I 
I 



B4B16 

848 16 



A4A11- 
B1E12 



B4A11 

B1E12 



B3E18 

B4A18.B4C17,B4B17» 

B4A11 



B4AU- 



32.20. 
32 . U« 



32.20. 
32.11. 



B4C22 ' 
81010 



B4C22 

B1D10 



B3E20 

B4C22»84C21»B4A21 
B4C22 



32*20. 
32*20. 

32*20. 



70.1 I 
----- I* 
70.1 I 
— — I- 
70.1 I 



B4C15 t 84A17 
B4C15 

B4C15«B4B14 



15JUL65 
124265f 



17MAR66 
125643 
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754 
755 



756 I B1E08Q TO B4B14Q 



757 



758 

759 

760 
I'- 

■ I '76 1. 
I 

I 762 

I 763 

I 764 
I — 
I 765 

■■I- - 

J : . ; 766 

I 767 

■I : .7.68 
I 769 

I 770 

I ■ 



I 771 
I 

' I ' 772 
T 
I 

I 773 
I 

I ■ 

I 774 

I 

I 775 

r ; 

I 776 

r 
i 

i— 

I 777 

I 
I 

I 778 

I 



B4C15C STUCK AT MINUS Y 
B1G10A TO B4B14H 



B1G10L TO B4B14R 

B4B14P STUCK AT MINUS Y 

B4B14P STUCK- AT PLUS Y ' 
B1F09A TO B4A13D 



BIE12E TO,- B4A1.3E 



B4A13C STUCK AT MINUS Y 
B4A13C ■ STUC.K ; . ; .At: : ' PLUS Y 
84A13P TO 84A23Q'' 
B4A23P : STUCK AT; MINUS Y 
B4A13R TO B4A23R 




B4A23D STUCK 


AT 


MINUS 


y ; 


♦^RESERVED** 

; Wilis a stuck;; 


AT MINUS 


Y 



81F09-A TO B4816A 



B1D10A TO B4B16B 



B4B16G STUCK AT MINUS Y 

OR 

B4816G TO B4B15P 

B4B16G STUCK AT PLUS Y 
OR 

B4B15C STUCK AT MINUS Y 
B1D10A TO B4816D 



B1F09L TO B4B16E 



B4B16C STUCK AT MINUS Y 
OR 

B4B16C TO B4B23R 



B4B16C STUCK AT PLUS Y 

OR 

B4B23A STUCK AT MINUS Y 



B4B16R TO B4C08E 
OR 



I B4B22-B4C08.B4B16 

1 
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EC 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2821 — 2540 READER PUNCH SCAN 

I I B4B22Q STUCK AT PLUS Y I I I 

I 779 I B4C08D STUCK AT MINUS Y I 32.20.71.1 I B4C08.B4B22 I 

I I OR I I I 

I I B4C08D TO B4B22P I I I 

I 1 — , , . _ , 1 1 - x ' 

I 780 I B4B16R TO B4C23C I 32.20*71.1 I B4C23,B4816 I 

I 781 I B4C23A STUCK AT PLUS Y I 32.20.71.1 I B4C23 I 

I ! _ — ~ : 1 . — 1-_ — .-J 

I 782 I BIF09E TO B4A17D I 32.20.72.1 I B4A17 I 

t I I 32.11.13.1 I B1F09 I 

I 783 I B1D10E TO B4A17B I 32.20.72.1 I B4A17 I 

I I I 32*11.12.1 I B1010 • I 

1 — I — ~ — — - 1- -I— ~i 

I 784 I B1D10A TO B4A17A I 32*20.72.1 ! B4A17 I 

1 ■ I .. I 32.11.12.1 I B1D10 ■ I 

1 785 I B4A17P TO B4A17C I 32*20.72.1 I B4A17 I 

! - I >s I 32.20.70.1 I I 

I — I . I — — — * I - — 1 • 

I 786 I B4A17G STUCK AT MINUS Y . I 32.20.72.1 I B4A17 I 

I 787 I NEVER GET PUNCH TRANSLATE 12 I 32.20.31.1 I B3E18 ' I 

I I I 32.20.72.1 I B4A16.B4C16 • I 

I 788 I B1F09E TO 84B18G I 32.20.74.1 I B4B18" ■ I 

II I 32.11.13.1 I B1F09 I ■ 
1 i . i _____ i — — - 1 

1 789 I B1E12A TO B4818B I 32.20*74.1 I B4&18 • I 

.II. .1 32.11*13*1 I B1E12 . I 

I 790 I B4A13R TO B4B18H I 32.20.74.1 I B4B18 I 

I I OR I 32.20.70.1 I B4A13 I 

I I B4C23A TO B4B18R I 32.20.71.1 I B4C23 I'- 

. I 791 I NEVER GET PUNCH TRANSLATE 0 ' I 32.20.31.1 I B3E18 I 

I I 'I 32.20.74.1 I B4B18*B4C18*B4A19 I 

I 792 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.74.1 I B4B18 I 

I I 0 VIA MINUS Y CHAN REG 3 AND I I I 

I I NOT 2 AND NOT 0.1 I I I 

I . ~~ I — ■ j . , 1 ~ X 

I 793 I B1F09L TO B4C19E I 32.20.75.1 I B4C19 I 

I I OR I 32*11.14.1 I B1F09 1 

I I B4A13R TO B4C19H I 32.20.70.1 I B4A13,B4B22 " I 

I I OR I I I 

I I B4B22L TO B4C19A I I I 

j. 1- . — — — ^_.™ S 

I 794 I B1G10E TO B4C19F I 32.20.75.1 I B4C19 I 

I I I 32.11.15.1 I B1G10 I 

I 795 I NEVER GET PUNCH TRANSLATE 2 I 32.20.32.1 I B3E19 I 

I I I 32.20.75.1 I B4C19.B4A20 I 

I 796 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.75.1 I B4C19 I 

I 12 VIA MINUS Y CHAN REG 4 AND I I I 

1 I NOT 6 II I 

. ■ j^^—j™ ~ x _ ... — ,j_ J 

I 797 I B1G10E TO B4C19G I 32.20.75.1 I B4C19 I 

I I I 32.11.15.1 I B1G10 I 

I 798 I ♦♦RESERVED** I I 1 

1799 I PRESERVED** I I I 

I 800 I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.75.1 I B4C19 1 

DATE 15JUL65 17MAR66 

EC 124265 125643 
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2821 - 2540 READER PUNCH SCAN 



801 
802 



803 



804 



805 



806 

I 807 

1 - 

I— - 



I 808 

! 

I — 



809 



810 



I 811 
I 

I 812 



813 
814 

815 

816 
817 

818 

819 



821 

822 



2 VIA MINUS Y CHAN REG NOT 6 
AND NOT 0.1 

♦♦RESERVED** 

B4A20C STUCK AT MINUS Y 

B1G10A TO B4B20A 

OR 

B1G10E TO B4B20R 
OR 

B1G10L TO B4C20D 
B1E08Q TO B4B20D 



B1G10Q TO B4B20B 

NEVER GET PUNCH TRANSLATE 3 

ALWAYS GET PUNCH TRANSLATE 3 



I 
I 

I 

-I— 

I 32, 

-I 

I 32, 
I 32, 

I 32, 
I 
I 

• I 

I 32, 
I 32, 

I 32, 
I 32, 

I 32. 

32. 



I 
I 



BIF09Q TO B4B20E 



B1G10L TO B4B20G • " 

B1G10E TO B4B20F 

NEVER GET PUNCH TRANSLATE 4 

ALWAYS GET PUNCH TRANSLATE 4 

••RESERVED** 

B1F09Q TO B4B20H 

B1G10Q TO B4B20Q 



I 

-I— — 
I 32. 

I 32* 
— 
I 32. 
I 32. 
•1— ~ 
I 32, 
I 32, 



20.75.1 I 

. 1 

20.76.1 I 

,11.14.1 I 
,11.15.1 I 

I 

I 

20»76.1 I 
,11.15.1 I 

20.76.1 I 

11.15.1 I 

,20.32.1 I 
20.76.1 I 
— — — I- 
20.32.1 I 
20*76.1 I 

20.76.1 I 
11.14.1 I 



B4A20 



B4B20 f B4C20 
B1G10 



B4B20 
B1E08 



B4B20 
B1G10 



63E19 ■ 
B4A20,B4B20 



B3E19 • 
B4A20.B4820 



B4&20 
81F09 



20.76.1 I 
11.15.1 I 



B4B20 

BiGlO 



NEVER GET PUNCH TRANSLATE 5 



ALWAYS GET PUNCH TRANSLATE 5 



I 32. 

I 32. 

- 1 

I 32. 
I 32. 

* |- — - — 

I 32. 
I 32. 

I 

-I— — 
I 32. 
I 32. 

-I — — 
I 32. 

I 32* 

I 32. 



— — — I- 
,20.76.1 I 
11.15.1 I 

I- 

,20*33.1 I 
20.76.1 I 

20.33.1 I 
,20.76.1 ; 'I 

*■ I 



B4B20 
B1G10 



B3E19 

B4A20,B4B20 
B3E19 

84A20* B4829 



-I~ 



32 



••RESERVED** 



B1E08Q TO B4C20B 



820 I B1F09Q TO B4C20A 



NEVER GET PUNCH TRANSLATE 6 



ALWAYS GET PUNCH TRANSLATE 6 



I 

-r 

I 32 
I 32 
-I--— 

I 

-I- 

I 32 
I 32 

-I 

I 32 
I 32 

-I 

I 32 
I 32, 

-I 

I 32, 
I 32. 

-I~ — 



20.76*1 I 

11.14*1 I 

— — I- 

20.76.1 I 

11.15.1 I 

20.33.1 I 

20.76.1 I 



B4B20 
B1F09 



B4B20 
B1G10 



B3E19 ■ 
B4A20»B4B20 



— — . — 



20.33.1 I 
20.76.1 I 

I 

20.76.1 I 
11.15.1 I 

20.76.1 I 
11.14.1 I 

20.33.1 I 
20.76.1 I 

~~— *— — — *i" 

20.33.1 I 

20.76. 1 I 



B3E19 

B4A20 t B4B20 



B4C20 

B1E08 



B4C20 
B1F09 



B3E20 

84A21»B4C20 
B3E20 

B4A21.B4C20 
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DATE 

EC 



I 823 1 B1F09Q TO B4C20G 1 32*20.76.1 I 84C20 .. : I 

II -I 32.11.14.1 1 B1F09 I 

1 824 I B1G10Q TO B4C20F ' I 32. 20.76. 1 I B4C20 I 

I I 1 32.11.15.1 I B1G10 I 

I _i j— - — — !• — — — -I 

I 825 I B1E08Q TO B.4C20E X 32.20.76.1 I B4C20 I 

1 . I I 32*11.15*1' 1 B1E08 . I 

I 826 I NEVER GET PUNCH TRANSLATE 7 I 32.20.34.1 I 83E20 I 

I 1 1-32.20.76.1 I B4A21#84C20 I 

S „_I___^™™^^ I--—™. «- 1 

I 827 I. ALWAYS GET PUNCH TRANSLATE 7 I 32.20.34.1 I B3E20 ' I 

1 I I 32.20.76.1 I B4A21.B4C20 . . I 

I 828 I B1EI20 TO B4A19R I 32.20.76.1 I B4A19 I 

1 I I 32.11.14.1 1 B1E12 1 

! 2 ! — i 

I 829 I B4B14L TO 84A19H 1 32.20*76.1 I B4A19,B4B21 , .1 

I I OR ■ I 32.20*70.1 I B4B14.B4A23 ' ' I 

I I 84A23P TO 84821R I I I 
2 ^ — j ™„ — — — J™,. — j — f ■ 

I 830 I B4A19P STUCK AT MINUS Y I 32.20*76.1 I 84A19 I 

' | _™ i ,..„„^.— i I 

I 831 I NEVER GET ' PUNCH TRANSLATE 8 I 32*20*34*1 I B3E20 I 

I I 1 32.20.76,1 I B4821,B4A19 I 

f j _ — . — — .^.^.^ | — ! 

I 832 I 84B14P TO B4C15G I 32.20.70.1 ! B4C15.B4B14 ! 

S I—--—— I — 

I 833 I B4C15F STUCK AT MINUS Y I 32.20.70.1 1 B4C15 I 

1 ™— i I • ~ > — 1 

I 834 I B4A13C TO B4B22H I 32.20.70.1 I B4B22»B4A13 I 

I 835 1 B4B22L STUCK AT PLUS Y I 32.20.70.1 I B4B22 . I 

I 836. 1 ^B4A13C TO B4A23B • I 32*20.70.1 i B4A23,B4A13 , I 

1 837' I B.4A23A STUCK AT MINUS Y I 32,2.0.70.1 I B4A23 • ' . I 

I 838 : I -**R€S-ERVED«*' I ' - I I 

I 839 -I »»RES'ERYEO** . .' • I . • ' " ' I ■ I 

I 840-.'r'«*R£SERVED«t '.- I , ' I * 

I 841 I *»RESERVED*» ' I. I I 

I 842 I ♦•RESERVED*.*- '• I I I 

I - — I — — — ; i 1 — — — - — - 1 

1 843 I •♦RESERVED** : ' I I 1 

I — I- • 

I 844 I B4C15A TO 84A16E 1 32.20.72.1 I B4A16 ^ I 

I ■ I I 32.20*70.1 1 B4C15 I 

I 845 I B4A23P TO 84A16F I 32.20.72.1 1 B4A16 I 

II I 32.20.«70.1 I B4A23 ■ • ' .■ I 

I 846 I B1E12E TO S4A16L' , I 32.20.72.1 I B4A16 ■ I ■ 

I I ' .« N . - 1 32*11.13*1 I B1E12 I 

, i __*. — — i * 1 ™-i 

I 847 I **RESERVEO** I. ' I I 

I 848 I CAN NOT GET PUNCH TRANSLATE 121 32*2Q*72»1 I B4A16 I 

.1 I VIA MINUS Y CHAN REG 1 NOT 0 I I I 

I I AND NOT 40R50R60R7 AND NOT 3 1 I I 

I 849 I B4A23P TO 84A18Q ' I 32*20.73*1 I B4A18 I 

I I I 32*20*70.1 I B4A23 I 



15JUL65 

124265 



17MAR66 
125643 : 



1 850 ! B4CI5A TO B4A18P 
I 

™ i - »„ r , — 



i 

i 



32.20.73.1 

32.20*70.1 



I B4A18 

I B4C15 
-I 



851 



852 
853 



I B1E12A TO B4A18D 

I 

•I™ 

I **RES£RV£D** 



I 
I 

I 



32.20.73.1 

32*11.13.1 



I B4A18 
I B1E12 
I—— 

I 



854 

I 

I 855 
I 



856 



I CAN NOT BLOCK PUNCH TRANSLATE I 32*20.73.1 

I 11 VIA MINUS Y CHAN REG 1 NOT I 

I 0 AND NOT 40R50R6QR7 AND NOT 21 

I B4C15C TO B4A18E ' - . I 32*20*73.1 

I I 32*20.70*1 



I B4A18 

i 

I 

I 84A18 
I B4C15 
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857 
858 



I B1E12E TO B4A18F 

i OR 

I B1F09A TO B4A11F 

I B4A230 TO B4A18L 

I OR 

I Bl'GlOQ TO B4817H 

I PRESERVED** 



— I- 
1 

I 
I 

- I 
I 
I 

— I- 

I 



32*20*73.1' 
32*11.13*1 



32.20.73.1 
32.20*70*1 
32*11.15.1 



I 84A18.84A11 
I B1£12»81F09 

I 

I B4A18 f B4B17 
I B4A23 
I B1G10 
I- 
I 



859 



I CAN NOT BLOCK PUNCH TRANSLATE 
I 11 VIA MINUS Y CHAN REG NOT 5 
I 0R6 0R7 AND NOT 3 AND 0*1 
•I* 

I 
I 



B4A230 TO B4C17A 



860 



861 



862 



863. 



I B4C23A TO B4C17B 
I OR 

I B1F09L TO B4C17R 

I- 81E12Q TO B4C17D 
I 

I B1F09A TO B4C17C 

I . 
I 

I 84C17G STUCK AT MINUS Y 



864 
865 
866 

867 



I ♦•RESERVED** 

•I — — — — 

I PRESERVED** 

I B1E12A TO B4B18B 
I 

I 
I 

'I* 



B1F09E TO B4B18A 




868 
869 



I **R£SERVED»* I 

I CAN NOT BLOCK PUNCH TRANSLATE I 

I 0 VIA MINUS Y CHAN REG 50R6 I 

I AND NOT 2 AND. 3 I 

.j ^_*-~^*^_^.™.~.*. — I- 



I 

— — 1- 



870 



I B4A23P TO B4B18P 



871 



872 



I B4C15A TO B4818D 
I 

I B1E12E TO B4B18Q 



I 
I 

— I- 

I 
I 

— I. 

I 



32*20.74.1 I B4B18 

.1 
I 

32.20.74.1 I B4B18 

32.20.70.1 I B4A23 

_^--.^I_. 

32*20*74.1 I B4B18 

32.20.70.1 I B4C15 

32*20.74.1 I B4B18 



5JUL65 
24265 



17MAR66 
125643 
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873 
874 



875 

876 
877 
878 
879 

880 
881 

882 
883 
884 
885 
886 



887 

888 

•889 
890 



893 



894 

895 

896 
897 

898 



899 



♦♦RESERVED** 



32.11.13.1 



CAN NOT BLOCK PUNCH TRANSLATE I 
0 VIA MINUS Y CHAN REG 1 NOT I 
0 AND NOT 40R50R60R7 AND NOT 31 



♦•RESERVED** 

♦♦RESERVED** 

B4C19Q STUCK AT MINUS Y 



♦•RESERVED** 



•♦RESERVED** 
•♦RESERVED** 
♦♦RESERVED** 



♦•RESERVED** 



♦♦RESERVED** 
♦ ♦RESERVED** w 



♦•RESERVED** 



♦♦RESERVED** 



♦•RESERVED** 
♦•RESERVED** 
♦♦RESERVED** 



B1E12Q TO B4B21B 



^♦RESERVED** 



CAN NOT BLOCK PUNCH TRANSLATE 
8 VIA MINUS Y CHAN REG NOT 4 
AND 1 NOT 0 



81E12Q TO B4C22R 



B1D10A TO B4C22A 



B4C23A TO B4C22B 



♦♦RESERVED** 

CAN NOT GET PUNCH TRANSLATE 
9 VIA MINUS Y CHAN REG NOT 4 
AND NOT 0 AND 5 OR 6 



B1F09L TO B4C22G 



B4C23A TO B4C22B 




DATE 15JUL65 17MAR66 
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ooooooooooo^o 
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900 



I B4A23D TO B4C22H 
I 



— I- 



I **RESERVED** 
-I-..- , 



I 

~— ™ — 1 

I CAN NOT GET PUNCH TRANSLATE I 
I 9 VIA MINUS Y CHAN REG 4 AND I 
I 50R6 AND 0.1 I 



-—I- 



I B4B14L TO B4A16Q 

I 



I B4B23A T0B4A16P 

I 



I B1F09E TO B4A16D 

1 



I **RESERVED»* 

-I— • — * — ~ 

I CAN NOT BLOCK PUNCH TRANSLATE I 
I 12 VIA MINUS Y CHAN REG 50R6 I 
I 0R7 AND 4N0T0 AND 3 I 



I — ™— M—— 

908 I B4A13F TO B4A16R 
I OR 

I B1E12Q TO B4A16H 
I OR 

I B4B14P TO B4C16E 

j « _ 

909 I B4A23A TO B4A16B 

I 




.20.72.1 
►20.70.1 
,11.14.1 



I B4A16,B4C16 

I B4A13,B4B14 

I B1E12 

I ' - , 

I ■ ' 



I 

I. 
I 

— I 
I 
I 
I 
I 

■ r 



20*72*1 
20.70*1 



I **RESER¥£D** I 

I CAN NOT BLOCK PUNCH TRANSLATE I 32.20.72.1 

I 12 VIA MINUS Y CHAN REG NOT 1 I 

I AND 0 AND 2 NOT 3 I 



I B4A16 
I B4A23 

1— - 
I 



912 
913 



I **RESERVED** 



I- 

I. 



I B4A16 

I 
•I 

-I — 



914 

915 



I B4A23A TO B4A16B 

I OR 

I B4B15A AND B4C08B TO B4C16B 

. i « 

I **RES ERV ED** 



,20.72.1 
,20.70.1 



I ' 

I B4A16, B4C16 • 

I 84A23,B4B15,B4C08 I 
I I 



I CAN NOT BLOCK PUNCH TRANSLATE I 
I 12 VIA MINUS Y CHAN REG NOT 4 I 
I AND 2 NOT 3 I 



916 I B1E12Q TO B4C16A 
I OR 

I B4B22Q TO B4C16L 




I **RES ERV ED** 

I .^-^„^-i--*— 

I B4C16G STUCK AT MINUS Y 



I **RES ERVED** 

I ^ 

I B4A23A TO B4C16D 
I 



I **RES ERVED** 

I — „ — — . > 

I B4C16C STUCK AT MINUS Y 
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2821 '** 2540' READER PUNCH SCAN 



2821 - 2540 READER PUNCH SCAN 



I 923 I 

1 924 I 
I I 

I 925 I 

I — I* 
I 926 I 
I — I* 

1 927 1 
I — !« 
I 928 ! 
1 

929 I 
I 
1 

-I- 

I 930 ^ 1 
I I 
-1- 

I 931 1 

I 932 1 
I I 

I I 
I™ — - 1- 

I 933 I 
I I 
I—I- 
I 934 1 
I 1 
— I- 
1 935 I 
I I 
I — I- 
1 936 I 
■I- 

-I 93? 



••RESERVED** 



B4B15A AND B4C088 TO 84C16H 

#«R£5ERVED«» . 
B4C16F STUCK AT MINUS Y 
PRESERVED** 

&4B16F TO B4A18A 



B1F09L TO B4A18R 
OR 

P4B22Q TO 84B1TR 
84B15C TO B4A18B 



«RES ERV.ED»* . • 

CAM NOT BLOCK PUNCH TRANSLATE 
11 ■ VIA MINUS Y CHAN RES SORT 
AND 4 AMD 2 NOT 0 



B4B15C TO B4A18B 



1 



I 



B1D10E TO B4A18H 



B4A1TP TO B4A18G 



i 

I I 

I I 
I— -I- 

I .938 I 
I I 

I 939 I 
I I 

1 940 1 
I I 
X-~ — I- 
1 941 I 

i I 
I— I* 
I 942 .1 
l- I- 



• ♦RESERVED** 

CAN' NOT BLOCK PUNCH TRANSLATE 
11 VIA MINUS Y 'CHAN, REG. '2 -NOT 
0 AMD NOT 1 -AND 40R50R60R7 



B4B.15C TO 848 17B 



B1F09L TO B4617A 



B1F09E TO B4B17C 



BIEO'SQ TO' B4B1T0 



B4B17G STUCK AT MINUS Y 



I 943 I 

I 944 .1 
I • I 

I 945 I 

I 946 I 
I ■ ' I 

I— 1* 

I 947 I 



• ♦RESERVED**. 



BI010A TO B4B17F 



♦•RESERVED** 



B1E12E TO 84B17L, 



••RESERVED** 



32.20. 

32,20, 



32*20* 



32.20. 
32*20. 

32*20, 
32© Hi. 
32*20, 

32*20. 
32*20, 



1 

,72*1 I 
,70.1 I 
— -I- 
T 

,72* i I. 
— 1- 

I 

,73,1 I 
.71 « i 1 

,73*1 I 
.14*1 I 
,71*1 I 

,73.1 I 
.71*1 I 



84C16 

B48I5»B4C08 



B4C16 



B4A18 
B4616 



84A18.84B17 
B1F09 

B4B22 ' 



84A18 
B4B15 



32*20, 



32*20, 
32*20. 



32*20, 
32*11, 



32.20, 

32*20* 



32*20* 



32*20.; 
32-20, 



32.20. 

32*11, 



— I- 

• I 

.73*1 I 
I 
I 

.73*1 I 
,71.1 I 
— — f« 
,73.1 1 
>12*1 I 
— 
,73.1 I 
.70*1 I 

— I- 
I 

I~ 

73.1 I 
I 
I 

73.1 ' 1 

71*1 1 

73*1 I 
14.1 I 



B4A18 



B4B15 



B4A18 

B1D10- 



B4A18 
B4A1? 



B4A18 . 



B4BI7 

B4815 



B4B17 
81F09 



32*20, 
32 ill. 



32.20, 
32.11« 



32*20, 



32*20, 
32*11, 



32.20. 
32.11, 



— I- 
73,1 ! 

13a i 
— i- 

73.1 I 
15.1 1 

73*1 I 

I 

73.1 1 
12.1 I 
-I- 
I 

— ^—I* 

73.1 I 
13.1 I 
— * — * I- 
I 



B4B17 
81F09 



84B17 
B1E08 



B4B17 



B4B17 

81D10 



B4B17 
B1E12 




I . 961 I CAN NOT BLOCK PUNCH TRANSLATE 
11 VIA MINUS Y CHAN REG NOT 
50R6 AND 2 AND 0.1.3 ' 



962 , 



I 
I 
I- 

I 

r 
-i- 

963 I 

' I 

.1 964 I 
' I I' 
I— -i* 
1 965 I 

I ■ I 

I 966 I 
I -i- 

1 967- I 

I I 

I I 

I I 

I 968 I 
I I 
I I 
I— I- 
I '969 I 
I I 
I — 1- 
I 970 I 
I I 
I ' I 
I— I- 
I 971' I 
I I 



B1D10E TO B4C18D 



B4822L TO 84C18E 



B4A17P T0'B4C18F ' 



B1D10A TO B4C18H 



* ^RESERVED** 



CAN NOT BLOCK .PUNCH TRANSLATE 
0 VIA MINUS Y CHAN REG NOT.. 1 " 
AND NOT—i2NO'T3— AND-40R50R6 

0R7 AND" NOT 0 



B1E12Q TO B4C18B 
OR 

B4B22Q TO B4C18L 



32.20.73.1 



32.20.74*1 
32.11. 12.1 



32.20.74.1' 
32.20.70*1 



32.20*74*1 
32.20*70.1 



32.20.74.1 
32.11*12.1 



32.20.74*1 



32.20.74.1 
32.11.14.1 
32.20.71.1 



I B4AI1 ' 

I 

I 

I B4C18 

I 81 010 

I B4C18 

I 84B22" 

I B4C18 
I B4A17 

I B4C18 
I B1D10 

I ■ 

I B4C18 

I .'■ 
I 

I ' 

I B4C18 
I. B.1E12 
I B4B22 



B4B22L TO B4C18E 



B4B14L' TO B4C18C 
OR 

B1F09L TO B4C18Q 



B4A23D TO B4C18A 



32.20.74.1 

32.20.70.1 

32.20*74.1 
32.20.70.1 
32.11.14*1 

3.2*20*74*1 
32.20.70.1 



-I— — ~ 
I B4C18 
I B4B22 

I B4C18 
I 34B14 
I B1F09 

I B4C18 
I 84A23 



DATE 

EC 
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— I- 



972 
973 



I **RESERVED»* 



— I- 



-I — 

I 



I CAN NOT BLOCK PUNCH TRANSLATE I 32. 20. 74.1 

I 0 VIA MINUS Y CHAN REG NOT 4 I 

I AND NOT— 2N0T3 — • AND 50R60R7 I 

I AND 0..1 I 



974 



-I ■ ' 

I B4A23D TO B4C18G 
I 



-I—- 




I »*RESERVED*« 

I— — *~ « 

I «»RESERVED«« 



I B4B22L TO B4C18R 

f 



32.20.74.1 
32.20.70.1 



32.20.74.1 
32*20*70.1 



♦•RESERVED** 



1 CAN NOT BLOCK PUNCH TRANSLATE I 



960 



981 



0 VIA MINUS Y CHAN REG O.I 
AND NOT 50R6 AND 4 AND 
NOT— 2N0T3 — 

B4B22L TO B4B18E 



I 
I 
I 

-I- 

I 

I 

-I- 

I B4B16F TO B4B18F 

I 



B4C18 



B4C18 
B4A23 



982 



I B4B23A TO B4B18L 

I 




PRESERVED*® 



I CAN NOT BLOCK PUNCH TRANSLATE 
0 VIA MINUS Y CHAN REG 

NOT — ?2N0T3~— AND 50R7 AND 
4N0T0 



— 1- 



985 



I B4B23A TO B4A19A 
I 



—I. 



986 



I B1D11P TO B4A19D 

I 



— - 1- 



987 



I B4C15F TO B4A19B 
I 



988 



989 
990 



I B4A19C STUCK AT MINUS Y 

.1 — . . , 

I "RESERVED** 



— I- 



I B1E12Q TO B4A19E 

I OR 

I B1D10A TO B4B19B 




991 



992 



I B4B22Q TO B4A19G 

I 

-I ■ — « • * 

I B1G10Q TO B4A19F 
I OR 

I B1D10E TO B4B19F 



32.20.75.1 

32.20.71.1 



•I ■ 



1- 



993 I B4A19L STUCK AT MINUS Y 

994 I ALWAYS GET PUNCH TRANSLATE 1 



32.20.75.1 
32.11.15.1 
32.11.12.1 

32.20.75.1 

32.-2.0.32.1 



I B4A19 
I B4B22 

I 84A19*B4B19 
I B1G10 
I B1D10 
„l . —i—. 



I B4A19 
• I—— — 

I B3E18 



DATE 
EC 



15JUL65 
124265 



17MAR66 

-125643' 
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2821 



2540 READER PUNCH SCAN 



995 



996 



997 



998 
999 
1000 

1001 

I 

11002 

1 

1 1003 
1— — 

11004 
I — 
1 1005 
I 

11006 

I ' 
I— 

11007 
I 

11008 

11009 

I 
1 

11010 

noil 
i 

11012 

11013 

I 
I 

11014 

I 



B1GI0Q TO B4B19A 



B4B22Q TO B4819D 



PRESERVED** 



B4B19C STUCK AT MINUS Y 



PRESERVED** 



B4B22Q TO B4B19G 



B1E12Q TO B4B19E 



11015 

11016 

11017 
.1— — 
11018 

11019 

I— 

11020 
I—- 
1 1021 



B1F09L TO B4C19B 




♦♦RESERVED** 
B4B19L STUCK AT MINUS Y 
♦♦RESERVED** 

B4A23P TO B4C19C 

B4A23A TO B4C19L 



♦♦RESERVED** 

CAN NOT BLOCK PUNCH TRANSLATE 
2 VIA MINUS Y CHAN REG 1N0T0 
AND 2N0T3 AND 4 



♦♦RESERVED** . 
B1G10E TO B4C19D 

♦♦RESERVED** 



CAN NOT BLOCK PUNCH TRANSLATE 
2 VIA MINUS Y CHAN REG 
NOT — 2N0T3 — AND NOT 6 

♦♦RESERVED** 



"RESERVED** 



♦♦RESERVED** 



• ♦RESERVED" 



"RESERVED** 



^RESERVED** 



♦♦RESERVED** 



♦♦RESERVED* 



I 32 
-I 
I 

•I- 

I 32, 
I 32, 
t | — 

I 32, 
I 32, 
• I- — — 

I 

>I— — 
I 32, 

■I— - 
I 

•I 

I 32, 

I 32, 
-I— 

I 32, 

I 32, 
-I—— 

I 32. 

I 32. 
-I— 
■ I 

-I 

I 32. 
I 

I 

I 

-I— — 
•■I 32. 
I 32. 

I 

-I- 

'I 32. 

I 

I 

I 

I 

I 

-I— 

I 

- 1— — 
I 

I 

I 

-I-~ 

I - 



20.75.1 
20.71,1 



.20*75*1 
11.14.1 



.20.75*1 



20.75.1 
20.70.1 



20.75.1 
20.70.1 



20.75,1 
11.14.1 



20*75*1 



20. 75.1' 
11.15.1 



20.75.1 I B4C19 



B4B19 

.B4B22' 



B4B19 

8 IE 12 : 



B4B19 



— I 

I 

— I 

I 
I 
-1 

I 

1 

-I 

I 

-I 

I 

-I 

I 
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11022 I "RESERVED** 

I ~™i -^---f.— - 

11023 I PRESERVED** 

1 „™ i « 

1102% I PRESERVED** 

I — 1 — — ~~ — 

11025 1 PRESERVED** 

I ™_ 1 , 

11026 I **RESERVEO** 
1 ™ i _-„~— 

11027 I **RESERVED»» 

1 _™ i ^- 

11028 I «»RESERVED*« 

I I 

11029 I **R£SERVED*» 

I— -»I — 



11030 I **RESERVED«* 

| i ^^^^^^^^^^^^^.^.^ 

1 1031 1 "RESERVED** 

I ! 

11032 I *»RESERVED**' 

1 __^f 

11033 I **RESERyED*» " 

11034 J B1E12Q TO S48218 
I I 

I | « te . 

11035 I RID11P TO B4B21G 

II 

11036 I B4822L TO B4B21H 

I 1 
I 

1103? I **RESERVED*» ■ 5 

I CAN NOT ■ block; PUNCH TRANSLATE 
I 8 VIA MINUS Y CHAN REG NOT 4 ' 
I AMD 1 MO NOT— 

11039 i BiGioa to mmm 
1 I 
1 1 





11040 1 BiDllA TO B4B21D 

I 1 

1 „ , 

11041 I B4B22Q TO B4821P 

1 1 

11042 I **RESERVE0*» . 

1 CAN NOT SLOCK PUNCH TRANSLATE 

1 8 VIA MINUS Y CHAN REG T AND 

1 0 AND NOT— 50R6— 
. I 

11044 I B4A23P TO B4B21F 

1 • 1 

11045 1 B4A23A TO B4821E 
I ' I 

11046 I B4C15F TO B4B21L 

1 ■ I 

I — I 

1 1047 1 ♦•RESERVED** 

| — ~™ ! — — — 

11048 I CAN NOT WLOCK PUNCH TRANSLATE 
I I 8 VIA MINUS Y CHAN REG 1N0T0 

1 . 1 AND 2N0T3 AND NOT— 5QR70R NOT 



32-20* 76*1 I B4B21 

32*11*14.1 I B1E12 

32.20.76.1 I B4B21 

32«11*12.1 I BIDil 

~— 1 

32.20.76.1 1 84B21 

32*20*70.1 I 84822 

I 

1 

32#20#?6# i ' I, B4821 
I 

I 

I 

32.20.76.1 I B4821 

32*11*15*1 I BIG10 

■ ~ I 

32*20.76*1 I B4B21 
32.11.12.1 I B1D11- 

32*20*76»1 I B4B21 



32 .20. 71*1 




P/H 8402i>7 { . IBM MAINTENANCE DIAGNOSTIC PROGRAM 

PAGE • It \ . 



2821 - 2540 READER PUNCH SCAN 



P/N '840257 
PAGE 26A 



DATE 
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124265 125643 
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1049 I B1F09L TO B4C21F 

I 
I 

1050 I B1G10Q TO B4C21E 
I 

j 

1051' I B1D11A TO B4C21H 

I OR 

I B1E12Q TO B4C21G 

I — — - 

1052 ! B4822Q TO B4C21D 

1 . 



I 32.20*77*1 I B4C21 
h. 32. 11*14.1 I 81F09 



I 32.20*77.1 I B4C21 
I 32*11.15.1 I B1G10 



I **RESERVED*» 

i.—-.™ 



2 CAN NOT GET PUNCH TRANSLATE 9 
! VIA MINUS Y CHAN REG 4 AND ? 
I AND 0 AND NOT 50*6 



I 32.20.77.1 I B4C21 
I 32.11*12*1 I B1D11 
I 32.11.14*1 1 B1E12 
. j.— ..j 

I 32.20*77*1 I B4C21 
I 32*20.71.1 1 B4B22 

* I— „.™.™ | _ 

I 1 



I 32.20.77*1 I 84C21 
1 1 
I I 
I—™-™—, i _____ 



1.055 I B4B22Q TO. B4C21C 

I 

I ________*_„____«. 



1056 



I B4A23D TO B4C21A 

I 

I ____________________ 



1057 



I 84A23A TO' B4C21B • 
I 

I _____________________________ 

1058 I B1G10Q TO B4C21E 
• I 

1 

1059 I **RESERVED** 

1060 I CAN NOT GET PUNCH TRANSLATE 9 I 32.20.77.1 I B4C21 



1 32.20.77.1 1 B4C21 

I 32.20.71.1 I B4B22 
«. !____________ x _______ 

I 32.20.77.1 I B4C21 
.1 32.20.70.1 I B4A23 
. !____________!_______ 

I 32*20*77*1 I B4C21 

I 32.20.70.1 I 84A23 

- 1 — „ r-i 

I 32*20.77*1 i B4C21 

I' 32.11*15«1 1 81G10 

I . . I 
- —I- — 



VIA MINUS Y CHAN REG NOT 50R6 I 



AND 0*1 AND 2N0T3 AND 7 



1061 I B1G10Q TO B4C21R 
I 

1062 I B4B22L TO B4C21L 

I . 



I 32-20.77.1 1 B4C21 
I 32.11*15*1 I B1G10 

- 1— — . -« 
I 32*20*77.1 I B4C21 
I 32.20.70.1 I B4B22 

- 1—~ — — x^™— 



1063 I B1D10 A TO' B4C2IQ 
I 

— — . 

1064 1 **RESERVED*» 
1 — 

1065 I **RESERVED** 

— — I — — — - — — — 

1066 I CAN NOT GET PUNCH TRANSLATE 9 



I 32*20.77.1 I B4C21 
I 32. 11*12.1 I B1010 

™ I— 

I . I 

— 

I I 



I VIA MINUS Y CHAN REG 7 AND 

1 NOT— 2N0T3— - AND NOT 0 AND 

I NOT 4 

1067 I B4B23A TO B4C22E 

I " 

I — - 

1068 I B4C15C TO B4C22F 

I ■ 

1069 1 **RESERVED*» . 

— 1 — 

1070 I CAN NOT GET PUNCH TRANSLATE 9 
I VIA MINUS Y CHAN REG 4N0T0 

I AND NOT — 50R60R7— 



I 32.20*77*1 I B4C21 

I I 

I- I 

I I 
. 1^-.— — I — — — 

I 32*20*77.1 
I 32.20.71.1 



I B4C22 
I B4B23 
I~~ - 



I 32.20.77.1 I B4C22 ' 
I 32.20.70.1 I B4C15 



I 32 • 20 .77*1 I '84C22 



5JUL65 
24265i 



17MAR66 
125643 
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11071 
11072 

I : 

11073 

I 

11074 

I 

1X015 

I : 



11076 

11077 

11078 

I 

11079 

11080 

I 

11081 

11082 

11083 

I — 

11084 

I 

11085 

11086 

11087 

11088 

I — 



11089 

I 

1 1090 

V 

11091 

11092 

I 

11093 
I 



11094 
11095 
11096 

I — : 

11097 

11098 

11099 

1 1 100 

11101 
I 

11102 

I- — 

11103 
1— ~- 



PRESERVED** 



PRESERVED** 



"►•RESERVED** 



••RESERVED** 



B4A16C STUCK AT MINUS Y 



►•RESERVED** 



•♦RESERVED** 



►•RESERVED** 



••RESERVED** 
♦•RESERVED** 



B4A18C STUCK AT MINUS Y 



••RESERVED** 



♦♦RESERVED** 



••RESERVED** 

B4A11Q STUCK AT MINUS Y 



♦•RESERVED** 
••RESERVED** 



♦•RESERVED** 
••RESERVED** 



B4C18P STUCK AT MINUS Y 
■ ... i^U*^.™- 



♦♦RESERVED** 



♦•RESERVED** 



♦•RESERVED** 
♦•RESERVED** 
♦♦RESERVED** 



B4B18C STUCK AT MINUS Y 



♦♦RESERVED** 
♦♦RESERVED*^ 



♦♦RESERVED^* 
•♦RESERVED** 

NEVER GET PUNCH TRANSLATE 1 
♦ ♦RESERVED^ 



♦•RESERVED** 



32.20.72.1 



32.20*73.1 



32.20.73.1 



32.20.74.1 



32.20.74.1 



32.20.32.1 

32.20.75. 1 



B4A16 



B4A18 



B4A11 



B4C18 



B4B18 



B3E18 
B4A20 



1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
11119 
1120 
1121 



1122 
1123 
1124 
1125 
1126 
1127 

1128 



1129 
1130 



1131 
1132 
1133 
1134 

1135 

1136 



♦ ♦RESERVED^ 



B4C19R STUCK AT MINUS Y 
♦♦RESERVED^* 



♦ ♦RESERVED^ 



••RESERVED** 
••RESERVED** 
•♦RESERVED** 



B4B21C STUCK AT MINUS Y 



♦•RESERVED** 
••RESERVED** 



••RESERVED** 
••RESERVED** 

B4C21P STUCK AT MINUS Y 



♦♦RESERVED** 
♦♦RESERVED** 



♦♦RESERVED** 



.•♦RESERVED**; 



►♦RESERVED*^ 



B4C22C STUCK AT MINUS Y 



♦♦RESERVED** 

♦♦RESERVED** 



♦♦RESERVED** 
^♦RESERVED** 



ALWAYS GET PUNCH TRANSLATE 0 



♦♦RESERVED** 



♦♦RESERVED** 



♦♦RESERVED** 
♦♦RESERVED*^ 



♦♦RESERVED** 



♦RESERVED** 



ALWAYS GET PUNCH TRANSLATE 2 

♦♦RESERVED** 



♦♦RESERVED** 



32.20.75.1 



32.20.76*1 



32.20.77.1 



B4C19 



B4B21 



B4C21 



I ■ 

. 1 I ' 
™. ^-^-i — 



32.20.77.1 



32.20.31.1 
32.20.74.1 



32.20.32.1 
32.20.75.1 



B4C22 - 



B3E18 

B4C18,B4B18?B4A19 



B3E19 

B4C19,B4A20 



DATE 

EC 



15JUL65 
124265 



17MAR66 
125643 . 
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11137 1 

11138 1 

I ■ I 
I— 1- 

11139 1 

11140 I 
I~~ -- 1- 

11141 I 
I— — I* 

11142 I 
I I 
I— i« 

1 1143 I 

11144 1 

11143 I 
I I 
I — I* 
11146 I 
I — I- 
1114? I 
I— I- 

11148 I 
I 1- 

11149 I 
1 I 
I I 



•♦RESERVED** . 

ALWAYS GET PUNCH TRANSLATE 8 

♦ •RESERVED^ 
•*RESERVE0«* 



♦♦RESERVED** 



I I 

I ' 32. 20*34*1 • I 
I 32 ,20, 76.1 I 

I I 

I—, 

I 1 

I , I 



NEVER GET PUNCH TRANSLATE 9 



PRESERVED** 



I 32*20*34*1 I 
1 32*20.77*1 I 

I . 



••RESERVED** 



I 

-I— — 



- I 

• I 



ALWAYS GET PUNCH TRANSLATE 12 

♦•RESERVED** 
♦•RESERVED** 



I 32.20.31.1 I 

I 32*20*72.1 I 

I ' I 

I I 



; I 

B3E20 I 
B4A19 9 B4B2I I 

I 

■ I 

B3E20 I 

B4A21»B4C21 f B4C22 I 
™„._™-™^„ 1 

I 
I 

B3E18 I 
B*A16 V B4A17»84C16 I 



*#He$£RVeD** 

ALWAYS GET PUNCH TRANSLATE 11 



I '32*20*31*1 1 
I 32*20*73*1 1 

I I 



I 

■ ' I 
™— I 

I . 

1 

I 



B3E18 
B4All*B4Al8»&4Brr* I 

B4C17 .. I 



4*4 LOG OUT OF ACCUMULATED DATA BY ROUTINE 
4*4.1 ROUTINE 01 —CHANNEL REG FLT — 



LISTED BELOW IS A SAMPLE OF THE LOG OUT ' INFORMATION. v THE' ' 
DATA IS PRESENTED IN HEX FORM, 4 BITS PEE CHARACTER© THIS' 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH HQ ERRORS* ' 



COL 



i 


' 2 


3 


4 


•s 


6 


? 


8 


9 


10 


80 


08 


14- 


00 


00 


80 


oc 


00 


00 


00 


40 


08 


14 


00 


00 


40 


oc 


00 


00 


00 


20 


08 


14 


00 


00 


20 


oc 


00 


00 


00 


10 


08 


14 


00 


00 


10 


oc 


00 


00 


.00 


08 


08 


14 


00 


00 


08 


oc 


00 


00 


00 


04 


08 


14 


00 


00 


04 


oc 


00 


00 


00 


02 


08 


14 


00 


00 


02 


oc 


00 


00 


00 


01 


08 


14 


00 


00 


01 


oc 


00 


00 


00 


00 


08 


14 


00 


00 


00 


oc 


00 


00 


00 


00 


08 


14 


00 


00 


00 


oc 


00 


00 


00 



EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW. 

COLUMN 1 -» DATA WRITTEN TO PUNCH SUFFER 

COLUMN 2 ~ PUNCH WRITE CHANNEL END STATUS • 

COLUMN 3 «*- PUNCH WRITE DEVICE END STATUS 

COLUMN 4 - PUNCH WRITE SENSE DATA 

COLUMN 5. - PUNCH WRITE' CHECK READ DATA 

COLUMN 6 - PUNCH READ DATA 

COLUMN 7 - PUHCH READ STATUS ■ 

COLUMN 8 * PUNCH READ SENSE DATA 

COLUMN 9 * PUNCH READ CHECK READ DATA 

COLUMN 10 ~ DATA GROUP ERROR SWITCHES 

BIT 6 -ON— MEANS BIT DOES NOT TURN ON 
BIT 7 -ON- MEANS BIT DOES NOT TURN OFF 



DATE 
EC 
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17MAR66 
125643 



o o o o o o 



ooooooooo 



P/N 840257 | 
PAGE 28 < 



IBM MAINTENANCE DIAGNOSTIC 'PROGRAM 



P/N 840257 

PAGE 28A 



2821 - 2540 READER PUNCH SCAN 



4*4*2 ' ROUTINE 02 --CONTROL PROGRAM- 
LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION* THE 
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS. IF 
AN ERROR IS DETECTED, THE FIRST LINE IN THE TABLE BELOW 
WILL CONTAIN THE ERROR DATA. : 

. .COL 
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1 


2 


'3 


4 


5 


6 


7 


8 


9 


1011 


12 


13 


14 


15 


16 


17 


18 


31 


08 


14 


00 


00 


31 


OC 


00 


00 


0401 


OC 


00 


00 


31 


OC 


00 


00 


50. 


08 


14 


00 


00 


50 


OC 


00 


00 


2000 


oc 


00 


00 


50 


OC 


00 


00 


60 


08. 


14 


00 


00 


60 


oc 


00 


00 


1000 


oc 


00 


00 


60 


oc 


00 


00 


FO 


08 


14 


00 


00 


FO 


oc 


00 


00 


0800 


oc 


00 


00 


FO 


oc 


00 


00 


Fl 


08 


14 


00 


00 


Fl 


oc 


00 


00 


0400 


oc 


00 


00 


Fl 


oc 


00 


00 


F2 


06 


14 


00 


00 


F2 


oc 


00 


00 


0200 


oc 


00 


00 


F2 


oc 


00 


00 


F3 


08 


14 


00 


00 


F3 


oc 


00 


00 


0100 


oc 


00 


00 


F3 


oc 


00 


00 


F4 


08 


14 


00 


00 


F4 


oc 


00 


00 


0020 


oc 


00 


00 


F4 


oc 


00 


00 


F5 


08 


1.4 


00 


00 


F5 


oc 


00 


00 


0010 


oc 


00 


00- 


F5 


oc 


00 


00 


F6 


08 


14 


00 


00 


F6 


oc 


00 


00 


0008 


oc 


00 


00 


F6 


oc 


00 


00 


F? 


08 


14 


00 


00 


FT 


oc 


00 


00 


0004 


oc 


00 


00 


F? 


oc 


00 


00 


F8 


08 


14 


00 


00 


F8 


oc 


00 


00 


0002 


oc 


00 


00 


F8 


oc 


00 


00 


F9 


08 


14 


00 


00 


F9 


oc 


00 


00 


0001' 


OC- 


00 


00 


F9 


oc 


00 


00 


40 


08 


14 


00 


00 


40 


oc 


00 


00 


0000 


oc 


00 


00 


40 OC 


00 


00 


31 


08 


14 


00 


00 


31 


oc 


00 


00 


0401 


oc 


00 


00 


31 


OC 


00 


00 



COLUMN 


. 1 


COLUMN 


2 


COLUMN 


3 


COLUMN 


4 


COLUMN 


5 


COLUMN 


6 


COLUMN 


7 


COLUMN 


8 


COLUMN 


9 


COLUMN 


10 


COLUMN 


11 


COLUMN 


12 


COLUMN 


13 


COLUMN 


14 


COLUMN 


15 


COLUMN 


16 


COLUMN 


17 


COLUMN 


18 



EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW* ' • , 

DATA WRITTEN TO'' PUNCH BUFFER' ' . • ■ : 

PUNCH WRITE CHANNEL END STATUS ' ' 
PUNCH 'WRITE DEVICE END' STATUS 
PUNCH WRITE SENSE DATA 
PUNCH WRITE CHECK READ DATA 
PUNCH READ DATA 
PUNCH READ STATUS 
PUNCH READ SENSE DATA . 
PUNCH READ CHECK READ DATA 

READER WRITE DATA- -1ST BYTE OF COL BINARY ' 
READER WRITE DATA -2ND BYTE' OF COL BINARY 
READER WRITE STATUS 
READER WRITE SENSE DATA • 
READER WRITE CHECK READ DATA 
READER READ DATA '. ■ .' . 
READER READ STATUS 
READER READ SENSE DATA 

READER READ CHECK READ DATA ; 
4.4.3 ROUTINE 03 — BUFFER ADDR FLT— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THE 

DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS 
SAMPLE REPRESENTS A SOLID FAILURE FOR 8UFFER ADDRESS 
' REGISTER UNITS ~A~» 

DEVICE XXX DI AG CK RD DATA - RESIDUAL COUNT IS 0020 SHLD BE 0020 

oooooioooooio loioioioooooioooooioioioioioooooioooooioidioi 

0000010000010101010100000100000101010101000001000001010101 

0000010000010101010100000100000101010101000000000000000000 

DEVICE YYY DI AG CK RD DATA - RESIDUAL COUNT IS 0020 SHLD BE 0020 
0000010000010101010100000100000101010101000001000001010101 
0000010000010101010100000100000101010101000001000001010101 
0000010000010101010100000100000101010101000000000000000000 

IN THE ABOVE PRINTOUTS OF DIAGNOSTIC CHECK DATA, XXX 
REPRESENTS THE READER ADDRESS AND YYY REPRESENTS THE 
PUNCH ADDRESS. 
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EACH DIAGNOSTIC CHECK READ IS PERFORMED WITH A CCW COUNT 
OF 100 -DECIMAL* IF THE READER/PUNCH CIRCUITS ARE 
FUNCTIONING PROPERLY, THE RESIDUAL COUNT SHOULD BE 020 - 
ONLY 80 COLUMNS SHOULD BE READ. IN THE. ABOVE PRINTOUT, 90 
BYTES OF DIAGNOSTIC CHECK READ DATA ARE DISPLAYED FOR 
EACH DEVICE. IT IS TO BE NOTED THAT ONLY ADDRESS CHECKS 
WILL BE INDICATED - ALL OTHER DIAGNOSTIC CHECK READ BITS 
ARE ELIMINATED BY THE PROGRAM. 

*.4*4 ROUTINE 04 --READER TRANSLATOR FLT 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS; A 
BRIEF DESCRIPTION OF EACH COLUMN IS INDICATED BELOW. 

1. DI AG WRITE DATA 

HEX - SINCE A DIAGNOSTIC WRITE TO THE READER BUFFER 
IS A COLUMN BINARY WRITE, TWO BYTES, AS INDICATED, ARE 
REQUIRED TO LOAD ONE READER BUFFER POSITION* THESE 
TWO BYTES ARE REPEATED THROUGHOUT A 160 BYTE WRITE 
FIELD IN AN ATTEMPT TO WRITE ALL 80 READER BUFFER 
POSITIONS WITH IDENTICAL DATA. A TOTAL OF 81 SEPARATE 
WRITES ARE PERFORMED WITH EACH WRITE USING DIFFERENT 
DATA AS INDICATED IN EACH ROW. 

HOLLERITH - THIS INDICATES THE READER BUFFER DATA 
REGISTER LATCHES WHICH WOULD BE SET BY TWO HEX BYTES 
INDICATED IN THE SAME ROW. 

2. READ DATA 

ACT - THIS IS THE ACTUAL DATA READ FROM THE READER 
BUFFER AFTER THE CORRESPONDING WRITE. 

EXPO - THIS IS THE EXPECTED READER READ DATA 

3. SENSE DATA 

ACT - THIS IS THE READER SENSE BYTE OBTAINED AFTER 
THE CORRESPONDING READ. REFER TO THE APPENDIX FOR 
SENSE BYTE INFORMATION. 

EXPD - THIS IS THE EXPECTED READER SENSE BYTE. 

4. CHECK READ DATA 

ACT - THIS IS THE READER DIAGNOSTIC CHECK READ DATA 
OBTAINED AFTER THE CORRESPONDING READ. REFER TO THE 
APPENDIX FOR DIAGNOSTIC CHECK READ INFORMATION. 

EXPD - THIS IS THE EXPECTED READER DIAGNOSTIC CHECK 
READ DATA. 

•♦♦NOTE*** AN ASTERISK WILL PRECEDE EACH ROW WHERE AN 
ERROR IS DETECTED. AN ERROR IS DETECTED 
WHEN THE ACTUAL AND EXPECTED RESULTS ARE 
NOT EQUAL. 



I 

I— — 
I 

1 -HEX- 



DI AG WRITE DATA 



READ DATA I SENSE DATA I CHECK. READ DATA I 

I I ACT I EXPD I ACT I EXPD I ACT I EXPD I 

I -HOLLERITH- I -HEX- I -HEX- I -HEX- I -HEX- I —HE X— I -HEX- I 



1E00 
OFOO 



E012 
0123 



A3 
E3 



A3 
£3 



08 

08 



08 
08 



00 
00 



00 
00 



0720 


1234 




F7 


F7 


08 


08 


00 


00 


0330 


2345 




F7 


F7 


08 


08 


00 


00 


0138 


3456 




F7 


F7 


08 


08 


00 


00 


003C 


. 4567 


F7 


F7 


08 


08 


00 


00 


001E 


5678 


7F 


7F 


08 


oa 


00 


00 


OOOF 


6789 


3F 


3F 


08 


08 


00 


00 


3800 


TEO 




70 


70 


00 


00 


00 


00 


1C00 


EOi 




Al 


Al 


00 


00 


00 


00 


OEOO 


012 




E3 


E3 


08 


08 


00 


00 


0320 


234 




F7 


F7 


08 


08 


00 


00 


0130 


345 




F7 


F7 


08 


08 


00 


00 


0038 


456 




F7 


F7 


08 


08 


00 


00 


2C03 


T 01 


89 


00 


00 


00 


GO 


00 


00 


2401 


T 1 


9 


01 


01 


00 


00 


00 


00 


2201 


T 2 


9 


02 


02 


00 


00 


00 


00 


2101 


T 3 


9 


03 


03 


00 


00 


00 


00 


2021 


T 4 


9 


04 


04 


00 


00 


" 00 


00 


2011 


T 3 


9 


05 


05 


00 


00 


00 


00 


2009 


T 6 


9" 


06 


06 


00 


00 


00 


00 


2005 


T 7 9 


07 


07 


00 


00 


00 


00 


2003 


' T 1 


89 


08 


08 


00 


00 


00 


00 


2403 


.f 1 


89 


09 


09 


00 


00 


00 


, 00 


3403 


TE 1 


89 


10 


10 


00 


00 


oo • 


00 


1401 


E 1 


9 ' 


11 


- 11 . 


. 00 


00 


00 


00 


1403 


•El 


89 ; 


19 


19 


00 


oo 


00 


' 00 


1C03 


EOI 


89 


' 20. 


20 


00 


00 


00 


: 00 


0C01 


■ ■ 01 ' 


9 


■ 21 


"'.21 


00 


00 


00 


00 


OAOl 


0 2 


9 


■' 22 ' . 


22 


00 


00 


00 


' 00 


0C03 


01 


89 


29 


29 - 


00 


00 . 


00 


' ' 00 


0A03 


0 2 


89 


2A 


2A* 


00 


. 00 


00 


00 


3 CO 3 


TE01 


89 


30 


; 30 


00 


00 ' 


00 


. : oo 


0000 






40 


40 


00 


00 


00 


. •■ 00 


2C01 


' T 01 


9 


41 


41 


00 


00 • 


00 


00 


2A01 


T 0 2 


9 


42 


42 ' 


00 


00 


00 


00 


2803 


T 0 


89 • 


48 


48 


00 


00 


00 


00 


2402 


T 1 


.8 


49 


' 49 


00 


00 


00 


00 


2202 


T 2 


8 


4A 


4A • 


00 


00 


00 


, 00 


2000 


T 




50 


50 


00 


00 


■ 00 


00 


3401 


TE 1 


9 


'51 . 


• ■ 51 - 


00 


00 


00 


00 


3003 


TE 


89 


58 


* 58 


00 


00 


00 


00 


1000 


■ E 




60 


60 


00 


00 


00 


' : 00 


ocoo 


01 




61 


61 


00 


00 


00 


00 


IAO'1 


EO 2 


" 9 ' 


62 


62 


00 


00 


00 


00 


3000 


TE 




6A 


6A 


00 


00 


00 


00 


3C01 


TE01 


9 


71 


71 


00 


00 


00 


00 


0202 


2 


8 


7A 


7A 


00 


00 


00 


00 


2C02 


T 01 


8 


80 


80 


00 


00 


00 


00 


2A00 


T 0 2 




82 


82 


00 


00 


00 


00 


2900 


T 0 3 




83 


83 


00 


00 


00 


00 


2820 


TO 4 




84 


84 


00 


00 


00 


00 


2810 


TO 5 




85 


85 


00 


00 


00 


00 


2808 


TO 6 




86 


86 


00 


00 


00 


00 


2804 


TO 7 


87 


87 


00 


00 


00 


00 


2802 


TO 


8 


88 


88 


00 


00 


00 


00 


2801 


T 0 


9 


89 


89 


00 


00 


00 


. 00 


2A02 


T 0 2 


8 


8A 


8A 


00 


00 


00 


00 


2902 


TO 3 


8 


8B 


86 


00 


00 


00 


00 


3402 


TE 1 


8 


90 


90 


00 


00 


00 


00 


3400 


TE 1 




91 


91 


00 


00 


00 


00 


3020 


TE 4 




94 


94 


. 00 


00 


00 


00 


3010 


TE 5 




95 


95 


00 


00 


00 


00 


1C02 


EOI 


8 


AO 


AO 


00 


00 


00 


00 


1A02 


EO 2 


8 


A A 


AA 


00 . 


00 


00 


00 


2800 


T 0 




CO 


CO 


00 


00 


00 


00 


2001- 


T 


9 


C9 


C9 


00 


00 


00 


00 


1800 


EO 




- DO 


DO 


00 


3 00 


00 . 


00 


0A02 


0 2 


8 


EO 


EO 


00 


00 


00 


00 


1C01 


EOI 


9 


El," 


El , 


00 


00 


00 


00 
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0014 


5 7 


F7 


F7 


08 


08 


00 


00 


0018 


56 


F7 


FT 


■ 08 


08 


00 


00 


0024 


4 7 


F7 


F7 


08 


08 


00 


00 


0030 


45 


F5 


F5 


08 


08 


00 


■ 00 


0028 


4 6 . 


F6 • 


F6 . 


08 


08 


00 •'. 


00 


0204 


2 ■ 7 ■■ 


F7 


F7 


08 


08 


• 00 


00 


0208 


2 6 


F6 


F6 


08 


08 


00 


00 


0210 


Z 5 


' F7 


FT 


08 


08 


00 "■ 


00 


0220 


2 4 


F6 


. F6 


08 


08 


00 


' 00 


0300 


23 ' 


F3 


F3 


08 


08 


00 


00 


010® 


3 6 


• FT 


FT 


'08' 


08, 


. 00 


00 



•W4.5 ROUTINE 05 * — PUNCH TRANSLATOR FIT— . 

LISTED BELCH IS A SAMPLE OF THE LOG OUT INFORMATION*. THE 
DATA IS PRESENTED IN HEX FORM* 4 BITS PER CHARACTER, THIS.' 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS* 

COL 



DATE 
EC 



15JUL65 
£24265 



i : 


2 


3 


4 


5 


6 


m 


00 


00' 


00 


GO- 


• 00 


01 : 


00 


00 


01 


GO 


00 


02 


00 , 


'•• 00' •'■ 


02 


00 


00 


03 


. .00 ' 


00 


03 


00 


00 


04 


v 00 


00. ' 


04 


.00 


00 


05 


00 


00 - 


05 


. 00 


00 


06 


00 


00 


06 : 


GO 


00 


07 


00 ' 


' 00' 


07 


00 


00 


08 


00 


m 


08 


00 


' 00 


09 


, 00 


" 00 


09 


00 


00 


OA 


00 


' oo. ■ 


OA 


00 


00 


10 


00 


00 


10 


00 


00 


11 


00 


00 


11 


00 


00 


19 


00 


00 


19 


00 


bo 


1A 


■ 00 


00 


1A 


00 


00 


20 


: oo 


00 


20 


00 


00 


21 


00 ' 


00 


21 


00 


00 


22 


00: 


00 


'22 


00 


00 


29 


00 


00 ' 


29 


00 


00 


2A. 


'00 


•oo-." 


2Av' 


■ 00-.. 


00 


30 


00 


6crv s 


30 ■'■ 


' 00 ' : 


00 


40 : 


■ . 00 ■ 


. .ocr--. 


40' 


00 


00 


41 


00 


00 


41 


00 


00 


42 • 


00 


00 


42 


. 00 


00 


48 ' 


"00 


00 


48 


00 


00 


49 


00 


00 


49 


00 


00 


4A 


00 


00 


4A 


00 


00 


50 


00 


00 


50 


00 


00 


51 


00 


00 


51 


00 


00 


58 • 


00 


00 


58 ' 


00 


00 


59 


■ 00' 


00 


59 


' 00 


00 


60 


00 ■ 


00 


60 - 


•O0-' 


00 


61 " 


■ 00 


00 


61 


00 


00 


62 


00 


■ 00 


62/ 


00 ; 


00. 


63 


00 


00 


63 


00 


00 


68 


00 


00 


68 


00 


00 


6A 


00 


00 


6A 


00 


00 


68 


00 


00 


68 


00 


00 


6E 


00 


00 


6£ 


'00 


00 


70 


00 


00 


70 


GO 


00 


72 


00 


00 


72 


' 00 ' 


00 


78 


00 


00 


78 


00 


■ 00 


7A 


00 


00 


7A 


00 


00 


80 


00 


00 


80 


00 


00 


81 


00 


00 


ai 


00 


00 


82 


01 


00 


82 


00 


00 


88 


00 


00 


88 


00 


00 


89 


00 


00 


89 


00 


00 
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88 


00 


00 


8B 


00 


00 


91 


00 


00 


91 


00 


00 


... Al 


00 


00 


Al 


00 


00 


' A9 : 


00 


00 


A9 


00 


00 


.." . CO 


00 


00 


GO 


00 


00 


. ;■ ' ci ' 


00 


00 


CI 


00 


00 


C2 


00 


00 


C2 


00 


00 


C8 


00 


00 


C8 


00 


00 


.... .. "'.-. • .' CA 


00 


00 


CA 


00 


00 


DO 


00 


00 


DO 


00 


00 


D2 ' 


00 


00 


02 


00 


00 


D8 


00 


00 


08 


00 


00 


DA 


00 


00 


DA 


00 


00 


EO ■ 


00 : 


00 


EO 


00 


00 


.' ■ ' ''- ' ■ . ■ ' El 


00 


00 


El 


00 


00 


•..•/■; . ' 62 


00 


00 


E2 ' 


00 


00 


E3 


00 


00 


E3 


00 


00 


; ■ E8 


00 


00 


E8 


00 


00 


E9' ■. 


00 


■ 00 


E9 


00 


00 


EA 


00 


■ 00' 


EA 


00 


00 


■ . . ' m 


00 


"00 


■ E0 


00 


.00 


' ■. ;/--.'/' ".■./: . • ■•■ FO 


00 


00 


FO 


00 


00 


/■' ". /■ • FA 


00 


00 


FA 


00 


00 


■/" . EACH COLUMN IN 


THE 


ABOVE 


TABLE 


IS 



COLUMN 1 - DATA WRITTEN TO PUNCH BUFFER 



COLUMN 2 
COLUMW ■ 3 

COLUMN 4 
COLUMN 5 
COLUMN 6 

•*N0TE*» 



• PUNCH ' WRITE SENSE DATA 
» PUNCH WRITE CHECK READ '.DATA 
- PUNCH READ DATA 

• PUNCH READ SENSE DATA 
» PUNCH READ CHECK READ DATA 

EACH ROW ' IN THE' ABOVE TABLE THAT IS IN ERROR 
WILL BE PRECEEDED BY AN ASTERISK* AN ERROR 
■ IS: DETECTED WHEN-. THE ■ PUNCH "WRITE- ANO READ DATA 
ARE' .NOT 'EQUAL AND/OR WHEN THE -. SENSED 0R;.:C : H€€K 
'.' .READ/DATA..; IS' NOT' ZERO.* , . 

^•■■'.'."''COMMENTS. .' : . ':.;■■ -'-' ';■ 

5*1 PROGRAM PHILOSOPHY AND ASSOCIATED COMMENTS • 

THE BASIC PHILOSOPHY EMPLOYED BY THIS PROG RAH IS TO —FIRST— 
AREA ISOLATE A. SOLID DATA PATH FAILURE WITHIN THE 2821/2540 
ATTACHMENT, AND —SECOND — FURTHER ISOLATE THE FAILURE TO 
PARTICULAR CIRCUIT-S-* IN ORDER TO UTILIZE THIS PHILOSOPHY 
WITH THE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS 
NECESSARY TO EMPLOY THE PROGRAM OVERLAY CONCEPT* EACH OVERLAY 
— ROUTINE — IS DESCRIBED IN DETAIL BELOW* 

5*2 DESCRIPTION — -ROUTINE 01, CHANNEL 'REG. FLT — ■ 

THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A 
SOLID FAILURE IN THE CHANNEL REGISTER CIRCUITS WITHIN THE READER/ 
PUNCH ATTACHMENT OF THE 2821* 

THIS ROUTINE ACCOMPLISHES ITS OBJECTIVE BY INVESTIGATING THE 
EIGHT CHANNEL REGISTER BITS.- 0, 1, 2, 3, 4, 5, 6* 7- WITH EACH 
OF THESE LINES MADE ACTIVE, ONE AT A ' TIMEt THE FOLLOWING SEQUENCE 
OF OPERATIONS ARE PERFORMED- 

1. WRITE PUNCH BUFFER 

A* SENSE I/O —IF UNIT CHECK STATUS— 
8* DIAGNOSTIC CHECK READ 

2. READ PUNCH BUFFER 

A. SENSE I/O —IF UNIT CHECK STATUS- 
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B. DIAGNOSTIC CHECK READ 
ON PRINTOUTS. 

, F «, ALL DATA HAS B»J H^.E"^^.?!! 

02 WILL BE RUN* 

BE SET TO 1 TO OBTAIN THIS LOG OUT. 
5.3 DESCRIPTION -ROUTINE OZ, CONTROL PROGRAM— 

saaT™s , s , 2-".sajsB , s sar-WH 

DEFINED BELOW— 

1* READ/PUNCH BUFFER DATA REGISTER 

2. BUFFER ADDRESS REGISTER cckICC AMD * 

\\ READ/PUNCH BUFFER, INHIBIT LINE, AND SENSE AMPS 
4* READ TRANSLATOR 

5 . READ TRANSLATE CHECK CIRCUITRY 

6. PUNCH TRANSLATOR mrn t td v 
1. PUNCH TRANSLATE CHECK CIRCUITRY 

"°" ~ COMMON^LINE S^TO^ANO FROM 

EACH TRANSLATOR ARE INVESTIGATED. 
THIS ROUTINE ACCOMPLISHES ITS OBJECTIVE BY INVESTIGATING THE 
THIRTEEN COMMON DATA LINES uWh PACh'oF THESE DATA LINES MADE 

PERFORMED WITH A CCH COUNT EQUAL TO ONE. 

U ™l? IS Ul -IF UNIT CHECK STATUS- 

B. DIAGNOSTIC CHECK READ 

2 . R ^J^ ^SENSE 8 !/^— IF UNIT CHECK STATUS 
B. DIAGNOSTIC CHECK READ 

3 * HR II E ^NsTl/O-IF UNIT CHECK STATUS— 

B. DIAGNOSTIC CHECK READ 
4. READ READER BUFFER 

A. SENSE I/O 

B. DIAGNOSTIC CHECK READ 

OF THIS DESCRIPTION. 

AFTER ALL DATA HAS BEEN ACCUMUL A^ ? , IT IS INTERROGATED BY^^ 
ANALYSIS ROUTINE. THE RESULTS OP THlb £ NAl - T NUMBER IS 

INDICATE^^THE^C^E.^MUST^REFER^ 4.3.2 for detai led 

INFORMATION. 

it"! K:^rc!s;,^s;r;? E ";s , siLr.5r;°£Jis. s, r:. 
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j ERRORS ARE DETECTED, ROUTINE 03 WILL BE BYPASSED. 



THE LOG OUT OF DATA ACCUMULATED BY THIS ROUTINE IS DESCRIBED IN 
SECTION 4.4.2 OF THIS DESCRIPTION. SECTION- SENSE SWITCH 2 MUST 
BE SET TO 1 TO OBTAIN THIS LOG OUT. 

5.4 DESCRIPTION —ROUTINE 03, BUFFER ADDR FLT 

THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A 
SOLID FAILURE WITHIN THE 2821 READ, PUNCH, AND BUFFER ADDRESS 
REGISTERS* THIS OBJECTIVE IS ACCOMPLISHED IN THE FOLLOWING 
MANNER. 

1. PERFORM TWO DIAGNOSTIC CHECK READS TO THE READER, AND 
SAVE THE CCW COUNT AND DATA OF THE SECOND READ* 

2. PERFORM TWO DIAGNOSTIC CHECK READS TO THE PUNCH, AND 
SAVE THE CCW COUNT AND DATA OF THE SECOND READ. 

a FILTER OUT All BUT ADDRESS CHECKS FROM THE READ DATA* 

I] DETERMINE IF READ, PUNCH, OR BUFFER, ADDRESS REGISTER PROBLEM 

BY ANALYZING THE SAVED DATA. 
5e CIRCUIT ISOLATE PROBLEM IN FAULTY ADDRESS REGISTER BY . 

COMPARING DIAGNOSTIC CHECK READ DATA TO PREDETERMINED . 

ERROR PATTERNS. 
6* PRINT APPROPRIATE ERROR NUMBER 

" ' THE C.E. CAN THEN REFER TO SECTION 4.3.3 OF THIS DESCRIPTION 

' FOR DETAILED INFORMATION OF THE PROGRAM ANALYSIS* 

" ' -r hp mc ntiT OF DATA ACCUMULATED BY THIS ROUTINE IS DESCRIBED IN • 
•-• SECTION 4*4.3 OF THIS DESCRIPT ION. SECTION SENSE SWITCH 2 MUST 

- 8E.SET TO 1 TO OBTAIN THIS LOG OUT* 



5#5 DESCRIPTION —ROUTINE 04, READER TRANSLATOR FLT— 



' .»*NOTE*»* THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 , 
INDICATES ERROR 005, 00?* Oil, 018, 022, OR 
• NO ERROR INDICATION. 

!■'■. ■'. ■ THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID FAILURE 

j--, • WITHIN THE FOLLOWING AREAS — 

\ ' 1. BUFFER DATA REGISTER- 

):■ - 2* INVALID CARD CODE CHECKING CIRCUITS 

| . 3. READER TRANSLATOR 

I THIS OBJECTIVE IS ACCOMPLISHED BY PROVIDING TO THE ABOVE AREAS 

| THE REQU I RED INPUTS TO EXERCISE ALL CIRCUITS* THE OUTPUTS ARE 

thpni T NT FRRQGAT ED FOR A UNIQUE PATTERN WHICH DESCRIBES A 
! MRuiSt'K TO PROVIDE THE INPUTS AND OBTAIN THE 

SuTmst THE FOLLOWING SEQUENCE OF OPERATIONS ARE PERFORMED- 



1. DIAGNOSTIC WRITE TO READ BUFFER n „ tilAI UUCQtz PTrHTY 
THIS WRITE USES A CCW. COUNT OF 160, DECIMAL, WHERE EIGHTY 
IDENTICAL COLUMN BINARY CHARACTERS WILL BE WRITTEN. 

2. READ READER BUFFER 

3. SENSE I/O 

4. DIAGNOSTIC CHECK READ 

THE ABOVE SEQUENCE OF OPERATIONS IS REPEATED EIGHTY-ONE TIMES. 
FOR EACH REPEAT , THE DIAGNOSTIC WRITE USES DIFFERENT DATA* THIS 
DATA IS INDICATED IN SECTION 4.4.4 OF THIS DESCRIPTION. 

THIS ROUTINE PROVIDES OUTPUT MESSAGES IN THE FORM OF AN ERROR 
NUMBER^ THE C.E, IS REQUIRED TO REFERENCE f ™IS ERROR IWHBER TO 
SECTION 4.3.5 OF THIS DESCRIPTION FOR DETAILS CONCERNING THE 
FAILURE. ADDITIONAL OUTPUT IS PROVIDED IN THE FORM i OF A LOG OUT 
—SEE SECTION 4.4.4—. THIS LOG OUT IS PROVIDED ONLY IF SECTION 
SENSE SWITCH 02 IS SET-TO 1 PRIOR TO RUNNING THE ROUTINE. 
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5*6 DESCRIPTION —ROUTINE 05* PUNCH TRANSLATOR' FLT— 

♦♦.*NOTE«*» -THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 
. INDICATES ERR 019, ERR 024, ERR 025* OR NO 
ERROR . INDICATION. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE PUNCH TRANSLATOR. THIS IS ACCOMPLISHED BY 
PROVIDING TO THE PUNCH TRANSLATOR THE REQUIRED INPUTS TO 
EXERCISE ALL CIRCUITS. THE OUTPUTS ARE THEN INTERROGATED FOR 
A UNIQUE PATTERN I^HiGH DESCRIBES A 'PARTICULAR 'CIRCUIT FAILURE* 
TO PROVIDE THE" INPUTS AND OBTAIN THE OUTPUTS, THE FOLLOWING'. 
SEQUENCE OF OPERATIONS ARE PERFORMED—- 

1* WRITE PUNCH BUFFER 

THIS WRITE USES A CCW COUNT OF 80* DECIMAL* WHERE fclGHTY 
IDENTICAL CHARACTERS MILL BE WRITTEN* 

2. SENSE I/O TO PUNCH 

3. DIAGNOSTIC CHECK READ TO PUNCH 

4* READ PUNCH BUFFER s '■ ' 

5. sense I/.0- to punch 

6® DIAGNOSTIC CHECK READ TO PUNCH 

THE ABOVE SEQUENCE OF OPERATIONS IS REPEATED SEVENTY-ONE TIMES* 
FOR EACH REPEAT, THE PUNCH WRITE USES DIFFERENT DATA* THIS DATA 
IS INDICATED IN SECTION 4.4.5 OF THIS DESCRIPTION, 

THIS ROUTINE PROVIDES OUTPUT MESSAGES IN THE FOR* OF AN ERROR 
NUMBER. THE C«E* IS RcQUIRED TO REFERENCE THIS ERROR NUMBER 10 
SECCION 4*3.6 OF THIS DESCRIPTION FOR DETAILS CONCERNING THE 
FAILURE. ADDITIONAL OUTPUT IS PROVIDED IN THE FORM OF A LOG OUT 
— SEE SECTION 4*4*5—* THIS LOG OUT IS PROVIDED ONLY II* SECTION 
SENSE SWITCH 02 IS SET TO 1 PRIOR TO RUNNING THE ROUTINE* 



6* APPENDIX 

6.1 READER/ PUNCH COMMAND CODES 



VALID COMMANDS TO THE READER/PUNCH* NOT SHOWING STACKER 

SELECT OR OTHER- VARIOUS '-'OPT IONS THAT ARE AVAILABLE* 



FUNCTION 



COMMAND CODE BITS 
0 1 2 3 4 5 6 7 



HEX CODE 



TEST I/O o • .... 0 0 0 G 0 0 0 0 00 WHERE ALL 



SENSE *..*.*. X 

no op **;*..** o 

READ . . . . *••„.„:■- 

WRIT * * .• 

DIAGNOSTIC WRITE * * 
DIAGNOSTIC READ * * 1 



* DIAGNOSTIC CHECK RO i 1 0 0- 0 1 • 1- "0 



XXX 0100 OU CHARS. 

0 0 0 0 0 1 1 , . 03 ARE IN THE 

-OX X X 1 0 02 ZERO STATE 

- 0 - . - X 0 i -**••.•••• 01. 

-10 0 1 0 1 2) 

1 0 0 .0 1 01 G5 ■ 



C6 



WHERE X FORMS VARIATIONS ON OPTIONS AND - REPRESENTS 
MODIFIERS WHICH MAY ■ BE COMBINED. 



'6*2 SENSE BYTE INFORMATION ' 



»«*«•*»•»»«*»*•«»*•»«»#«-»«»•«»•*»«»***«»»*»•««*•*•«« 



* . ONE SENSE BYTE 

• BIT - WEANING -/' 
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* 






# • 


•0 


COMMAND REJECT 


• 


1 


INTERVENTION REQUIRED 


* 


2 


BUS OUT CHECK 


* 


3 


EQUIPMENT CHECK 




' 4 


DATA CHECK 


* 


5. 


NOT USED 




6 


UNUSUAL COMMAND SEQUENCE 


* 


■ 7 


'NOT USED 


« 







6*3 DIAGNOSTIC CHECK READ INFORMATION ■ ' ' 

•*«#•*••••• *»•*•*»•**•*«»••••*•**«** »•*••«••••«*•»*••*#••« 

.■■ » .THIS COMMAND PROVIDES • FURTHER LOCAL I2ATI0N- OF READER' AND PUNCH • 
* CHECK PROBLEMS. DIAGNOSTIC CHECK READ WILL PERFORM A TRANSFER OF 
» CHECK INFORMATION TO THE CPU* THE SIGNALS RETURNED ARE AS FOLLOWS— 



BIT 


READER 


•■ ' PUNCH 




NOT USED 


NOT USED 


1 


NOT USED 


NOT USED ' 


2 


NOT USED 


■ NOT USED 


3 


: XU CHECK PLANE ' 


XU CHECK PLANE 


4 


XL CHECK PLANE ' 


XL CHECK PLANE 


5 


BUFFER PARITY CHECK. ' 


BUFFER PARITY CHECK 


6 


READ TRANSLATE CHECK 


PUNCH TRANSLATE CHECK 


T 


READER BUFFER ADDRESS 


. . PUNCH BUFFER ADDRESS 




CHECK , . 


CHECH 



■ BITS 0,1 9 AND 2 SHOULD ALWAYS BE ZERO* BITS 3*4, AND 5 CAN APPEAR 

IN ANY BYTE TO INDICATE THE POSITION IN ERROR* BIT 6 WILL -APPEAR 

- ONLY IN THE FIRST BYTE ".OF THE. CHECK .READ TRANSFER AND INDICATE A 

• .TRANSLATE CHECK - IN. THE PREVIOUS: DATA TRANSFER* BIT 7 WILL APPEAR - 
•' IN THE FIRST BYTE OF THE TRANSFER'. IF THE ERROR OCCURRED ON A , 

- PREVIOUS CYCLE OR IF THE ERROR OCCURRED ON THE FIRST BYTE OF 
TRANSFER. IT WILL APPEAR IN SUCCEEDING BYTES IF ERRORS RE-OCCUR 
DURING THE TRANSFERS. 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



8041 TITLE F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



MODIFICATIONS 

1. CHANNEL REG FLT -ROUTINE OVERLAY 01- 

MODIFIED THE SUB-ROUTINE WHICH DETECTS THAT A CHANNEL 
REGISTER LATCH IS ALWAYS IN THE -ON- STATE. 

2. CONTROL PROGRAM -ROUTINE OVERLAY 02- 
MODIFIED TO SELECT ROUTINE OVERLAY 04 -READER 
TRANSLATOR FLT- AND ROUTINE OVERLAY 05 -PUNCH 
TRANSLATOR FLT. THESE TWO ROUTINES ARE NEW ADDITIONS 
TO THIS PROGRAM PACKAGE. 

ENGINEERING CHANGE PREREQUISITES 

1. HARDWARE 

2821 CONTROL UNIT WITH 2540 ATTACHMENT AT MINIMUM 
E.C. LEVEL 124265 

2. PROGRAM 
NONE 



XF8041 START 4096 
001000 USING *,15 



RESIDENT ROUTINES 



SECTION SENSE SWITCH USAGE 



« SSW 0, LOC X004, BIT 0 - 

» SSW 1, LOC X004, BIT 1 - 

* SSW 2, LOC X004, BIT 2 - 

* SSW 6, LOC X004, BIT 6 - 
ft*******************************- 

* SECTION PREFACE 
**•*••*•***•**«* **************** 



LOOP ON START I/O 
USE UTILITY SCOPE ROUTINE 
LOG OUT DATA TABLE 
PRINT TITLE 

******************************* 
******************************** 



**»*«**| 
******* 



001000 


F80410 


SECST 


DC . 


XL3»F80410» 


PROGRAM & SECTION NUMBER 


001003 


00 




DC 


XL1»0» 


THIS FIELD MUST CONTAIN ZEROS 


001004 


00000000 


SNSW 


DC 


XL4»0« 


SENSE SWITCHES 


001008 


0000 




DC 


XL2»0« 


RESERVED 


00100A 


0000 


ICM 


DC 


XLZ^ 1 


INTERRUPTION CONDITION MASK 


00100C 


00 




DC 


XL1'0» 


RESERVED 


001000 


02 


NIOU 


DC 


XL1«02« 


NUMBER OF I/O UNITS THAT CAN BE TEST 


00100E 


80 


FLAGS1 


DC 


XL1«80« 


SECTION FLAGS, EXCLU. CPU 


00100F 


00 


FLAGS2 


DC 


XL1'0» 


INTERRUPT HANDLING FLAG. 


001010 


010400000F 


INPSW 


DC 


X»010400000F» 




001015 


00186C 


. * 
* 


DC 


AL3(RTN01 ) 


INITIAL PSW STARTING ADDRESS FOR 
ROUTINE 01 - THIS ADDRESS. IS 
CHANGED FOR EACH OVERLAY 


001018 


0000000000000000 




DC 


5XL8«0« 


OLD PROGRAM STATUS WORDS 


001020 


0000000000000000 










001028 


0000000000000000 










001030 


0000000000000000 










001038 


0000000000000000 










001040 


0000000000000000 


csw 


DC 


XL8»0« 


CHANNEL STATUS WORD 


001048 


00000000 


CAW 


DC 


XL4»0« 


COMMAND ADDRESS WORD 


00104C 


000000000000000000 




DC 


XL12«0 9 


RESERVED 


001055 


000000 










001058 


0000000000000000 


EXTR 


DC 


XL8«0« 


EXTERNAL RETURN PSW 


001060 


010400000F 


SVRPSW 


DC 


X«010400000F» 




001065 


00171.C 




DC 


AL3CEXIT2) 


RETURN ADDRESS 


001068 


0000000000000000 


PIRPSW 


DC 


XLS'O* 


PROGRAM INTERRUPT RETURN PSW 


001070 


0000000000000000 


MCRPSW 


DC 


XL8»0« 


MACHINE CHECK RETURN PSW 


001078 


010400000F 


IORPSW 


DC 


X«010400000F 9 
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00107D 



001080 



001570 



IORADR DC AL3(SI0INT) 
* REGISTER DUMP AREA 



I/O RETURN PSW INSTRUCTION ADDRESS 



OS 



96C 



SUPERVISOR REGISTER DUMP AREA 



SECTION PREFACE UNIT TABLE 



0010E0 


81 


UNIT1 


DC 


XL1"81» 


UNIT TYPE - UNIT 1 -READER 




0010E1 


00 




DC 


XLl'OO* 


I/O OPTIONS 




0010E2 


8000 


UN1ADR 
* 


DC 


XL2 , 8000« 


FLAGS AND ACTUAL UNIT ADDRESS 




0010E4 


82 


UNIT2 


DC 


XL1«82« 


UNIT TYPE - UNIT 1 -PUNCH 




0010E5 


00 




DC 


XLl^OO" 


I/O OPTIONS 




0010E6 


8000 


UN2ADR 


DC 


XL2«8000« 


FLAGS AND ACTUAL UNIT ADDRESS 








* 




VARIABLE FIELDS 




* 






* 


VARIABLES FOR SCOPING 


ROUTINE - DOUBLE WORD BOUNDARY 


• 



*********************************************************************** 



0010E8 


00 001234 0000 0000 


SCPCCW 


CCW 


X«00»,SCPDAT,X»00«,00 


SCOPE ROUTINE CCW 






* 


VARIABLES FOR SCOPING ROUTINE - WORD 


BOUNDARY • 


0010F0 


00000000 


SCPRK1 


DC 


4F»00« 


GR9 THRU 


GR12 SAVED HERE 


0010F4 


00000000 












0010F8 


00000000 












0010FC 


00000000 












001100 


00000000 


SCPRK4 


DC 


F»00« 


WORK AREA 






************************************ ***»***•) 


**************************** 






* 


VARIABLES FOR SIO ROUTINE - 


WORD BOUNDARY * 






*************************** ***»*»*i 


************************* ************ 


001104 


00000000 


SI0VR1 


DC 


9F»00» 


GR1 THRU 


GR9 SAVED HERE BY SIO 


001108 


00000000 












00110C 


00000000 












001110 


00000000 












001114 


00000000 












001118 


00000000 












00111C 


00000000 












001120 


00000000 












001124 


00000000 












001128 


00000000 


SI0VR2 


DC 


F«00« 


SEC PREF 


CAW SAVED HERE BY SIO 


00112C 


00000000 


SI0VR3 


DC 


2F«00» 


CSW SAVE 


AREA FOR ORIG SIO 


001130 


00000000 












001134 


00000000 


SI0VR4 


DC 


F«00» 


CC SAVED 


HERE FOR ORIG SIO 


001138 


00000000 


SI0VR7 


DC 


F»00« 


CC SAVED 


HERE FOR SENSE I/O 


00113C 


00000000 


SI0VR8 


DC 


2F»00« 


CSW SAVE 


AREA FOR SENSE I/O 


001140 


00000000 












001144 


00000000 


SI0VR9 


DC 


2F»00« 






001148 


00000000 
















*********************************************************************** 






* 


VARIABLES FOR SIO ROUTINE - 


NO BOUNDARY » 






*********************************************************************** 


00114C 


00 


CAWKEY 


DC 


X'OO* 


CAW KEY STORED HERE 


00114D 


00 


SIOSWS 


DC 


X'OO* 


SIO SWITCHES 


00114E 


C961D640C1C4C4D940 


SI0MS1 


DC 


CI/0 ADDR XXX CAW» 


CCO BUT NO INTERRUPT 


001157 


E7E7E740C3C1E6 












00115E 


40E7E7E7E7E7E7E7E7 




DC 


C» XXXXXXXX GOT CC« 






001167 


40C7D6E340C3C3 












00116E 


F040C2E4E340D5D640 




DC 


C ■ 0 BUT NO INTERRU* 






001177 


C9D5E3C5D9D9E4 












00117E 


D7E3 




DC 


C«PT» 






001180 


000000 


SI0VR5 


DC 


XLS'OO* 


BCD ADDR 


OF UNIT ADDRESSED BY SIO 


001183 


00 


SI0VR6 


DC 


x # oo # 






001184 


C961D640C1C4C4D940 


SI0MS2 


DC 


C'l/Q ADDR XXX CAW« 


CC1 MESSAGE 


00118D 


E7E7E740C3C1E6 












001194 


40E7E7E7E7E7E7E7E7 




DC 


C» XXXXXXXX GOT CC 






00119D 


40C7D6E340C3C3 
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0011A4 


F140C3E2E640E2E3C1 




DC 


C • 1 CSW STATUS XXX" 


0011AD 


E3E4E240E7E7E7 








00I1B4 


E740E2D5E240E7E740 




DC 


C»X SNS XX • 


UU 1 1 DL) 


40404040 








0011C1 


C961D640C1C4C4D940 


SI0MS3 


DC 


C» I/O ADDR XXX CAW* 


0011CA 


E7E7E740C3C1E6 






0011D1 


40E7E7E7E7E7E7E7E7 




DC 


C • XXXXXXXX GOT CC • 


0011DA 


40C7D6E340C3C3 






0011E1 


F140C3E2E640E7E7E7 




DC 


C»l CSW XXXXXXXXXX" 


0011EA 


E7E7E7E7E7E7E7 








0011F1 


E7E7E7E7E7E7 




DC 


C'XXXXXX* 


0011F7 


00 


SENSE 


DC 


X«00» 


0011F8 


0000 


STATSV 


DC 


XL2«00« 


0011FA 


0000000000000000 


CSWAG 


DC 


XL8»00» 


001202 


C4C9C1C740C3D240D9 


MESS1 


DC 


C'DIAG CK RD UNIT • 


00120B 


C440E4D5C9E340 






001212 


F0F0F040D5D6E340D6 




DC 


C'OOO NOT 0K,« 


00121B 


D26B 






00121D 


40E6C9D3D340E309E8 




DC 


C« WILL TRY AGAIN' 


001226 


40C1C7C1C9D5 






00122C 


00 


* 


DC 


X»00« 


00122D 


000000 


UARD 


DC ; 


XLS'O 1 


001230 


00 




DC 


X«00» 


001231 


000000 


UAPU 


DC 


XL3»0« 



SENSE ERROR MESSAGE 



2ND STATUS SAVED HERE 
AGGREGATE CSW SAVED HERE 



AREA TO SAVE PRINTABLE READER ADDR 
AREA TO SAVE PRINTABLE PUNCH ADDR 

* VARIABLES FOR SCOPING ROUTINE - NO BOUNDARY * 



001234 000000000000000000 

00123D 000000000000000000 

001246 000000000000000000 

00124F 000000000000000000 

001258 000000000000000000 

001261 000000000000000000 

00126A 00000000000000*0000 

001273 000000000000000000 

00127C 000000000000000000 

001285 000000000000000000 

00128E 000000000000000000 

001297 000000000000000000 

0012A0 000000000000000000 

0012A9 000000000000000000 

0012B2 000000000000000000 

0012BB 000000000000000000 

0012C4 000000000000000000 

0012CD 000000000000000000 

0012D6 000000000000000000 

0012DF 000000000000000000 



SCPDAT DC 



XL180 f 0« 



SCOPE ROUTINE DATA FIELD 



«»***»**«»*«*«**«»«** ««»-»»«»« •»*** 
* START I/O ROUTINE 

•*•«««»*»«**««»«*««»»»*«»«»*•«#«» 



0012E8 














CNOP 


0,4 


0012E8 


D2 


02 


F 


180 


F 


22D 


SIO MVC 


SI0VR5(3) y UARD 


0012EE 


91 


02 


F 


14D 






TM 


SI0SWS,X«02» 


0012F2 


47 


10 


F 


2FC 






BC 


ALLON, *£10 


0012F6 


D2 


02 


F 


180 


F 


231 


MVC 


SI0VR513) , UAPU 


0012FC 


02 


02 


F 


070 


F 


738 


MVC 


I0RPSW€5(3} ,SI0CN1 


001302 


90 


19 


F 


104 






STM 


GR1,GR9,SI0VR1 


001306 


D2 


03 


F 


128 


F 


048 


MVC 


SI0VR2(4) ,CAW 


00130C 


D7 


07 


F 


12C 


F 


12C 


SIOAOO XC 


SI0VR3C8) f SIQVR3 


001312 


D7 


00 


F 


1F7 


F 


1F7 


XC 


SENSE ( 1) , SENSE 


001318 


54 


CO 


F 


7 BO 






N 


GRCCLRC 


00131C 


D2 


00 


F 


048 


F 


14C 


MVC 


CAW(l) ,CAWKEY 


001322 


D2 


03 


D 


048 


F 


048 


MVC 


HCAW(4,GRD),CAW 


001328 


9C 


00 


C 


000 






SIO 


O(GRC) 


00132C 


45 


10 


F 


330 






BAL 


GR1,*£4 


001330 


50 


10 


F 


134 






ST 


GR1,SI0VR4 


001334 


91 


80 


F 


14D 






TM 


SIOSWS, X«80» 



*»»*«»***«#«•««»* 

SET UP CONSTANT FOR READER 

SEE IF READER WILL BE ADDRESSED 

BR IF YES 

SET UP CONSTANT FOR PUNCH 
LOAD RETURN ADDR IN IORPSW 
SAVE GR1 THRU GR9 
SAVE CAW 

CLEAR CSW SAVE AREA 

CLEAR SENSE BYTE 

AND OUT BITS 0 THRU 20 /F GR 12 

LOAD STORAGE KEY IN SEC PREF CAW 

LOAD CAW 

START I/O 

SAVE CONDITION CODE 
SEe'If RET TO PROG SW1 ON 
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UU 1 5 o o 


Hi i, U 


r 


DUE 






DO 


ALLIUM , oi U I kjh 


BR IF YES 


00 1 33C 


Ol ■an 


c 
r 


1 'XL. 






TM 




SEE I F SIO CC WAS ZERO 


UU i OH\J 


47 50 


F 


36 A 






BC 


ANYON t SI OBOO 


BR IF NO 


00 1 344 


OA 08 










SVC 


X ' D8 1 


WAIT FOR I/O INTERRUPT 


001346 


91 80 


F 


004 






TM 


SNSWf X a 80' 


BR IF SEC SS 00 IS 1 - LOOP SIO 


UU i 3**A 


47 10 


F 


3BE 






BC 


ALLONtSIOCOA 


» t 


001 34E 


OA DD 










SVC 


X • DD • 


CONVERT CAW TO EBCDIC 




0004 










DC 


AL2 (4) 


NO. OF HEX BYTES IN CAW 


t\r\ loco 


0048 










DC 


AL2 ( CAW-SEC ST) 


HEX DATA ADDR 


001354 


015F 










DC 


AL2( SI0MS1S17-SECST) 


EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001 356 


D2 02 


F 


157 


F 180 




MVC 


SI0MSlu9(3) »SI0VR5 


SET I/O ADDR IN OUTPUT MESSAGE 




92 FO 


F 


16E 






MV I 


SIOMS1632 t X' FO" 


SET CCO IN OUTPUT MESSAGE 


f\t\ 1 O L. I\ 

001360 


OA DO 










SVC 


X 'DO • 


PRINT GOT CCO BUT NO INTERRUPT 


001362 


40 










DC 


X*40' 


PRINT PROG NO. PRIOR TO MSG 












* 






TREAT AS ERROR 












* 






DO NOT CHAIN 












* 






DO NOT RESTORE 












* 






PRINT ON NORMAL OUTPUT DEVICE 


001363 


32 










DC 


X , 32 l 


NO. OF CHAR IN MSG (50) 


001364 


F14E 










DC 


AL2( SI 0MS1-BASE tREG) 


MESSAGE ADDRESS 


001366 


47 FO 


F 


3BE 






BC 


ALWAYSt SIOCOA 


GO TRY SIO AGAIN 


00136A 


91 30 


F 


134 




S I0B00 


TM 


SI0VR4,X»30• 


SEE IF SIO CC WAS 3 


00136E 


47 40 


F 


396 






BC 


MIXEDt SIOCOO 


BR IF NO 


001372 


91 80 


F 


004 






TM 


SNSW,X«80" 


BR IF SEC SS 00 IS 1 - LOOP SIO 


001376 


47 10 


F 


30C 






BC 


ALLON, SIOAOO 


f » 


00137A 


OA DD 










SVC 


X«DD» 


CONVERT CAW TO EBCDIC 


00137C 


0004 










DC 


AL2(4) 


NO. OF HEX BYTES IN CAW 


00137E 


0048 










DC 


AL2(CAW-SECST) 


HEX DATA ADDR 


001380 


015 F 










DC 


AL2(SI0MS1G17-SECST) 


EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001382 


D2 02 


F 


157 


F 180 




MVC 


SI0MSia9(3) ,SIOVR5 


SET I/O ADDR IN OUTPUT MESSAGE 


001388 


92 F3 


F 


16E 






MVI 


SI0MS1&32,X»F3 I 


SET CC 3 IN OUTPUT MESSAGE 


00138C 


OA DO 










SVC 


X»D0« 


GOT CC3 ON SIO 


00138E 


40 










DC 


X^O* 


PRINT PROG NO. PRIOR TO MSG 












*' 






TREAT AS ERROR 












* 






DO NOT CHAIN 


















DO NOT RESTORE 












* 






PRINT ON NORMAL OUTPUT DEVICE 


00138F 


21 










DC 


X»21 « 


NO OF CHAR IN MSG (33) 


001390 


F14E 










DC 


AL2( SIOMSl-BASEtREG) 


MESSAGE ADDRESS 


001392 


47 FO 


F 


30C 






BC 


ALWAYS, SIOAOO 


GO TRY SIO AGAIN 


001396 


91 10 


F 


134 




SIOCOO 


TM 


SI0VR4 f X«10 l 


SEE IF SIO CC WAS 2 


00139A 


47 10 


F 


3EE 






BC 


ALLON, SI0D00 


BR IF NO 


00139E 


91 80 


F 


004 






TM 


SNSW,X»80« 


BR IF SEC SS 00 IS 1 - LOOP SIO 


0013A2 


47 10 


F 


3BE 






BC 


ALLON, SIOCOA 


t ? 


001 3 A6 


OA DD 










SVC 


X^DD' 


CONVERT CAW TO EBCDIC 


0013A8 


0004 










DC 


AL2(4) 


NO. OF HEX BYTES IN CAW 


0013 A A 


0048 










DC 


AL2( CAW-SECST) 


HEX DATA ADDR 


0013 AC 


015F 










DC 


AL2( SI0MS1&17-SECST) 


EBCDIC DATA ADDR IN OUTPUT MESSAGE 


0013AE 


D2 02 


F 


157 


F 180 




MVC 


SI0MS1&9(3) ,SI0VR5 


SET I/O ADDR IN OUTPUT MESSAGE 


0013B4 


92 F2 


F 


16E 






MVI 


SI0MS1£;32,X•F2 , 


SET CC 2 IN OUTPUT MESSAGE 


UU LOOo 


n a no 

U A UU 












X • DO • 


GOT CCZ ON SIO 


0013BA 


40 










DC 


X • 40 • 


PRINT PROG NO. PRIOR TO MSG 


















TREAT AS ERROR 


















DO NOT CHAIN 












' * 






DO NOT RESTORE 












. # . 






PRINT ON NORMAL OUTPUT DEVICE 


0013BB 


21 










DC 


X»21« 


NO OF CHAR IN MSG (33) 


0013BC 


F14E 










DC 


AL2(SI0MS1-BASE£REG) 


MESSAGE ADDRESS 


0013BE 


90 00 


C 


000 




SIOCOA 


TIO 


O(GRC) 


TEST I/O THIS DEVICE 


0013C2 


47 80 


F 


30C 






BC 


ZERO, SIOAOO 


REPEAT SIO IF CCO r 


0013C6 


47 50 


F 


3BE 






BC 


ANYON, *-8 


LOOP PREV TIO UNTIL GET CCO 


0013CA 


18 2C 










LR 


GR2,GRC 


SAVE I/O ADDR STORED IN GR12 


0013CC 


91 02 


F 


14D 






TM 


SI0SWS,X»02» 


SEE IF GR12 CONTAINS RDR ADDR 


0013D0 


47 10 


F 


3DC 






BC 


ALLON, SI0C01 


BR IF YES 


0013D4 


48 CO 


F 


0E2 






LH 


GRC , UN1ADR 


SET READER ADDR IN GR 12 


0013D8 


47 FO 


F 


3E0 






BC 


ALWAYS, *&8 


BR AROUND NEXT OP 


0013DC 


48 CO 


F 


0E6 




SI0C01 


LH 


GRCUN2ADR 


SET PUNCH ADDR IN GR 12 


0013E0 


9D 00 


C 


000 






TIO 


O(GRC) 


TEST I/O 
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0013E4 


47 


70 


F 


3E0 








BC 


0013E8 


18 


C2 












LR 


0013EA 


47 


FO 


F 


30C 








BC 


0013EE 


91 


80 


F 


004 






SIODOO 


TM 


0013F2 


47 


10 


F 


3BE 








BC 


0013F6 


91 


80 


F 


183 








TM 


0013FA 


47 


80 


F 


41A 








BC 


0013FE 


92 


00 


F 


183 








MVI 


001402 


91 


FF 


D 


045 








TM 


001406 


47 


50 


F 


41A 








BC 


00140A 


91 


EB 


0 


044 








TM 


00140E 


47 


50 


F 


41A 








BC 


001412 


91 


14 


D 


044 








TM 


001416 


47 


10 


F 


30C 








BC 


00141A 


D2 


02 


F 


18D 


F 


180 


SI0D01 


MVC 


001420 


OA 


DD 












SVC 


001422 


0004 












DC 


001424 


0048 












DC 


001426 


0195 












DC 


001428 


D2 


07 


F 


12C 


D 


040 




MVC 


00I42E 


OA 


00 












SVC 


001430 


0002 












DC 


001432 


0130 












DC 


001434 


01B1 












DC 


001436 


92 


Fl 


F 


1A4 








MVI 


00143A 


91 


02 


F 


130 








TM 


00143E 


47 


10 


F 


454 








BC 


001442 


OA 


DO 












SVC 


001444 


40 














DC 



NZER0,*~4 
GRC,GR2 
ALWAYS, SIOAOO 
SNSWfX'SO* 
ALLON, SIOC OA 
SI0VR6, X«80« 
ALL0FF,SI0D01 
SI0VR6,X«00« 
HCSW£5(GRD) ,X«FF» 
ANY0N,SI0D01 
HCSW&4CGRD) ♦X'EB' 
ANYON, SI0D01 
HCSWG4(GRD) ,X«14 e 
ALLON, SIOAOO 
SI0MS2&9(3> ,SI0VR5 
X»DD« 
AL2(4) 

AL2(CAW-SECST) 

AL2(SI0MS2U7-SECST) 

SI0VR3(8) t HCSW(GRD) 

X^DD* 

AL2(2) 

AL2(SI0VR3£4-SECST) 

V\L2(SI0MS2&45-SECST) 

SIQMS2£32,X«F1« 

SI0VR3G4, X«02» 

ALLON, SIOEOO 

X«DO« 

X»40« 



001445 
001446 
001448 
00144C 
001450 
001454 
001458 
00145A 
00145C 
00145E 
001460 
001464 
001468 
00146A 



31 

F184 
91 FF 
47 50 
47 FO 
45 30 
OA DD 
0001 
01F7 
01BA 
91 40 
47 10 
OA DO 
40 



131 
3BE 
30C 
494 



1F7 
472 



DC 
DC 

SIDD02 TM 
BC 
BC 

SIOEOO BAL 
SVC 
DC 
DC 
DC 
TM 
BC 
SVC 
DC 



X*31« 

AL2(SI0MS2-BASE£REG) 

SI0VR3a5,X'FF« 

ANYON, SIOCOA 

ALWAYS, SIOAOO 

GR3,SI0F00 

X»DD» 

AL2(1) 

AL2(SENSE-SECST) 

AL2 ( SI0MS2&54-SECST) 

SENSE, X«40« 

ALLON, SI0E01 

X«DO« 

X»40« 



00146B 
00146C 
00146E 
001472 
001476 
001478 



38 

F184 
47 FO 
92 80 
OA DO 
60 



448 
183 



DC 
DC 
BC 

SI0E01 MVI 
SVC 
DC 



X«38« 

AL2(SI0MS2-BASE£REG) 

ALWAYS, SI0D02 

SI0VR6,X , 80« 

X»DO* 

X»60» 



001479 
00147A 
00147C 



38 

F184 
OA DO 



DC X«38« 

DC AL2( SI0MS2-BASESREG) 
SVC X'DO* 



00147E 



80 



DC 



X'SO* 



P/N 840258 
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LOOP TIO UNTIL GET CCO 

RESTORE ORIGINAL SIO ADDR 

GO TRY SIO AGAIN 

BR IF SEC SS 00 IS 1 - LOOP SIO 

br'if INTERV REQ SW OFF 

TURn'oFF INTERV REQ SW 
BR IF ANY CHAN STATUS 

BR TO SIO ROUTINE IF BSY £ DE ONLY 

SEt'1/0 ADDR IN OUTPUT MESSAGE 
CONVERT CAW TO EBCDIC 
NO. OF HEX BYTES IN CAW 
HEX DATA ADDR 

EBCDIC ADDR IN OUTPUT MESSAGE 
SAVE CSW 

CONVERT CSW STATUS TO EBCDIC 
NO. OF STATUS BYTES 
CSW STATUS ADDR 
EBCDIC ADDR IN OUTPUT MESSAGE 
SET CC1 IN OUTPUT MESSAGE 
BR IF GOT UNIT CHECK 
$$ 

GOT CC1 ON SIO - NO UC 

PRINT PROG NO. PRIOR TO MESSAGE 

TREAT AS ERROR 

DO NOT CHAIN 

DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 
NO. OF CHAR IN MSG (49) 
MESSAGE ADDRESS 

BR TO TIO IF GOT ANY CHAN STATUS 

GO*TRY SIO AGAIN 
GO DO SENSE OP 

CONVERT SENSE DATA TO EBCDIC 

NO. OF SENSE BYTES 

SENSE DATA ADDRESS 

EBCDIC ADDR IN OUTPUT MESSAGE 

BR IF GOT INTERV REQ 

GOT CC1 ON SIO - WITH UC & NO INV RQ 
PRINT PROG. NO PRIOR TO MESSAGE 
TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 

56 CHARACTERS 

MESSAGE ADDRESS 

GO TRU SIO AGAIN 

TURN ON INTERV REQ SW 

GOT CC1 ON SIO - UC £L INTERV REQ 

PRINT PROG NO PRIOR TO MSG 

TREAT AS ERROR 

CHAIN 

DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 
NO. OF CHAR IN MSG (56) 
MESSAGE ADDRESS 

MAKE THIS UNIT RDY WITH BLANK CARDS 

I/O ADDR IN GR 12 
PRINT MESSAGE ONLY 
DO NOT TREAT AS ERROR 
00 NOT CHAIN 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 
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ccccccccccccccccc 
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F8041 


CHANNEL 


REG FLT 


—oniiT twc nwcoi av 
—KUUIIIMt UVtKLAY 


Ui 














* 






nn NOT RF^THRF 










* 






DDT NIT OKI KinRMAI HIITPllT OFVITF 


00147F 


23 








DC 


X • 23 


wn rf rHAR tn m^g (55) 


001480 


F73B 








nr 
uu 


Al -> I C. T riM^i-R A ^PTBPCl 
ALc 1 jIUHjH DA JtCilVCoJ 


MF<I^AfiF AnnRFS.S 




DO DU 


E 


198 


S I0E02 


L 


GR *>. 40ft ( GRO.GRF) 


GET DM 10 SEC CONSTANT 


001486 


IE 55 








ALR 




SET UP 20 SEC CONSTANT 


Art 1 AQO 


a a *;n 


F 


488 




BCT 


GR 5 , * 


20 SEC DELAY 


UU IHOU 


qa n i 
70 u 1 


F 


14D 




0 1 




TURN ON RESTART SECTION SW 


UUl < t-9U 


47 FO 


F 


30C 




DU 


Al UA Y<\- <sIflAOO 


GO TRY -SIO AGAIN 












START 


I/O ROUTINE PERFORMS 


SENSE I/O HERE * 


nn i iQA 


D2 02 


F 


1CA F 


xou 0 luruu 


MVC 




SET I/O ADDR IN OUTPUT MESSAGE 




41 40 


F 


728 




LA 




SET UP SENSE CAW 


fin 1 a q c 
UU 1^7C 


50 40 


F 


048 




0 1 


r.oA . r AW 


f f 


UuiHAc 


uc. UU 


F 


048 F 




MVC 


r A U l 1 \ mC A WKFY 




0014A8 


OA DD 










X ' DD * 


rriNVFRT rAW Tn fbcdic 


r» r\ 1 a a a 
UU14AA 


0004 








uu 


AL2 ( 4 ) 


Mfi. np HFX BYTES IN CAW 


UU l*fr At. 


0048 








DC 




HFX DATA ADDR 


0014AE 


0 1D2 








nr 
uu 


Al O I *L T nMC^lf 1 7-CPf CT \ 


FRrnir data addr in output message 


0014B0 


D2 03 


D 


048 F 




pi y u 


nU A n I **■ , l»t\U 1 ,UAfl 


1 OAn ^FISI<iF f AW 


r\r\ 1 ADA 

UU14B6 


9C 00 


C 


000 








oc mot. i / kj 


0014BA 


45 40 


F 


4BE 




O Al 
D AL 


GR4 , * £4 


SAVE CC 


0014BE 


91 80 


F 


004 




TM 


CM CU y |oni 


or tc ccr cc nn 1 - I OOP SIO 

Df\ ir oCU oo UU 1 o 1 L.uur O * »J 


0014C2 


47 10 


F 


564 




oU 


ai i dm cincfm 


» t 


0014C6 


50 40 


F 


138 




C T 


PDA C T n\/D 7 
oKH , o 1 U VK 1 


SAVE CC 


0014CA 


92 FO 


F 


1E1 




MVI 


CTHMCIf 5") Vicnt 

5 1 UMl>3&3<d , a i U 


ccT.frn TM ni IT PI IT MF<tC.AftF 
ou 1 UUU ill UU 1 rU 1 nCOJ MV? c 


0014CE 


91 30 


F 


138 




TM 


5IUVK / jX'iU" 


o. o tc rnT rrn 
oK lr uu i uuu 


0014D2 


47 80 


F 


516 




BC 


ALLOFF , SI0F03 


T » 


0014D6 


92 F3 


F 


1E1 




MVI 


SI0MS3&32 , X" F3 ■ 


CCT r ri TM Ol IT Dl IT UCCC ATC 

oET uU3 IN UUT rU 1 nfcbo A(*t 


0014DA 


47 10 


F 


50C 




BC 


ALLON, SI0F02 


BR IF GUT UU3 


0014DE 


92 F2 


F 


1E1 




MVI 


5I0M53t»32,X , ^Z , 


CCT f Ci TM m IT DMT MCCCACC 
be 1 UUZ 1IM UUI rul nt oo AbC 


0014E2 


91 20 


F 


138 




TM 


b IUVR 7 , X * C.U* 


BK Ir uUI UU<C 


0014E6 


47° 10 


F 


50C 




BC 


At i om C T nr no 

ALLON , M OFOZ 


$$ 


0014EA 


92 Fl 


F 


1E1 




MVI 


SIUMSSOZjX'rl * 


CCT rn TM nilTDIIT MCCCA(iC 
ofc.l UUI i IN UU 1 r U 1 nCJoAwC 


0014EE 


D2 06 


F 


1E7 F 


75E 


MVC 


SI 0MS3&38 (7) , SIOCN2 


be I Ur UU 1 r U 1 n too Al>t 


0014F4 


D2 07 


F 


13C D 


040 


MVC 


SI0VR8 ( 8) ,HCSW(GRD) 


SAVE C5W 


0014FA 


OA DD 








SVC 


X^DD* 


CONVERT CSW STATUS TO EBCDIC 


0014FC 


0002 








DC 


AL2(2) 


NO* OF STATUS BYTES 


0014FE 


0140 








DC 


AL2 ( SI0VR8G4-SECST) 


CSW STATUS ADDRESS 


001500 


01EE 








DC 


AL2 ( SI0MS3S45-SECST) 


EBCDIC ADDR IN UU 1 PU 1 McboAbfc 


001502 


OA DO 








SVC 


X •DO* 


GOT CCl ruR SENSE l/U 


001504 


40 








DC 


X'40* 


PRINT PROG NU. PRIUR lu ntSS Awe 
















TREAT AS tRKUR 










* 






DO NOT CHAIN 










* 






DO NOT RESTORE 










* 






PRINT ON NORMAL OUTPUT ucVILe 


001505 


31 








DC 


X • 31 1 


NO. OF BYTES IN OUTPUT MESSAGE (49) 


001506 


F1C1 








DC 


AL2 ( SI 0MS3-BASEGREG) 


MESSAGE ADuRtSS 


001508 


47 FO 


F 


564 




BC . 


ALWAYS, SI0F08 


GO TRY SENSE I/O AGAIN 


00150C 


OA DO 






SI0F02 


SVC 


X»D0« 


GOT CC2 OR CC3 ON SENSE 1/0 


00150E 


40 








DC 


X^O 1 


PRINT PROG NO. PRIOR TO MESSAGE 










* , 






TREAT AS ERROR 










* 






DO NOT CHAIN 










♦ 






nn mdt d cct nop 

UU iMUl Kt j 1 UKt 










* 






PRINT ON NORMAL OUTPUT DEVICE 


00150F 


21 








DC 


X'21 1 


NO. OF BYTES IN OUTPUT MESSAGE (33) 


001510 


F1C1 








DC 


AL2(SI0MS3-BASE£REG) 


MESSAGE ADDRESS 


001512 


47 FO 


F 


564 




BC 


ALWAYS, SI0F08 


GO TRY SENSE I/O AGAIN 


001516 


D7 07 


F 


13C F 


13C SI0F03 


xc 


SI0VR8(8) ,SI0VR8 


CLEAR SENSE 1/0 CSW SAVE AREA 


00151C 


9D 00 


C 


000 




TIO 


O(GRC) 


TEST 1/0 


001520 


47 40 


F 


52C 




BC 


CSWST,SI0F04 


BR IF CSW STORED 


001524 


47 70 


F 


51C 




BC 


NZER0,SI0F03G6 


REPEAT TIO IF NOT CCO 


001528 


47 FO 


F 


532 




BC 


ALWAYS, SI0F05 


CONTINUE 


00152C 


06 07 


F 


13C D 


040 SI0F04 


OC 


SI0VR8(8) ,HCSW(GRD) 


SAVE CSW 


001532 


91 FF 


F 


141 


SI0F05 


TM 


SI0VR8&5,X«FF« 


BR IF ANY CHANNEL STATUS 


001536 


47 50 


F 


54A 




BC 


ANY0N,SI0F06 


$$ 


00153A 


91 OC 


F 


140 




TM 


SI0VR8£4,X»0C» 


8R IF DID NOT GET CE £ DE 


DATE 


15JUL65 




17MAR66 






ID F804-1 


EC 


124265 




125643 
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00153E 


47 


CO 


F 


54A 








BC 


MIXNON, SI0F06 


$$ 


















DO NOT RESTORE 


001542 


91 


F3 


F 


140 








TM 


SI0VR8£4,X«F3« 


RETURN IF DID NOT GET ANY OTHER 


















PRINT ON NORMAL OUTPUT DEVICE 


001546 


47 


80 


F 


55C 








BC 


ALLOFF, SI0F07 


UNIT STATUS 


001609 


36 










DC 


X«36« 


NO OF CHAR IN MSG (54) 


00154A 


OA 


DD 










SI0F06 


SVC 


X'DD* 


CONVERT CSW TO EBCDIC 


00160A 


F184 










DC 


AL2 ( SI 0MS2-BASEGREG) 


MESSAGE ADDRESS 


00154C 


0008 












DC 


AL2( 8) 


NO. OF CSW BYTES 


00160C 


D2 06 


F 


1BA 


F 769 


SI0I06 


MVC 


SI0MS2£54(7) ,SI0CN2611 SET UP OUTPUT MESSAGE 


00154E 


013C 












DC 


AL2(SIQVR8-SECST) 


SENSE CSW ADDRESS 


001612 


OA DD 










SVC 


X^D 1 


CONVERT SENSE BYTE TO EBCDIC 


001550 


01E7 












DC 


AL2( SI0MS3&38-SECST) 


EBCDIC ADDR IN OUTPUT MESSAGE 


001614 


0001 










DC 


AL2(1) 


NO. OF SENSE BYTES 


001552 


OA 


DO 












SVC 


X«DO» 


GOT CCO FOR SENSE I/O BUT GOT 


001616 


01F7 










DC 


AL2 ( SENSE- SEC ST) 


SENSE DATA ADDR 
















* 






UNEXPECTED STATUS 


nn i /Li o 


0 1 BF 




• 






DC 


AL2( SI0M52&59— SECST) 


EBCDIC ADDR IN OUTPUT MESSAGE 


001554 


40 














DC 


X«40« 


PRINT PROG NO. PRIOR TO MESSAGE 


00161 A 


91 40 


F 


1F7 






TM 


SENSE, X^O* 


BR IF GOT INTERV REQ 
















* 






TREAT AS ERROR 


00161 E 


47 10 


F 


62C 






BC 


ALL0N,SI0I07 


t » 
















* 






DO NOT CHAIN 


001622 


OA DO 










SVC 


X'DO* 


ERROR WITH UC £ NO INTERV REQ 






















DO NOT RESTORE 


001624 


40 










DC 


X'40* 


PRINT PROG NO PRIOR TO MESSAGE 
















• 






PRINT ON NORMAL OUTPUT DEVICE 












• 






TREAT AS ERROR 


001555 


36 














DC 


X»36« 


NO. OF BYTES IN OUTPUT MESSAGE (54) 












* . 






DO NOT CHAIN 


001556 


F1C1 












DC 


AL2(SI0MS3-BASE£REG) 


MESSAGE ADDRESS 












* 






DO NOT RESTORE 


001558 


47 


FO 


F 


564 








BC 


ALWAYS, SIQF08 


GO TRY SENSE I/O AGAIN 












* 






PRINT ON NORMAL OUTPUT DEVICE 


00155C 


D2 


03 


F 


048 


F 


128 


SI0F07 


MVC 


CAW(4),SI0VR2 


RESTORE ORIGINAL CAW 


00 1625 


3D 










DC 


X 1 3D • 


NO. OF CHAR IN MSG (61) 


001562 


07 


F3 












BCR 


ALWAYS, GR3 


RETURN 


001626 


Fl 84 










DC 


AL2(SI0MS2-BASE£REG) 


MESSAGE ADDRESS 


001564 


9D 


00 


C 


000 






SI0F08 


TIO 


O(GRC) 


TEST I/O 


001628 


47 FO 


F 


30C 






BC 


ALWAYS, SIOAOO 


GO TRY SIO AGAIN 


001568 


47 


70 


F 


564 








BC ' 


NZER0,SI0F08 


REPEAT TIO IF NOT CC 0 


00162C 


OA DO 








SIO I 07 


SVC 


X'D0» 


GOT CCO ON SIO - UC & INTERV REQ 


00156C 


47 


FO 


F 


4B0 








BC 


ALWAYS, SI0F01 


REPEAT SENSE I/O 


00162E 


60 










DC 


X«60« 


PRINT PROG NO PRIOR TO MESSAGE 
















«*»***»*•*«******»***•«****#****•*•«*»****«•******«•»*****»*«««** 


















TREAT AS ERROR 
















* 


START 


I/O INTERRUPT ROUTINE 


* 












* 






CHAIN 


















»*»**»«*******»********•**••*********»*•*******•*«»»«*****«*«***» 












• 






DO NOT RESTORE 


001570 


91 


80 


F 


004 






SIOINT 


TM 


SNSWff X'80* 


BR IF SS 00 IS 1 - LOOP SIO 












• 






PRINT ON NORMAL OUTPUT DEVICE 


001574 


47 


10 


F 


3BE 








BC 


ALLON,SIOCOA 


» » 


00162F 


3D 










DC 


X»3D» 


NO. OF CHAR IN MSG (61) 


001578 


D2 


07 


F 


12C 


D 


040 




MVC 


SI0VR3(8) ,HCSW(GRD) 


SAVE CSW 


001630 


F184 










DC 


AL2 ( SI 0MS2-BASEGREG) 


MESSAGE ADDRESS 


00157E 


91 


20 


F 


14D 








TM 


SI0SWS,X»20« 


BR IF RET TO PROG SW3 ON 


001632 


OA DO 










SVC 


X«DO« 


MAKE THIS UNIT RDY WITH BLANK CARDS 


001582 


47 


10 


F 


5DE 








BC 


ALL0N,SI0I04 


» t 












• 






I/O ADDR IN GR 12 


001586 


D7 


01 


F 


1F8 


F 


1F8 




XC 


STATSV(2) ,STATSV 


CLEAR 2ND STATUS SAVE AREA 


001634 


80 










DC 


X B 80' 


PRINT MESSAGE ONLY 


00158C 


9D 


00 


C 


000 






SIOIOO 


TIO 


O(GRC) 


TEST I/O 












* 






DO NOT TREAT AS ERROR 


001590 


47 


40 


F 


59C 








BC 


CSWST,SIOI01 


BR IF CC1 












• 






DO NOT CHAIN 


001594 


47 


70 


F 


58C 








BC 


NZERO, SIOIOO 


REPEAT TIO IF NOT CCO 












* 






DO NOT RESTORE 


001598 


47 


FO 


F 


5A6 








BC 


ALWAYS, SI0I02 


CONTINUE 












* 






PRINT ON NORMAL OUTPUT DEVICE 


00159C 


D6 


01 


F 


1F8 


D 


044 


SI0I01 


OC 


STATSV(2) ,HCSW£4(GRD) 


SAVE 2ND STATUS 


001635 


23 










DC 


X«23« 


NO. OF CHAR IN MSG (35) 


0015A2 


47 


FO 


F 


58C 








BC 


ALWAYS, SIOIOO 


REPEAT TIO 


001636 


F73B 










DC 


AL2(SI0MS4-BASE£REG) 


MESSAGE ADDRESS 


0015A6 


D2 


07 


F 


1FA 


F 


12C 


SI0I02 


MVC 


CSWAG(8) ,CSWSAV 


SET UP AGGRAVATE CSW 


001638 


47 FO 


F 


482 






BC 


ALWAYS, SIOE02 


GO TIME OUT £ TRY SIO AGAIN 


0015AC 


D6 


01 


F 


1FE 


F 


1F8 




OC 


CSWAG&4(2),STATSV 


t » 












************ 


»«***«*«**«**«•*«*•*•••••********«***•«**•*«•»««««*«*«*««.«# 


0015B2 


91 


02 


F 


1FE 








TM 


CSWAG£4,X»02» 


BR IF DID NOT GET UC 












* 


UTILITY ROUTINE 




0015B6 


47 


80 


F 


5C6 








BC 


ALLOFF, SI0I03 






















0015BA 


45 


30 


F 


494 








BAL 


GR3,SI0F00 


GO PERFORM SENSE I/O 










00163E 




ORG 


*£2 




0015BE 


91 


E5 


F 


1F7 








TM 


SENSE, X«E5« 


BR IF GOT COM RE J, BO PAR, OR IN REQ 


00163E 


90 9C 


F 


OFO 




SCPROO 


STM 


GR9,GRC,SCPRK1 


SAVE GR9 THRU GR12 


0015C2 


47 


50 


F 


5E4 








BC 


ANY0N,SI0I05 


f 9 


001642 


OA DO 








SCPR10 


SVC 


X»DO« 


PRESS CONSOLE STOP, ENTER SCOPE LOOP 


0015C6 


91 


FF 


F 


IFF 






SIOI03 


TM 


CSWAG&5,X*FF* 


BR IF GOT ANY CHAN STATUS 












• * 






1. ENTER OP IN GR 10 - BYTE 2 


0015CA 


47 


50 


F 


5E4 








BC 


ANY0N,SI0I05 














» 






2. ENTER CCW FLAGS IN GR 10 - 


0015CE 


91 


EO 


F 


1FE 








TM 


CSWAG£4,X»E0» 


BR IF GOT ATT, SM, OR CUE 












* 






BYTE 3- 


0015D2 


47 


50 


F 


5E4 








BC 


ANY0N,SI0I05 














» 






BIT 0 - NOT USED 


0015D6 


91 


OC 


F 


1FE 








TM 


CSWAG£4,X»0C» 


BR IF DID NOT GET CE & DE 












» 






BIT 1 - NOT USED 


0015DA 


47 


CO 


F 


5E4 








BC 


MIXN0N,SI0I05 














» 






BIT 2 - SILI 


0015DE 


98 


19 


F 


104 






SI0I04 


LM 


GR1,GR9, SI0VR1 


RESTORE GR1 THRU GR9 












♦ • 






BIT 3 - SKIP 


0015E2 


07 


FB 












BCR 


ALWAYS, GRB 


RETURN TO PROG 












« 






BIT 5 - NOT USED 


0015E4 


D2 


02 


F 


18D 


F 


180 


SI0I05 


MVC 


SIOMS2£9{33 ,SI0VR5 


SET UP OUTPUT MESSAGE 












* 






3. ENTER DATA FIELD CONTENTS IN 


0015EA 


OA 


DD 












SVC 


X«DD« 


CONVERT CAW TO EBCDIC 












* 






GR 11 - BYTES 0 THRU 3 


0015EC 


0004 












DC 


AL2(4) 


NO OF HEX BYTES IN CAW 












■» ■ 






4. ENTER CCW COUNT IN GR 12 - 


0015EE 


0048 












DC 


AL2 (CAW-SECST) 


HEX DATA ADDR 












* 






BYTES 0 AND 1 


0015F0 


0195 












DC 


AL2(SI0MS2£17-SECST) 


EBCDIC ADDR IN OUTPUT MESSAGE 












♦ 






5. ENTER U/0 ADDR IN GR 12 - 


0015F2 


OA 


DD 












SVC 


X«DD» 


CONVERT AGGREGATE CSW TO EBCDIC 


















BYTE 2, BITS 5-6-7, AND BYTE 3 


0015F4 


0008 












DC 


AL2(8) 


NO OF HEX BYTES IN CAW 












# 






6. SET SEC SS 00 TO 1 TO LOOP 


0015F6 


01FA 












DC 


AL2 ( C SWAG- SEC ST) 


HEX DATA ADDR 












* 






OR SET TO ZERO FOR 1 PASS 


0015F8 


01AA 












DC 


AL2CSI0MS2&38-SECST) 


EBCDIC ADDR IN OUTPUT MESSAGE 


















7. PRESS CONSOLE START 


0015FA 


92 


FO 


F 


1A4 








MVI 


SI0MS2£32,X«F0 I 


SET CCO IN OUTPUT MESSAGE 












* 






8. TO EXIT THIS RTN PRESS CONSOLE 


0015FE 


91 


02 


F 


1FE 








TM 


CSWAG£4,X»02» 


BR IF GOT UNIT CHECK 












* 






STOP,G SET SEC SS 00 & XX TO 0 


001602 


47 


10 


F 


60C 








BC 


ALL0N,SI0I06 




001644 


80 










DC 


X«80» 


DO NOT TREAT AS ERROR 


001606 


OA 


00 












SVC 


X»DO« 


ERROR W/0 UC 












■ # 






DO NOT RESTORE 


001608 


40 














DC 


X«40« 


PRINT PROG NO. PRIOR TO MESSAGE 












* 






PRINT ON NORMAL OUTPUT DEVICE 
















* 






TREAT AS ERROR 


001645 


2A 










DC 


X»2A» 


NO. OF CHAR IN MSG (42) 
















♦ 






DO NOT CHAIN 


001646 


F770 










DC 


AL2 ( SCPRK2-BASECREG) 


MESSAGE ADDRESS 


DATE 


15JUL65 




17MAR66 








ID F804-1 


DATE 


15JUL65 




17MAR66 








ID F804-1 


EC 


124265 




125643 
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00 1 648 


DO 


r n 

LU 


c 
r 


1 o\> 








L 




OC 1 \Jt\ Lc. 1 U ALL UWCO 
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p 
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p 
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00 


p 
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B0 
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LA 
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9 f 
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50 


90 
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r 
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ST 


GR9,CAW 
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DO NOT CHAIN 
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D2 
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F 
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F 


14C 




MVC 


CAW(1),CAWKEY 


» f 


0016C0 


D2 


03 


0 


048 


F 
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SCPR80 


MVC 


HCAW(4,GRD) ,CAW 


LOAD CAW 
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9C 


00 


C 
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O(GRC) 


START I/O 


0016C A 


9D 


00 


C 
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SCPR90 


TI0 


O(GRC) 


TEST I/O 


0016CE 


47 


70 


F 


6CA 








BC 


NZER0,SCPR90 


REPEAT TIO IF NOT CCO 


0016D2 


91 


80 


F 


004 








TM 


SNSW,X«80« 


LOOP IF SEC SS 00 IS 1 - SIO LOOP 


001606 


47 


10 


F 


6C0 








BC 


ALL0N,SCPR80 


9 » 


00160A 


91 


40 


F 


004 








TM 


SNSW,X»40« 


BR IF SEC SS 01 IS 1 - USE SCOPE RTN 


0016DE 


47 


10 


F 
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BC 


ALLON, SCPR10 




0016E2 


47 


F0 


F 


65C 








BC 


ALWAYS, SCPR30 


RETURN TO PROGRAM 
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SVC 


X»D0» 


PRINT THAT THIS ROUTINE WAS BYPASSED 
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DC 
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DC 
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DC 
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91 


40 


F 
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EXIT 


TM 
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SEE IF SEC SS 01 IS 1— USE SCOPE RTN 
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47 


80 


F 


6F8 








BC 
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BR IF NO 
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45 


80 


F 
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BAL 
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0016F8 


91 


20 


E 
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TM 
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SEE IF DM SS 26 IS 1 - CYCLE SECTION 
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47 
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F 
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LOAD ADDR OF D I AG CK RD CCW IN CAW 
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48 


CO 


F 
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LH 
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92 


02 


F 


14D 
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SI0SWS,X'02« 


RESET SIO SWS -USE READER- 


001710 


45 


B0 


F 


2E8 








BAL 


GRB,SI0 


GO READ 


001714 


OA 


0B 










EXIT1 


SVC 


X»DB« 


BYPASS DATA CARDS 


001716 


0234 












DC 


AL2(SCPDAT-SECST) 


LOAD ADDRESS FOR DATA RECORDS 


001718 


47 


F0 


F 


714 








BC 


ALWAYS, EXIT1 


CONTINUE READING DATA CARDS 


00171C 


OA 


D6 










EXIT2 
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X'D6« 


ROUTINE EXIT - READ IN NEXT RECORD 
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C'OP £ ENTER SCOPE" 
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*»**•»*«*«»*•***»»**»*»»*••***»»**«»••*«•**»«*»«•••«•«•••*•**•••**••*»• 

* CONSTANTS FOR EXIT ROUTINE - WORD BOUNDARY • 
*•**•»«*«*»*«***»•*****•••****•*•»*»•••**•**•**•«*•***«***•••••*»•*•*•• 

CNOP 0,4 ALIGN ON WORD BOUNDARY 

BCR 0,0 
CLRC DC X«000007FF« 

•***»•***#******«■*******»******•**•**»**•**»•»*****••*****••*•«»»**•*•* 

» EQUATES * 

*««#**«**«»********»*««#*»«**«*•«••***•***•**«**•**»*«»*******«*«••••** 

* GENERAL REGISTER EQUATES * 
♦*»♦**«#»#♦»*##»»*»»»»♦»*****»*•**•**»*»*»*#*»*##♦»«»#* 
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»**»****•*****«******•*»*«•****«**«**«•**««**»**«««**«***«*«* ***•«*•««* 

• VARIABLE FIELDS FOR CHANNEL REGISTER TEST * 
»*****•*»•«»*»*»««*«»«***»***«*«»«««*«•**«*»«*««««*****«*•«*••**«*•*•»* 

* VARIABLES - NO BOUNDARY ♦ 
***»*#««*•*•***«****«**«**«****•*•«**«««***«**««*«*«*********•*•**«**** 
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000000000000000000 


DATAX 


DC 
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DATA 


REG 
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AREA FOR WORKING ON DATA 
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WRITE 


DC 
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WRITE AREA 
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00 




STAT 1A 


DC 
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1ST STATUS AREA A 
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STAT1B 


DC 


X*00* 
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DC 


X'OO' 


1ST SENSE AREA 
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CKRD1 


DC 


X'OO* 
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READ 


DC 
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READ AREA 
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STAT2 
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00184E 00 

00184F 000000000000000000 

001858 000000000000000000 

001861 000000000000000000 

00186A 0000 



HCK DC 
LGAREA DC 



X'OO' 
XL29'00* 



BIT 7 -ON- BIT ALWAYS ON 



LOG OUT DATA TABLE AREA 











* 
* 
* 




ROUTINE PREFIX 


- - -. ' - ~ . - - _ 










* 




ROUTINE 01 




00186C 










CNOP 


0,4 


FULL WORD ALIGNMENT 


00186C 


01 






RTN01 


DC 


XLl'Ol" 


ROUTINE NUMBER 


00186D 


00 








DC 


XL1 *0* 


FLAGS 


00186E 


FFFE 








DC 


X'FFFE * 


ADDRESS OF NEXT ROUTINE 


001870 


IB DD 






IN I TOO 


SR 


GRDtGRD 


CLEAR REGISTER 13 


001872 


91 40 


E 


196 




TM 


406 ( 14) »X*40* 


LOAD REG 13 WITH THE CONTENTS 


001876 


47 80 


F 


87C 




BC 


ALLOFF, »£6 


t, OF REG 15 IF RUNNING 


00187A 


18 DF 








LR 


GRDtGRF 


IN PROBLEM STATE 


00187C 


91 02 


F 


004 




TM 


SNSW,X'02* 


IS TITLE PRINTOUT DESIRED 


001880 


47 80 


F 


88A * 




BC 


ALLOFF, INITIO 


BRANCH TO SKIP TITLE PRINT 


001884 


OA DO 








SVC 


X*DO* 


PRINT TITLE 


001886 


80 








DC 


X*80* 


, , NORMAL OUTPUT 


001887 


IF 








DC 


X*1F» 


,,31 CHARACTERS 


001888 


FD1C 








DC 


AL2 (TITLE1-BASE&REG) 


ADDRESS OF TITLE 


00188A 


IB 00 






* 

INITIO 


SR 


GRO, GRO 


CLEAR REGISTER 0 


00188C 


91 10 


E 


180 




TM 


384( 14) ,X*10» 


IS STORAGE PROTECT ON SYSTEM 


001890 


47 80 


F 


89A 




BC 


ALLOFF , INIT20 


BRANCH IF NOT 


001894 


09 OF 








ISK 


GRO,GRF 


PUT STOR KEY IN REG 0 


001896 


42 00 


F 


14C 




STC 


GRO»CAWKEY 


SAVE STOR KEY FOR PROGRAM USE 


00189A 


OA DD 






INIT20 


SVC 


X'DD* 


CONVERT READER ADDRESS TO PRINT CHAR 


00189C 


0002 








DC 


AL2(2) 


? BYTES 


00189E 


00E2 








DC 


AL? ( UNI ADR— SEC ST) 


« . AnDRF^ flF RFAnFR AnnoF^^ 


0018A0 


022C 








DC 


AL2 I UARD-1-SECST1 


• • ADDRFS^ flF PIAfFMFNT 


0018A2 


OA DD 








SVC 


X'DD* 


CONVERT PUNCH ADDRESS TO PRINT CHARS 


0018A4 


0002 








DC 


AL2(2) 


,, 2 BYTES 


0018A6 


00E6 








DC 


AI ?(UN?AnR— SFfST) 


AnnRF^^ riF punch AnnoF^ 


0018A8 


0230 






* 


DC 


AL2(UAPU-1-SECST) 


-ADDRESS OF PLACEMENT 


0018AA 


92 00 


F 


79C 


* 


MVI 


SCHNUM.X'OO* 


SET UP SEARCH NUMBER TO ZEROS 


0018AE 


91 40 


F 


004 




TM 


SNSW, X'40' 


SEE IF SEC SS 01 IS 1 — USE SCP RTN 


0018B2 


47 80 


F 


8BA 




BC 


ALLOFF, DATAOO 


BR IF NO 


0018B6 


45 80 


F 


63E 




BAL 


GR8,SCPR00 


BR TO UTILITY ROUTINE 


0018BA 


IB CC 






DATAOO 


SR 


GRC, GRC 


CLEAR REGISTER 12 


0018BC 


48 CO 


F 


0E6 




LH 


GRC , UN2ADR 


LOAD PUNCH ADDR IN REG 12 


0018C0 


41 00 


F 


D10 


DATA05 


LA 


GRO,ADRCCW 


LOAD ADDR OF ADDRESS CHECK CCW 


0018C4 


50 00 


F 


048 




ST 


GRO, CAW 


STORE ADDR CK CCW ADDR IN CAW 


0018C8 


92 00 


F 


140 




MVI 


SIOSWS,X'00» 


RESET SIO SWITCHES - SIO PUNCH 


0018CC 


45 BO 


F 


2E8 


* 


BAL 


GRB,SIO 


GO TO START I/O ROUTINE 


0018D0 


95 14 


F 


133 




CLI 


CSWSAVS7, X* 14* 


IS CSW COUNT OK 


0018D4 


47 60 


F 


C92 




BC 


NEQUAL, ADRCHK 


BRCH FOR ADDR CK IF CSW COUNT BAD 


0018D8 


41 00 


F 


D10 


» 

DATA08 


LA 


GRO,ADRCCW 


LOAD ADDR OF ADDR CHECK CCW 


0018DC 


50 00 


F 


048 




ST 


GRO, CAW 


STORE ADDR CK CCW ADDR IN CAW 


0018E0 


48 CO 


F 


0E2 




LH 


GRC , UN1ADR 


LOAD READER ADDRESS IN REG 12 


0018E4 


92 02 


F 


14D 




MVI 


SI0SWS,X*02* 


RESET SIO SWITCHES - SIO READER 


0018E8 


45 BO 


F 


2E8 




BAL 


GRB,SIO 


GO TO START I/O ROUTINE 


0018EC 


95 14 


F 


133 




CLI 


CSWSAV£7,X*14« 


IS CSW COUNT OK 


0018F0 


47 60 


F 


C92 




BC 


NEQUAL, ADRCHK 


BRANCH FOR ADDR CK IF CSW COUNT BAD 


0018F4 


48 CO 


F 


0E6 




LH 


GRC, UN2ADR 


LOAD PUNCH ADDR IN REG 12 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



ID F804-1 
RAGE 6 A 



O O ) oooooooooooooo 



% o © o o o © o o o o o o c o o o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840259 

PAGE 7 

* F8041 2821 SCAN/2540 READER/PUNCH 



F8041 


CHANNEL 


REG FLT 


-ROUTINE OVERLAY 


01- 






0018F8 


41 


90 


F 


7E0 






LA 


GR9 f DATAO 


LOAD 1ST DATA GROUP ADDR IN REG 9 


0018FC 


D2 


09 


F 


844 


9 


« 

000 DATA10 


MVC 


WRITE ( 10) ,0(9) 


SET A DATA GROUP IN WORK AREA 


001902 


41 


00 


F 


CF8 






LA 


GROt PWRCCW 


LOAD ADDRESS OF PUNCH WRITE CCW 


001906 


D7 


08 


F 


845 


F 


845 


XC 


STAT1AC9) t STAT1A 


CLEAR WORK AREA EXCEPT WRITE DATA 


00190C 


02 


00 


F 


845 


F 


844 


MVC 


WRITE&K 1 ) , WRITE 


GENERATE 2 BYTES OF WRITE DATA 


001912 


50 


00 


F 


048 






ST 


GRO, CAW 


STORE PUNCH CCW ADDR IN CAW 


001916 


92 


00 


F 


140 






MVI 


SlOSWSf X»00 t 


RESET SIO SWITCHES -SIO PUNCH 


00191A 


45 


BO 


F 


2E8 






BAL 


GRB f SIO 


GO TO START I/O ROUTINE 


0019 IE 


91 


01 


F 


140 






TM 


SI0SWS,X'01* 


IS INTERVENTION REQ SWITCH SET 


001922 


47 


10 


F 


870 






BC 


ALLON,INITOO 


RESTART PROGRAM IF ON 


001926 


D2 


00 


F 


845 


F 


130 


MVC 


STAT 1 A ( 1 ) t CSWSAV&4 


SAVE 1ST STATUS AT CHAN-END 


00192C 


D2 


00 


F 


846 


F 


1F8 


MVC 


STAT1B ( 1 ) » STATSV 


SAVE 1ST STATUS AT DEVICE-END 


001932 


02 


00 


F 


847 


F 


1F7 0ATA20 


MVC 


SENSE1 ( 1) y SENSE 


SAVE SENSE DATA AFTER PUNCH — WRITE 


001938 


45 


AO 


F 


988 






BAL 


GRA, DGCKRD 


GO DO DIAG CK READ TO PUNCH 


00193C 


D2 


00 


F 


848 


F 


7 DO 


MVC 


CKRD1 { 1 ) f CKRDAR 


SAVE CK RD DATA FROM PUNCH WRITE 


001942 


41 


00 


F 


DOO 




■ ♦ 
0ATA30 


LA 


GRO, RDCCW 


LOAD ADDRESS OF PUNCH READ CCW 


001946 


50 


00 


F 


048 






ST 


GROtCAW 


SET CCW ADDRESS IN CAW 


00194A 


92 


00 


F 


14D 






MVI 


SIOSWS,X«00» 


RESET SIO SWITCHES -USE PUNCH- 


00194E 


45 


BO 


F 


2E8 






BAL 


GRB t SIO 


GO TO START I/O ROUTINE 


001952 


91 


01 


F 


14D 






TM 


SI0SWS,X*01 • 


IS INTERVENTION REQ SWITCH ON 


001956 


47 


10 


F 


870 






BC 


ALLON, INITOO 


RESTART PROGRAM IF ON 


00195A 


D2 


00 


F 


84A 


F 


130 


MVC 


STAT2( 1) ,CSWSAV£4 


SAVE STATUS FROM PUNCH BUFFER READ 


001960 


D2 


00 


F 


84B 


F 


1F7 


MVC 


SENSE2 I 1 ) , SENSE 


SAVE SENSE DATA AFTER PUNCH READ 


001966 


45 


AO 


F 


988 






BAL 


GRAt DGCKRD 


GO DO DIAG CK READ TO PUNCH 


00196A 


D2 


00 


F 


84C 


F 


700 


MVC 


CKRD2C 1) , CKRDAR 


SAVE CK RD DATA AFTER PUNCH-READ 


001970 


D2 


09 


9 


000 


F 


* 

844 DATA40 


MVC 


0(10,9) , WRITE 


MOVE DATA FROM WORK AREA TO GROUP 


001976 


41 


99 


0 


OOA 






LA 


GR9,10(9,0) 


UPDATE REG 9 BY 10 


00197A 


41 


00 


F 


844 






LA 


GR0,DATAX£10 


SET REG 0 TO MAX COUNT 


00197E 


15 


90 










CLR 


GR9 f GRO 


ALL DATA ACCUMULATED 


001980 


47 


60 


F 


8FC 






BC 


NEQUAL»DATA10 


GO GET NEXT DATA GROUP 


001984 


47 


FO 


F 


9EA 






BC 


ALWAYS, CRCKOO 


GO ANALIZE DATA FOR CHANNEL CHECK 














« 
* 




ROUTINE TO DO DIAG CK 


READ 


001988 


41 


00 


F 


D08 




* 

DGCKRD 


LA 


GRO,CRDCCW 


LOAD ADDR OF DIAG CK RD CCW 


00198C 


50 


00 


F 


048 






ST 


GRO, CAW 


STORE ADDR OF CCW IN CAW 


001990 


91 


02 


F 


140 






TM 


SIQSWS,X»02* 


IS READER CK RD WANTED 


001994 


48 


CO 


F 


0E6 






LH 


GRC , UN2ADR 


SET UP ADDRESS OF PUNCH 


001998 


47 


80 


F 


9A0 






BC 


ALLOFF , *£8 


BRANCH IF NOT READER 


00199C 


48 


CO 


F 


0E2 






LH 


GRC , UN 1 ADR 


SET UP ADDRESS OF READER 


0019AO 


02 


02 


F 


7D0 


F 


D54 


MVC 


CKRDAR { 3) , CLEAR 


RESET DI AG CHECK READ AREA 


0019A6 


94 


FD 


F 


14D 






NI 


SIOSWS,X*FD* 


RESET SIO SWITCHES EXCEPT READ-PUNCr 


0019AA 


45 


BO 


F 


2E8 






BAL 


GRB, SIO 


GO TO START I/O ROUTINE 


0019AE 


91 


01 


F 


14D 




* 


TM 


SlOSWStX'Ol' 


IS INTERVENTION REQ SW ON 


0019B2 


47 


10 


F 


870 






BC 


ALLON, INI TOO 


RESTART PROG IF ON 


0019B6 


91 


FF 


F 


7D2 






TM 


CKRDAR£2,X»FF« 


WAS DATA TRANSFERRED 


0019BA 


47 


10 


F 


9C2 






BC 


ALLON, DGCK10 


BRANCH IF NOT OK 


0019BE 


47 


FO 


F 


9E8 






BC 


ALWAYS, RETNCR 


BRANCH IF OK 


0019C2 


91 


FF 


F 


7D1 




DGCK10 


TM 


CKRDAR&l , X 1 FF • 


WAS DATA TRANSFERRED 


0019C6 


47 


10 


F 


9E8 






BC 


ALLON, RETNCR 


BRANCH IF OK 


0019CA 


02 


02 


F 


212 


F 


231 


MVC 


MESS1£16(3) ,UAPU 


SET PUNCH ADDRESS IN MESSAGE 


0019D0 


91 


02 


F 


14D 






TM 


SI0SWS,X«02« 


IS READER BEING USED 


0019D4 


47 


80 


F 


9DE 






BC 


ALLOFF »*£1Q 


BRANCH IF NOT READER 


0019D8 


D2 


02 


F 


212 


F 


22D 


MVC 


MESSU16C3) , UARD 


SET READER ADDRESS IN MESSAGE 


0019DE 


OA 


DO 










SVC 


X»DO« 


PRINT DIAG CR RD MESSAGE 


0019E0 


44 












DC 


X * 44 • 


ERROR MESSAGE 


0019E1 


2B 












DC 


X«2B» 


,, 43 CHARACTERS 


0019E2 


F202 










DC 


AL2(MESS1-BASE£R£G) 


,, ADDRESS OF MESSAGE 


0019E4 


47 


FO 


F 


8FC 






BC 


ALWAYS, DATA10 


GO RESTART DATA GROUP 


0019E8 


07 


FA 








RETNCR 


BCR 


ALWAYS, GRA 


RETURN TO OTHER ROUTINE 



* 

* ROUTINE TO ANALYZE CHANNEL REGISTER 



DATE 15JUL65 17MAR66 ID F804-1 

EC 124265 125643 PAGE 7 



cccccccc 



! 



j IBM MAINTENANCE DIAGNOSTIC PROGRAM 



* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



ftftl OCA 

OOlV fcA 


41 


VU 


c 
r 


l tu 


uu 


L A 


GR9 .DATAO 


0019EE 


92 


00 


F 


7DF 




MVI 


TRBLE , X 1 00 • 


0019F2 


41 


00 


F 


839 




LA 


GR0,DATA7C19 


0019F6 


41 


1U 


c 
r 


"7 PQ 




LA 


GR1 . DATA0S9 


f\f\ 1 OCA 

uu l *7 r a 


QO 

7t 


uu 


i 
i 


000 




MVI 


0 ( GR1 ) , X • 00 1 


0019FE 


41 


l i 


U 


UU A 




LA 


GR1 .1 0(GR1 .0) 


UU1.AU*: 


15 


10 








CLR 


vl\l , w r\ \J 


UU 1 AU*f 


/. -7 


ou 


c 
r 


OCA 




BC 


ISIFOUAI .CRCK05 


Aft 1 tftO 

UU 1 AUo 


Q 0 
Vt 


uu 


c 
r 






MVI 


HCK.X'OO* 


UUl AUU 


Uc. 


no 
u V 


c 

r 






MVC 


WRITE ( 10) ,0(9) 


00 1 A12 


Zl*7 
*f 1 


en 
r U 


c 

r 


A"^ A 




BC 


ALWAYS. CRCK35 


001 Al 6 




Me. 


c 
r 


OAO 

oto 




TM 


CKRD1 * X • 02 • 


r\A 1 A 1 A 

00 1 A 1 A 


47 


10 


F 


A C C 
Att 




BC 


At 1 nN-TRCKftO 


00 1 Al E 


91 


02 


c 
r 






TM 


\# IN ix \J C* f /\ SJ C 


UU 1 fKCc. 


f 1 


1U 


tz 
r 


ACC 




BC 


ALLON, CRCK80 


001 A26 


Uc. 


UU 


c 
r 


7DE F 844 


for K^o 


MVC 


EXP EC T ( 1 ) .WRITE 

t.^\rww • \ X. / ^nr\ji i i* 


00 1 A2C 


nil. 


uu 


C 


7DE F 849 




NC 


EXPECT ( 1 ) ,READ 


00 1 A32 




ou 


C 

r 


ADO 




BC 


ZER0,CRCK50 


001 A36 


47 


rU 


c 
r 


on C 
DU c 




BC 


At WAYS.CRCK90 


001 A3 A 


9 1 


FF 


F 


DAC 




TM 


n v*i\ , a rr 


001 A3E 


47 


10 


F 


A16 




BC 


Al 1 nN.rRf*Kl 1 


001 A42 


92 


FF 


F 


84E 




MVI 


nuiv , a rr 


001 A46 


41 


80 


0 


001 




LA 


GRR . 1 f 0. 0 ) 


001A4A 


41 


70 


0 


080 




1 A 
LA 


UK 1 , x C.O \ U , U J 


r\r\ t a a r~ 

001 A4E 


41 


10 


F 


826 




1 A 
LA 


r p t . DATA7 
UK 1 , U A 1 A 1 


001A52 


41 


20 


F 


826 


roru 'xo. 

JO 


1 A 
LA 


uKl , U A 1 A I 


001 A56 


96 


01 


1 


009 




n T 


Of rni \ . y mi • 


001 A5A 


44 


80 


F 


A9E 




EX 




001A5E 


47 


80 


F 


A72 




BC 




001A62 


44 


80 


F 


AAA 




EX 


GR8,CRCK43 


001 A66 


47 


80 


F 


A72 




or 
Dt 


ALLUrr , UKl»ftj7 H 


001A6A 


44 


80 


F 


AAE 




EX 


GR8,CRCK44 


001A6E 


47 


10 


F 


A88 






ALLUIM , UKUI\*t-U 


001 A72 


94 


FE 


1 


009 




hi T 


Q { CQ 1 \ .¥ ICCI 
7\«M i ,A Pt 


001 A76 


15 


87 






CO "XQ 


ULK 


UK O , UK / 


001 A78 


47 


80 


F 


A16 




or 
DU 


CwUAL , UKUIVX X 


001 A7C 


41 


88 


8 


000 




LA 




001 A80 


5B 


10 


F 


D18 




c 
o 


r p 1 TP W 
U K 1 , 1 C IN 


001A84 


47 


FO 


F 


A52 




BC 


ALWAYS, CRCK38 


00 1 Aoo 


41 


70 


F 


7 EO 


V*i\v»N*tU 


LA 




1 001A8C 


15 


72 








CLR 


GR7, GR2 


OUiAoh 


41 


70 


0 


080 




LA 




1 001A9*: 


47 


80 


F 


AA2 




BC 


FQIJA1 .fRCK42 


r 001A96 


5B 


20 


F 


D18 




S 


GR2 , TEN 


\ nm aq a 

j UU 1A7A 


47 


FO 


p 


A56 




BC 


ALWAYS,CRCK38£4 


! 001A9E 


91 


00 


2 


005 


CRCK41 


TM 


5(GR2),X»00« 


1 nm aa? 


96 


01 


p 


7DF 


CRCK42 


01 


TRBLE , X 1 01 • 


' 001AA6 


47 


FO 


F 


A76 




BC 


ALWAYS,CRCK39 


; 001AAA 


91 


00 


2 


004 


CRCK43 


TM 


4(GR2),X«00« 


001AAE 

; 


91 


00 


2 


008 


CRCK44 
* 


TM 


8(GR2),X•00• 


001AB2 


41 


70 


0 


008 


* 

CRCK50 


LA 


GR7, 8(0,0) 


001AB6 


41 


80 


F 


7E5 




LA 


GR8,DATA0&5 


i 001ABA 


95 


00 


8 


000 


CRCK51 


CLI 


0(8) ,X«00« 


001ABE 


47 


60 


F 


ACE 




BC 


NEQUAL,CRCK55 


! 001 AC2 


41 


88 


0 


OOA 




LA 


GR8, 10(8,0) 


001AC6 


46 


70 


F 


ABA 




BCT 


GR7,CRCK51 


1 001ACA 


47 


FO 


F 


B50 


# 


BC 


ALWAYS, ALZ015 


001ACE 


91 


04 


F 


848 


* 

CRCK55 


TM 


CKRD1,X«04< 


001AD2 


47 


10 


F 


BOE 




BC 


ALLON, CRCK90 


001AD6 


91 


04 


F 


817 




TM 


DATA5t»5,X , 04« 


DATE 


15JUL65 




17MAR66 









EC 124265 125643 



c c c o c c c c 



P/N 840258 ! 
PAGE 7A ! 



| 

LOAD 1ST DATA GROUP ADDR IN REG 9 [ 

RESET TROUBLE SWITCH | 
SET UP MAXIMUM COUNT 

INITIALIZE INDEX 1 TO START OF GROUP [ 

RESET DATA GROUP ERROR SWITCHES f 
UPDATE INDEX BY 10 

CHECK IF ALL GROUPS RESET j 

GO RESET NEXT GROUPS SWITCHES ! 

TURN OFF HOT CHECK SWITCH j 

GET A DATA GROUP FOR ANALYSIS 

GO SEE IF CHECKED FOR HOT BITS 

WAS XLATE CHECK ON WITH PCH WRITE \ 

BRANCH IF ON 

WAS XLATE CK ON WITH PUNCH READ 
BRANCH IF ON 

SET EXPECTED BIT IN TEST AREA 
TEST IF BIT READ AS EXPECTED 
BRANCH IF NOT OK 
CONTINUE 

SEE IF CHECKED FOR HOT BITS YET j 

BRCH IF YES 
TURN ON HOT CHECK SWITCH : 
INITIALIZE HOT BIT CHECK ROUTINE 

! 

t » 
9 f 
t » 

TURN ON HOT BIT SWITCH 
SEE IF HOT BIT 

BRCH IF NO 
SEE IF HOT BIT 

BRCH IF NO 

SEE IF HOT BIT i 
BRCH IF YES I 
TURN OFF HOT BIT SWITCH j 
SEE IF END i 

t, BRCH IF YES | 
SET UP TO TEST FOR NEXT BIT ! 

» » 

SEE IF END 

t * - 

V, BRCH IF YES 
SET UP FOR NEXT DATA GROUP j 
CONTINUE | 

TURN ON TROUBLE SWITCH | 



SET REG 7 TO NO. OF GROUPS 

LOAD 1ST GROUP ADDR IN INDEX REG 8 

WERE ANY BITS READ FOR THIS GROUP 

BRANCH IF BITS READ 

UPDATE INDEX REG 8 BY 10 

BRANCH IF ALL GROUPS NOT CHECKED 

BRANCH TO ERROR MESSAGE-ALL BITS OFF 



DID PARITY CHECK OCCUR WHILE WRITING 
BRANCH IF ON TO GET NEXT DATA GROUP 
WAS 5 BIT READ WHEN EXPECTED 



ID F804-1 
PAGE 7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



P/N 840258 
PAGE 8 



] 001ADA 


47 


10 


F 


AE6 




BC 


ALLON,CRCK60 




BRANCH IF YES 


! 001ADE 


91 


04 


F 


844 


* 


TM 


WRITE, X»04» 




IS 5 BIT BEING CHECKED 


! 001AE2 

1 


47 


80 


F 


BOE 




BC 


ALLOFF ,CRCK90 




BRANCH IF NO 


1 001AE6 


96 


02 


F 


84D 


* 

CRCK60 


01 


ERRSW,X»02 • 




TURN ON -NO BIT SET- SWITCH 


001AEA 


47 


FO 


F 


BOA 


* 


BC 


ALWAYS, CRCK86 




GO TURN ON TROUBLE FOUND SWITCH 


001AEE 


91 


02 


F 


844 


* 

CRCK80 


TM 


WRITE, X , 02" 




WAS A 6 BIT EXPECTED AS DATA 


001AF2 


47 


10 


F 


AFE 




BC 


ALL0N,CRCK81 




BRANCH IF EXPECTED 


001AF6 


91 


02 


F 


849 




TM 


READ, X '02 • 




WAS A 6 BIT READ BACK 


001AFA 


47 


80 


F 


BOE 




BC 


ALLOFF, CRCK90 




BRANCH IF NOT READ 


001AFE 


91 


01 


F 


825 


CRCK81 


TM 


DATA6&9, X 1 01 • 




SEE IF HAVE HOT CHAN REG 6 BIT 


001802 


47 


80 


F 


BOE 




BC 


ALLOFF, CRCK90 




,, BRCH IF NO 


001B06 


47 


FO 


F 


BOA 




BC 


ALWAYS, CRCK86 




GO TURN ON TROUBLE SWITCH 


00180A 


96 


01 


F 


7DF 


CRCK86 


01 


TRBLE,X»01« 




TURN ON TROUBLE SWITCH 


001 BO E 


D2 


00 


9 


009 F 840 


* 

CRCK90 


MVC 


9(1,9),ERRSW 




RESTORE ERROR SWITCHES TO GROUP 


001814 


41 


99 


0 


OOA 




LA 


GR9,10(GR9,0) 




UPDATE INDEX REG 9 BY 10 


001B18 


41 


00 


F 


830 




LA 


GR0,DATA7£10 




SET REG 0 TO MAX COUNT 


001B1C 


15 


90 








CLR 


GR9,GR0 




HAVE ALL DATA GROUPS BEEN CHECKED 


i 00 1 B 1 E 


47 


60 


F 


AOC 




BC 


NEQUAL , CRCK10 




IF NOT, GO GET NEXT GROUP 


001B22 


47 


FO 


F 


B26 


* 


BC 


ALWAYS, ALZOOO 




GO CHECK FOR ERRORS 


001B26 


91 


01 


F 


7DF 


* 

ALZOOO 


TM 


TRBLE,X«01» 




IS TROUBLE SWITCH ON 


V 001B2A 


47 


10 


F 


B32 




BC 


ALL0N,ALZ005 




BRANCH IF ON 


001B2E 


47 


FO 


F 


CAO 


♦ 


BC 


ALWAYS, EXIT01 




GO TO NEXT ROUTINE 












# 
♦ 




ROUTINE TO CHECK 


IF 


ALL BITS CANNOT TURN ON 


001B32 : 


41 


00 


F 


839 


ALZ005 


LA 


GR0,DATA7£19 




SET UP MAXIMUM COUNT 


001 B36 


92 


FF 


F 


79C 




MVI 


SCHNUM,X«FF« 




SET UP TO BYPASS ALL REMAINING OVLYS 


001B3A 


41 


10 


F 


7E9 




LA 


GR1 ,DATA0&9 




INITIALIZE INDEX 1 TO START OF GROUP 


001B3E 


91 


02 


1 


000 


ALZ010 


TM 


OfGRl ) ,X»02« 




WAS BIT OFF SWITCH TURNED ON 


001 B 42 


47 


80 


F 


B5A 




BC 


ALLOFF, ALZ020 




BRANCH IF OFF ■ — NOT ALL BITS OFF — 


001B46 


41 


11 


0 


OOA 




LA 


GR1,10{GR1,0) 




UPDATE INDEX BY 10 


001B4A 


15 


10 








CLR 


GR1 , GRO 




ALL GROUPS CHECKED 


001B4C 


47 


60 


F 


B3E 


• 


BC 


NEQUAL, ALZ010 




GO CHECK NEXT GROUP 


001 B 50 


OA 


DO 






ALZ015 


SVC 


X»DO» 




ERR 30 - ALL CHANNEL REGISTER BITS 


001B52 


44 










DC 


X«44« 




t, ARE ALWAYS OFF AND CANNOT 


001B53 


07 










DC 


X«07» 




,, BE TURNED ON 


001B54 


FD57 








DC 


AL2 ( ERR030-BASE£REG) 


t » 


001 B56 


47 


FO 


F 


CAO 


* 


BC 


ALWAYS, EXIT01 




GO TO NEXT ROUTINE 












* 

* 




ROUTINE TO CHECK 


IF 


ALL BITS ALWAYS ON 


001 B5 A 


41 


10 


F 


7E9 


ALZ020 


LA 


GR1 ,DATA0£9 




INITIAL INDEX 1 TO START OF GROUP 


001 BSE 


91 


01 


1 


000 


ALZ021 


TM 


0(GR1) ,X'01 S 




WAS BIT HOT SWITCH TURNED ON 


001 B62 


47 


80 


F 


B74 




BC 


ALLOFF, ALZ025 




BRANCH IF OFF — NOT ALL BITS HOT — 


001 B66 


41 


11 


0 


OOA 




LA 


GRl,10(GRl,0i 




UPDATE INDEX BY 10 


001B6A 


15 


10 








CLR 


GR1 ,GRO 




WERE ALL GROUPS CHECKED 


001B6C 


47 


60 


F 


BSE 




BC 


NEQUAL, ALZ021 




GO CHECK NEXT GROUP 


001B70 


47 


FO 


F 


B84 


* 


BC 


ALWAYS, ALZ028 




GO TO ERROR MESSAGE 031-ALL BITS ON 


001 B74 


91 


FF 


F 


835 


ALZ025 


TM 


DATAB£5»X* FF 8 




WERE ALL BITS READ BACK FOR 00 


001 B78 


47 


CO 


F 


BSE 




BC 


MIXN0N,ALZ030 




BRANCH IF ALL BITS NOT ON HOT 


001 B7C 


91 


10 


F 


830 


« 


TM 


DATAX£3,X»10« 




WAS EQUIP CK ON FOR DATAB -00- 


; 001 B80 


47 


10 


F 


B8E 




BC 


ALL0N,ALZ030 




BRANCH IF ON 


001B84 


OA 


DO 






* 

ALZ028 


SVC 


X»D0« 




ERR 031 - ALL CHANNEL REG BITS ARE 


001B86 


44 










DC 


X»44» 




ALWAYS ON AND CANNOT BE 


001B87 


07 










DC 


X«07« 




,, TURNED OFF. 


001B88 


FD5E 








DC 


AL2 ( ERR031-BASE&REG) 


» » 


001B8A 


47 


FO 


F 


CAO 




BC 


ALWAYS, EXIT01 




GO TO NEXT ROUTINE 


DATE 


15JUL65 




17MAR66 










ID F804- 


i EC ■■ 


124265 




125643 










PAGE 8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F8041 2821 SCAN/2540' READER/PUNCH 



F8041 


CHANNEL 


REG FLT -ROUTINE 


OVERLAY 


01- 




001B8E 


91 02 


p 




» 

ALZ030 


TM 


DATA0S9,X , 02 I 


001B92 


47 80 


F 


BAO 




BC 


ALLOFF, ALZ032 


001B96 


OA DO 








SVC 


X»D0» 


001B98 


44 








DC 


X»44 f 


001B99 


07 








DC 


X«07« 


001B9A 


FD65 








DC 


AL2 ( ERR032-BASEGREG) 


001B9C 


47 FO 


F 


BAE 




BC 


ALWAYS, ALZ034 


001BA0 


91 01 


F 


*7 CO 


ALZ032 


TM 


DATAOS^X'Ol 1 


001BA4 


47 80 


F 


BAE 




BC 


ALLOFF, ALZ034 


001BA8 


OA DO 








SVC 


X^DO' 


001 BAA 


44 








DC 


X«44« 


f\r\ 1 O A Q 
UUIdAo 


07 








DC 


X • 07 • 


001BAC 


FD6C 








DC 


AL2 ( ERR033-BASE&REG) 


001 BAE 


91 02 


F 


7F3 


ALZ034 


TM 


DATA1G9,X«02« 


001BB2 


47 80 


F 


BCO 




BC 


ALLOFF, ALZ036 


001BB6 


OA DO 








SVC 


X'DO' 


001BB8 


44 








DC 


X»44« 


001BB9 


07 








DC 


X«07» 


001BBA 


FD73 








DC 


AL2 ( ERR034-BASESREG) 


001BBC 


47 FO 


F 


BCE 




BC 


ALWAYS, ALZ040 


001BC0 


91 01 


F 


7F3 


ALZ036 


TM 


DATA1G9,X«01» 


001BC4 


47 80 


F 


BCE 




BC 


ALLOFF, ALZ040 


001BC8 


OA DO 








SVC 


X«DO» 


001BCA 


44 








DC 


X«44« 


001BCB 


07 








DC 


X»07» 


001 BCC 


FD7A 








DC 


AL2 ( ERR035-BASE6REG) 


001BCE 


91 02 


F 


7FD 


•* 

ALZ040 


TM 


DATA2£9,X•02• 


001BD2 


47 80 


F 


BEO 




BC 


ALLOFF, ALZ042 


001BD6 


OA DO 








SVC 


X«DO» 


001BD8 


44 








DC 


X«44» 


001BD9 


07 








DC 


X«07» 


001BDA 


FD81 








DC 


AL2 ( ERR036-BASE£REG) 


001BDC 


47 FO 


F 


BEE 




BC 


ALWAYS, ALZ044 


001BE0 


91 01 


F 


7FD 


ALZ042 


TM 


DATA2£9,X»01« 


001BE4 


47 80 


F 


BEE 




BC 


ALLOFF, ALZ044 


001BE8 


OA DO 








SVC 


X»DO« 


001BEA 


44 








DC 


X«44» 


001BEB 


07 








DC 


X«07« 


001BEC 


FD88 








DC 


AL2( ERR037-BASE&REG) 


001BEE 


91 02 


F 


807 


■ » 

ALZ044 


TM 




001BF2 


47 80 


F 


COO 




BC 


ALLOFF, ALZ046 


001BF6 


OA DO 








SVC 


X'DO* 


001BF8 


44 








DC 


X»44« 


001BF9 


07 








DC 


X»07» 


001BFA 


FD8F 








DC 


AL2 ( ERR038-BASEGREG) 


001BFC 


47 FO 


F 


COE 




BC 


ALWAYS, ALZ04* 


001C00 


91 01 


F 


807 


ALZ046 


TM 


DATA3£9,X«01» 


001C04 


47 80 


F 


COE 




BC 


ALLOFF, ALZ048 


001C08 


OA DO 








SVC 


X«DO» 


001C0A 


44 








DC 


X»44» 


001C0B 


07 








DC 


X»07» 


001C0C 


FD96 








DC 


AL2 ( ERR039-BASESREG) 


001C0E 


91 02 


F 


811 


* - 

ALZ048 


TM 


DATA4£;9,X•02 , 


001C12 


47 80 


F 


C20 




BC 


ALLOFF, ALZ050 


001C16 


OA DO 








SVC 


X»D0» 


UU X U i. o 


44 










X * 44 • 


001C19 


07 








DC 


X«07» 


001C1A 


FD9D 








DC 


AL2 ( ERR040-BASE&REG) 


001C1C 


47 FO 


F 


C2E 




BC 


ALWAYS, ALZ052 


001C20 


91 01 


F 


811 


ALZ050 


TM 


DATA4£9,X«01» 


001C24 


47 80 


F 


C2E 




BC 


ALLOFF, ALZ052 


001C28 


OA DO 








SVC 


X'DO' 


001C2A 


44 








DC 


X«44» 


001C2B 


07 








DC 


X«07» 


DATE 


15JUL65 




17MAR66 








EC 


124265 




125643 









P/N 840258 
PAGE 8A 



DID BIT 0 TURN ON 
BRANCH IF TURNED ON OK 
ERR 032 - CHANNEL REG 0 BIT DOES NOT 
,, TURN ON 



WAS BIT 0 ALWAYS ON 
BRANCH IF TURNED OFF OK 
ERR 033 - CHANNEL REG 0 BIT IS 
•t ALWAYS ON 



DID BIT 1 TURN ON 
BRANCH IF TURNED ON OK 
ERR 034 - CHANNEL REG 1 BIT DOES NOT 
tt TURN ON 



WAS BIT 1 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 1 
ERR 035 - CHANNEL REG 1 BIT IS 
,, ALWAYS ON 



DID BIT 2 TURN ON 
BRANCH IF TURNED ON OK 
ERR 036 - CHANNEL REG 2 BIT DOES NOT 
,, TURN ON 



WAS BIT 2 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 2 
ERR 037 - CHANNEL REG 2 BIT IS 
ALWAYS ON 

t r 

Y f 

DID BIT 3 TURN ON 
BRANCH IF TURNED ON OK 
ERR 038 - CHANNEL REG 3 BIT DOES NOT 
,, TURN ON 



WAS BIT 3 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 3 
ERR 039 - CHANNEL REG 3 BIT IS 
,, ALWAYS ON 

ft . ..- - _ 

» t 

DID BIT 4 TURN ON 
BRANCH IF TURNED ON OK 
ERR 040 - CHANNEL REG 4 BIT DOES NOT 
,, TURN ON 

f 9 



WAS BIT 4 ALWAYS ON 

BRANCH IF ABLE TO RESET BIT 4 

ERR 041 - CHANNEL REG 4 BIT IS 

,, ALWAYS ON 

» * 



ID F804-1 
RAGE 6A 




ooooooooooooooooooooooooooooooooo 



o 



© © © o o © o o © o o c 



00000 



1 

-.J 
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♦ F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



001C2C 


FDA4 








DC 


AL2 ( ERR041-BASECREG) 




001C2E 


91 02 


F 


81B 


• 

AL.Z052 


TM 


DATA5£9, X • 02 • 


DID BIT 5 TURN ON 


001C32 


47 80 


F 


C40 




BC 


ALLOFF t ALZ054 


BRANCH IF TURNED ON 


001C36 


OA DO 








SVC 


X'DO' 


ERR 042 - CHANNEL REG 5 BIT DOES NOT 


001C38 


44 








DC 


X'44» 


,, TURN ON 


001C39 


07 








DC 


X'07» 


t f 


001 C3 A 


rUAo 








nr 




t , 


001C3C 


47 FO 


F 


C4E 




BC 


ALWAYS, ALZ056 




001C40 


91 01 


F 


81B 


ALZ054 


TM 


DATA5£9,X'01« 


WAS BIT 5 ALWAYS ON 


001C44 


47 80 


F 


C4E 




BC 


ALLOFF, ALZ056 


BRANCH IF ABLE TO RESET BIT 5 


001C48 


OA DO 








SVC 


X'DO' 


ERR 043 - CHANNEL REG 5 BIT IS 


001C4A 


44 








DC 


X'44' 


ALWAYS ON 


001C4B 


07 








DC 


X'07» 




001C4C 


FDB2 








DC 


AL2( ERR043-BASE&REG) 


» , 


001C4E 


91 02 


F 


825 


• 

ALZ056 


TM 


DATA669,X'02 I 


DID BIT 6 TURN ON 


001C52 


47 80 


F 


C60 




BC 


ALLOFF, ALZ058 


BRANCH IF TURNED ON 


001C56 


OA DO 








SVC 


X'DO' 


ERR 044 - CHANNEL REG 6 BIT DOES NOT 


001C5.8 


44 








DC 


X'44» 


TURN ON 


001C59 


07 








DC 


X'07' 


t» » 


001 C5 A 


FDB9 








nr 

UK, 


At ? f FRR R A <\Ff RFG 1 
ALcl CI\l\U*r*r DM OCulxCu # 


t » 


001C5C 


47 FO 


F 


C6E 




BC 


ALWAYS, ALZ060 




001C60 


91 01 


F 


825 


ALZ058 


TM 


DATA6G9,X'01 • 


WAS BIT 6 ALWAYS ON 


001C64 


47 80 


F 


C6E 




BC 


ALLOFF, ALZ060 


BRANCH IF ABLE TO RESET BIT 6 


001C68 


OA DO 








SVC 


X'DO' 


ERR 045 - CHANNEL REG 6 BIT IS 


001C6A 


44 








DC 


X'44' 


,, ALWAYS ON 


001C6B 


07 








DC 


X'07' 




001C6C 


FDCO 








DC 


AL2 ( ERR045-BASEGREG) 




001C6E 


91 02 


F 


82F 


* 

ALZ060 


TM 


DATA7£9,X'02« 


DID BIT 7 TURN ON 


001C72 


47 80 


f 


C80 




BC 


ALLOFF , ALZ062 


BRANCH IF BIT 7 TURNED ON OK 


001C76 


OA DO 








SVC 


X'DO' 


ERR 046 - CHANNEL REG 7 BIT DOES NOT 


001C78 


44 








DC 


X'44» 


,, TURN ON 


nm r?o 

UU iUl7 


07 








DC 


X ' 07 • 


t , 


001C7A 


FDC7 








DC 


AL2 ( ERR046-BASE&REG) 


t , 


001C7C 


47 FO 


F 


C8E 




BC 


ALWAYSt ALZ064 




001C80 


91 01 


F 


82F 


ALZ062 


TM 


DATA7£9,X'01' 


WAS BIT 7 ALWAYS ON 


001C84 


47 80 


F 


C8E 




BC 


ALLOFF, ALZ064 


BRANCH IF ABLE TO RESET BIT 7 


001C88 


OA DO 








SVC 


X'DO' 


ERR 046 - CHANNEL REG 7 BIT IS 


001C8A 


44 








DC 


X'44« 


, , ALWAYS ON 


001C8B 


07 








DC 


X'07« 




001C8C 


FDCE 








DC 


AL2 { ERR047-BASE&REG) 




001C8E 


47 FO 


F 


CAO 


* 

ALZ064 
* 


BC 


ALWAYS, EXIT01 


GO TO NEXT ROUTINE 


001C92 


OA DO 






* 

ADRCHK 


SVC 


X'DO' 


ERROR MESSAGE - PROGRAM DETECTED 


001C94 


44 








DC 


X«44» 


,, ADDRESSING PROBLEM 


001C95 


19 








DC 


X'19' 




001C96 


FD3B 








DC 


AL2 ( MESS2-BASE&REG) 




001C98 


92 83 


F 


79C 




MVI 


SCHNUM,X'83« 


SET UP TO SEARCH FOR TEN 03 


001C9C 


47 FO 


F 


6EC 




BC 


ALWAYS, EXIT 


GO TO ROUTINE EXIT 


001CA0 


91 20 


F 


004 


* 

EXIT01 


TM 


SNSW,X'20» 


IS LOGOUT OF DATA TABLE DESIRED 


001CA4 


47 80 


F 


6EC 




BC 


ALLOFF, EXIT 


BRANCH IF NOT DESIRED 


001CA8 


41 00 


F 


844 


* 


LA - 


GR0,DATAX£10 


LOAD MAX COUNT 


001CAC 


41 10 


F 


7E0 




LA 


GR1 » DATAO 


LOAD GR 1 WITH START OF DATA TABLE 


001 C BO 


D2 09 


F 


844 1 000 


LG0UT1 


MVC 


WRITE(IO) ,0(GR1) 


SET UP DATA FOR PRINTOUT 


001CB6 


OA DD 








SVC 


X'DD' 


CONVERT TO PTINT ABLE CHARS 


001CB8 


000 A 








DC 


AL2U0) 


,, 10 HEX BYTES 


001CBA 


0844 








DC 


AL2(WRITE-SECST) 


,, ADDR OF DATA 


001CBC 


0858 








DC 


AL2 { LGARE AS.9-SECST} 


ADDR OF DATA 


001CBE 


41 20 


F 


86A 




LA 


GR2,LGAREA£27 


SET UP MAX PACKED DATA ADDRESS 


001CC2 


41 30 


F 


858 




LA 


GR3,LGAREA£9 


INIT INDEX 3 -USED TO ADDR PACK DATA 


001CC6 


41 40 


F 


84F 




LA 


GR4, LGAREA 


INIT INDEX 4 -USED TO ADDR EXPANDED 


001CCA 


D2 01 


4 


000 3 000 


LG0UT2 


MVC 


0{2,GR4),0<GR3) 


MOVE CHARS 



DATE 15JUL65 17MAR66 
EC 124265 125643 



ID F804-1 
PAGE 9 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 



! 001CD0 


92 


40 


4 


002 


MVI 


2(GR4) ,X'40» 


MOVE BLANK 


001 CD4 


41 


44 


0 


003 


LA 


GR4,3(GR4,0) 


UPDATE EXPANDED INDEX BY 


001CD8 


41 


33 


0 


002 


LA 


GR3,2(GR3,0> 


UPDATE PACKED INDEX BY 2 


001CDC 


15 


32 






CLR . 


GR3,GR2 


WERE ALL POSITIONS MOVED 


001CDE 


47 


60 


F 


CCA 


BC 


NEQUAL, LG0UT2 


GO MOVE NEXT CHAR IF NOT 


001CE2 


OA 


DO 






SVC 


X'DO' 


LOG OUT TABLE 


001CE4 


80 








DC 


X'80» 




001CE5 


ID 








DC 


X'lD' 


V, 29 BYTES 


001CE6 


F84F 






DC 


AL2 ( LGAREA-BASEGREG) 


,, ADDR OF MESSAGE 


i 001CE8 


41 


11 


0 


OOA 


LA 


GR1,10(GR1,0) 


UPDATE DATA INDEX BY 10 


001CEC 


15 


10 






CLR 


GR1 ,GRO 


WERE ALL LINES PRINTED 


001CEE 


47 


60 


F 


CBO 


BC 


NEQUAL, LG0UT1 


GO DO NEXT LINE IF NOT 


i 001CF2 


OA 


DA 






SVC 


X'DA' 


HALT £ WAIT FOR ACTION 


001CF4 


47 


FO 


F 


6EC 


BC 


ALWAYS, EXIT 


ROUTINE EXIT 



CONSTANTS 



CCW TABLE 



001CF8 CNOP 

001CF8 01 001844 2000 0002 PWRCCW CCW 

001D00 C2 001849 200T) 0001 RDCCW CCW 

001D08 C6 0017D0 2000 0003 CRDCCW CCW 

001D10 C6 001234 2000 0064 ADRCCW CCW 

001D18 OOOOOOOA TEN DC 

001D1C F2F8F2F140E2C3C1D5 TITLE1 DC 

001D25 61F2F5F4FO6B40 * 

001D2C C3C8C1D5D5C5D340D9 DC 

001D35 C5C740C6D3E3 

001D3B C2E4C6C6C5D940C1C4 MESS2 DC 

001D44 C4D9C5E2E2C9D5 

001D4B C740D7D9D6C2D3C5D4 DC 

001D54 .OOOOFF CLEAR DC 



0,8 

X'Ol', WRITE, X'20',2 
X'C2',READ,X'20',1 
X'C6',CKRDAR,X'20« ,3 
X'C6',SCPDAT,X'20« ,100 
XL4«0A' 

C«2821 SCAN/2540, • 

C 'CHANNEL REG FLT 9 

C 'BUFFER ADDRESSIN' 

C'G PROBLEM' 
X'OOOOFF' 



DOUBLE WORD ALIGNMENT 

DI AG WRITE TO PNCH BUFF, SLI ON 
DATA READ FROM BUFFER, SLI ON 

DI AG CHECK READ CCW, SLI ON 
DI AG READ FROM BUFFER, SLI ON 



USED TO RESET DEAG CHECK READ AREA 



ERROR MESSAGES FOR CHANNEL REGISTER 



001D57 


C5D9D940F0F3F0 


ERR030 


DC 


C'ERR 


030' 


ALL CHANNEL 


REGISTER BITS ALWAYS ON 


001D5E 


C5D9D940F0F3F1 


ERR031 


DC 


C'ERR 


031' 


ALL CHANNEL 


REG BITS ALWAYS OFF 


001D65 


C5D9D940F0F3F2 


ERR 03 2 


DC 


C'ERR 


032* 


CHANNEL 


REG 


0 


BIT 


CANNOT 


TURN 


ON 


001D6C 


C5D9D940F0F3F3 


ERR033 


DC 


C'ERR 


033' 


CHANNEL 


REG 


0 


BIT 


CANNOT 


TURN 


OFF 


001D73 


C5D9D940F0F3F4 


ERR034 


DC 


C'ERR 


034' 


CHANNEL 


REG 


1 


BIT 


CANNOT 


TURN 


ON 


001D7A 


C5D9D940F0F3F5 


ERR035 


DC 


C'ERR 


035* 


CHANNEL 


REG 


1 


BIT 


CANNOT 


TURN 


OFF 


001D81 


C5D9D940F0F3F6 


ERR036 


DC 


C'ERR 


036' 


CHANNEL 


REG 


2 


BIT 


CANNOT 


TURN 


ON 


001D88 


C5D9D940F0F3F7 


ERR037 


DC 


C'ERR 


037' 


CHANNEL 


REG 


2 


BIT 


CANNOT 


TURN 


OFF 


001D8F 


C5D9D940F0F3F8 


ERR038 


DC 


C • ERR 


038' 


CHANNEL 


REG 


3 


BIT 


CANNOT 


TURN 


ON 


001D96 


C5D9D940F0F3F9 


ERR039 


DC 


C 'ERR 


039' 


CHANNEL 


REG 


3 


BIT 


CANNOT 


TURN 


OFF 


001D9D 


C5D9D940F0F4F0 


ERR040 


DC 


C'ERR 


040' 


CHANNEL 


REG 


4 


BIT 


CANNOT 


TURN 


ON 


001DA4 


C5D9D940F0F4F1 


ERR041 


DC 


C'ERR 


041' 


CHANNEL 


REG 


4 


BIT 


CANNOT 


TURN 


OFF 


001DAB 


C5D9D940F0F4F2 


ERR042 


DC 


C'ERR 


042' 


CHANNEL 


REG 


5 


BIT 


CANNOT 


TURN 


ON 


001DB2 


C5D9D940F0F4F3 


. ERR043 


DC 


C'ERR 


043' 


CHANNEL 


REG 


5 


BIT 


CANNOT 


TURN 


OFF 


001DB9 


C5D9D940F0F4F4 


ERR044 


DC 


C'ERR 


044' 


CHANNEL 


REG 


6 


BIT 


CANNOT 


TURN 


ON 


001DC0 


C5D9D940F0F4F5 


ERR 04 5 


DC 


C'ERR 


045' 


CHANNEL 


REG 


6 


BIT 


CANNOT 


TURN 


OFF 


001DC7 


C5D9D940F0F4F6 


ERR046 


DC 


C'ERR 


046' 


CHANNEL 


REG 


7 


BIT 


CANNOT 


TURN 


ON 


001DCE 


C5D9D940F0F4F7 


ERR047 


DC 


C'ERR 


047' 


CHANNEL 


REG 


7 


BIT 


CANNOT 


TURN 


OFF 




OOFOOO 


REG 


EQU 


X'FOOO' 


















001000 


BASE 


EQU 


SECST 



















END 
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POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS, 



DATE 
EC 



A 


JLU*rO 


CAW 




1 iir 

1 O At., 


AOc.Ct 


1 aco 
LdDc , 


13 (C t 


13AA , 


1424 








i*t7Cf 


1 AA *> 




1 Ann 




1 5EE , 


1660 








16B6, 


i 16BA, 


16C0, 


1704, 


18C4, 


18DC, 


1912 










" 1 OOP 












g 


1040 


CSW 


















0 


GRO 


1482, 


1 (UUf 




1 (IRA - 
1 DO A y 


1 PflA 
X OOA , 


1 Q OA 


1 QQA 
1 O VO 








18C0, 


J. Ot *T, 


1 80 8, 


1 ouu , 




1 Ol O 
i7i£ , 


1 OA? 










197A, 


1 Q7P 


1 Qftft 

1 voo, 


1 onr 

A 7<JL , 


1 QO 

lVr^ , 


1 A AO 








inio. 

JLO 1 O , 


loir. 




1 DAA 
ID HA , 


1 DAA 
ID OA f 


if All 
lUAo y 


t rcr 


1 

A 


1 

A 


GR1 


A3\J C.f 






ADUC y 


1 OCA 
IVrOf 


1 OC A 
IVrA y 


19FE 












1 A AC 


1 A56, 


1A72 , 


1 A80, 


1B3A 








t ft tic 


1B46, 


1B46, 


1B4A , 


1B5A, 


1B5E y 


1B66 








1B66, 


1B6A, 


1CAC, ' 


1CB0, 


ICE 8 , 


1CE8 y 


1CEC 


1 


C. 


CO 0 


1AAE, 


13E8, 
1CBE, 


1A52, 
ICDC 


1A8C, 


1A96, 


lA96y 


1AAA 


1 


O 




1454* 
ICDC 


1562, 


1 5BA , 


1CC2 , 


1CCA y 


1CD8 y 


1CD8 


1 


4 


GR4 


149Af 
lCD4f 


14.9E, 
1CD4 


14BA, 


14C6, 


1CC6, 


lCCAy 


1CD0 


1 


5 


GR5 


1482, 


1486, 


1486, 


1488 








1 


6 


GR6 
















1 


7 


GR7 


lA4A f 


1A76, 


1A88, 


1A8C, 


1A8E, 


1AB2, 


1AC6 


1 


8 


GR8 


1666, 


16F4, 


18B6, 


1A46, 


1A5A, 


1A62, 


1A6A 








lA76 f 


1A7C, 


1A7C, 


1A7C, 


1AB6, 


1AC2 




1 


9 


GR9 


1302, 


15DE, 


163E, 


165C, 


16B2, 


16B6y 


18F8 








1976, 


197E, 


19EA, 


1B14, 


1B14, 


1B1C 




1 


A 


GRA 


1674, 


1938, 


1966, 


19E8 








1 


B 


GRB 


15E2, 
19AA 


16A2, 


1710, 


18CC, 


18E8, 


191A, 


194E 


1 


C 


GRC 


1318 t 


1328, 


13BE, 


13CA, 


13D4, 


13DC, 


13E0 








13E8, 


14B6, 


151C, 


1564, 


158C, 


163E, 


1648 








164C, 


165C, 


1688, 


16C6, 


16CA, 


1708, 


18BA 








18BA t 


18BC, 


18E0, 


18F4, 


1994, 


199C 




1 


D 


GRD 


1322, 


1402, 


140A, 


1412, 


1428, 


14B0y 


14F4 








152C, 


1578, 


159C, 


16C0, 
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001015 



001934 





8041 


TITLE 


F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 




XF8041 


START 


4096 


00 1000 




USING 


*,15 




* 




FIRST OVERLAY '- ROUTINE 02 # 




«****«**»»****«*«*««**«**#*#*•«*»*•«**«*•**««***••*«**••*•**«*«**«««*** 






RESIDENT LABELS ADDRESSED BY OVERLAYS * 


nn 1 nnn 


SECST 


EQU 


* 


nn i nni 


SNSW 


EQU 




nn i hah 


CSW 


EQU 


SECST&64 


nn l n&A 


CAW 


EQU 


SECST&72 


nninpn 

UU 1U cu 


UNIT1 


EQU 


SECSTS224 


0010E2 


UN1ADR 


EQU 


«JLv w 1 UC4U 


00 10E4 


UNIT2 


EQU 


SECST&228 


001 OFA. 


UN2ADR 


EQU 


SECSTS230 


00112C 


SI0VR3 


EQU 


SECSTS300 


001134 


SI0VR4 


EQU 


SECSTG308 


00 114D 


SI0SWS 


EQU 


SECSTG333 


00 1 1F8 


STATSV 


EQU 


SECSTS504 


0011FA 


CSWAG 


EQU 


SECST&506 


001231 


UAPU 


EQU 


SECST&561 


00112C 


CSWSAV 


EQU 


SECSTS300 


00114C 


CAWKEY 


EQU 


SECST&3B2 


0011F7 


SENSE 


EQU 


SECST&503 


00122D 


UARD 


EQU 


SECSTS557 


001234 


SCPDAT 


EQU 


SECSTS564 


00163E 


SCPR00 


EQU 


SECSTS1598 


0012E8 


SI0 


EQU 


SECST6744 


001202 


MESS1 


EQU 


SECST6514 


000048 


HCAW 


EQU 


72 


000040 


HCSW 


EQU 


64 


0016EC 


EXIT 


EQU 


SECST&1772 


0016E6 


EXITBY 


EQU 


SECST&1766 


00179C 


SCHNUM 


EQU 


SECST&1948 


001015 




ORG 


SECSTS21 






DC 


AL3(RTN02) INITIAL PSW STARTING ADDR FOR RTN 02 


0017D0 




ORG 


SECST&2000 




* 




VARIABLE FIELDS » 



«*******«****««*•«*»»*»•««»*•«•***•»»•*»*****»***** 

* VARIABLES FOR ANALYZE ROUTINE - NO BOUNDARY 



****«•»••**»••»•*•»* 



0017D0 


000000000000000000 


ALZV01 


DC 


XL52«00« 








0017D9 


000000000000000000 














0017E2 


oooooooooooooooooo 














0017EB 


000000000000000000 














0017F4 


oooooooooooooooooo 














0017FD 


oooooooaoooooo 














001804 


00 


CKRDAR 


DC 


XL1*0« CHECK READ DATA BYTE 


001805 


oooooooooooooooooo 


DATAWK 


DC 


XL20«0« 






• 


00180E 


oooooooooooooooooo 














001817 


0000 














001819 


500000000000000000 


DATA 12 


DC 


X ' 500000000000000000 » 


DATA 


REG 


12 BIT DATA GROUP 


001822 


200000000000000000 




DC 


X» 2000000000000000000000* 


9 9 






00182B 


0000 














00182D 


600000000000000000 


DATA11 


DC 


X • 600000000000000000 » 


DATA 


REG 


11 BIT DATA GROUP 


001836 


100000000000000000 




DC 


X • 1 000000000000000000000 • 


9 9 






00183F 


0000 














001841 


FO00OO0OOOOOOO00OO 


DATAO 


DC 


X • FOO0OO00O0O0OOOOOO » 


DATA 


REG 


0 BIT DATA GROUP 


00184A 


080000000000000000 




DC 


X • 0800000000000000000000 • 


1 1 






001853 


0000 














001855 


F10000000000000000 


DATA1 


DC 


X»F 10000000000000000' 


DATA 


REG 


1 BIT DATA GROUP 


00185E 


040000000000000000 




DC 


X • 0400000000000000000000 • 


9 t 






DATE 


15JUL65 17MAR66 












ID F804-1 


EC 


124265 125643 
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00000000000000000 



oocoocooooccccocc 
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* F8041 2S21 SCAN/2540 READER/PUNCH 
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001867 0000 

001869 F20000000000000000 
001872 020000000000000000 
001878 0000 

001870 F30000000000000000 
001886 010000000000000000 
00188F 0000 

001891 F40000000000000000 

00189A 002000000000000000 

0018A3 0000 

0018A5 F50000000000000000 

0018AE 001000000000000000 

0018B7 0000 

0018B9 F60000000000000000 

0018C2 000800000000000000 

0018CB 0000 

0018CD F70000000000000000 

0018D6 000400000000000000 

0018DF 0000 

0018E1 F80000000000000000 

0018EA 000200000000000000 

0018F3 0000 

0018F5 F90000000000000000 

0018FE 000100000000000000 

001907 0000 

001909 400000000000000000 

001912 000000000000000000 

001918 0000 

00191D 310000000000000000 

001926 040100000000000000 

00192F 0000 

001931 00 



0ATA2 DC 
DC 



DATA3 DC 

DC 



DATA4 



DC 
DC 



DATA5 DC 
DC 



DATA6 DC 
DC 



DATA7 DC 

DC 



DATA8 



DC 
DC 



DATA9 DC 

DC 



DATAB 



DC 
DC 



DATAEX DC 
DC 



X*F20000000000000000* 

X» 0200000000000000000000' 



X*F30000000000000000* 

X* 0100000000000000000000 • 



X*F40000000000000000* 

X* 0020000000000000000000* 



X*F5000000000000000Q* 
X*0010000000000000000000* 



X *F 60000000000000000* 

X* 0008000000000000000000* 



X*F70000000000000000* 

X* 0004000000000000000000* 



X*F80000000000000000* 

X • 0002000000000000000000 • 



X»F90000000000000000* 

X* 0001000000000000000000* 



X* 400000000000000000* 

X* 0000000000000000000000* 



X* 310000000000000000* 

X • 0401000000000000000000 • 



DATA REG 2 BIT DATA GROUP 
» t 

DATA REG 3 BIT DATA GROUP 
» » 

DATA REG 4 BIT DATA GROUP 

9 9 

DATA REG 5 BIT DATA GROUP 

9 9 

DATA REG 6 BIT DATA GROUP 

9 * 

DATA REG 7 BIT DATA GROUP 
1 1 

DATA REG 8 BIT DATA GROUP 

9 9 

DATA REG 9 BIT DATA GROUP 

9 9 

DATA REG BLANK DATA GROUP 

9 9 

DATA REG EXTRA GRP-9 £ 1 BITS 

9 9 



********************* 



PROGSW DC X*00* 

******************************** **************i 
* ROUTINE 02 PREFIX * 

*«•****«***•**«»«*«****»****»•****«****-»**«*««**«»*****«***«*»*»*•*«•** 



001932 










CNOP 


0,4 


FULL WORD ALIGNMENT 


001932 


07 


00 






BCR 


0,0 




001934 


02 








RTN02 DC 


XL1 '02 • 


ROUTINE NUMBER 


001935 


00 








DC 


XL1 *0« 


FLAGS 


001936 


FFFE 






DC 


X ' FFFE * 


ADDRESS OF NEXT ROUTINE 














*«*•*«****«**•»«#***•*»**«*#*****»#•• 


001938 


95 


00 


F 


79C 


CLI 


SCHNUM,X»OG* 


SEE IF SHLD RUN CTL PGM 


00193C 


47 


80 


F 


942 


8C 


EQUAL , INI TOO 


BRCH IF YES 


001940 


OA 


D6 






SVC 


X *D6* 


ROUTINE EXIT 


001942 


91 


40 


F 


931 


INITOO TM 


PROGSW, X '40* 


IS RUN RTN SWITCH ON 


001946 


47 


80 


F 


94E 


8C 


ALLOFF, INIT05 


8R IF NO 


00194A 


92 


00 


F 


79C 


MVI 


SCHNUM, X»00* 


RESET SEARCH NO. 


00194E 


95 


00 


F 


79C 


INIT05 CLI 


SCh.MUM,X*00* 


IS SEARCH NO. RESET 


0019 52 


47 


60 


F 


6EC 


BC 


N£QUAL,£XIT 


BYPASS ROUTINE 


001956 


96 


40 


F 


931 


01 


PROGSW, X»40* 


TURN ON RUN RTN SWITCH 


00195A 


91 


02 


F 


004 


TM 


SNSW,X«02* 


IS TITLE PRINTOUT DESIRED 


00195E 


47 


80 


F 


968 


BC 


ALLOFF, INITIO 


BRANCH TO SKIP TITLE PRINT 


001962 


OA 


DO 






SVC 


X*DO» 


PRINT TITLE 


001964 


80 








DC 


X«80« 


,, NORMAL OUTPUT 


001965 


IF 








DC 


X«1F» 


31 CHARACTERS 


001966 


FD84 






DC 


AL2(TITLE1-BASE£REG) 


ADDRESS OF TITLE 


001968 


91 


40 


F 


004 


» 

INITIO TiM 


SNSW,X*40» 


SEE IF SEC SS 04 IS 1 - USE SCP RTN 


00196C 


47 


80 


F 


974 


BC 


ALLOFF, D ATA 00 


BR IF NO 


001970 


45 


80 


F 


63 £ 


8AL 


GR8,SCPR00 


GO TO UTILITY ROUTINE 



******************«*#************************************************** 

* DATA ACCUMULATION ROUTINE 

* THIS ROUTINE ACCUMULATES ALL THE DATA NECESSARY FOR THE ANALYZE 

* ROUTINE. 

***********■**+********************************************************+ 
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001974 


41 


90 


F 


819 






DATAOO 


LA 


GR9,DATA12 


SET REG 9 TO TABLE START -INDEX REG- 


001978 


IB 


CC 












SR 


GRCGRC 


RESET REG 12 
















♦ 
* 




GATHER PUNCH BUFFER 


DATA 


00 1 97 A 


D2 


L O 


p 


805 




000 


* 

DATA 10 


MVC 


DATAWK(ZO) ,0(GR9) 


SET A DATA GROUP IN WORK AREA 
















*»**♦#*#*»*#******»**«**#»*»**#»*#**»*»»»**♦•**•*»»****»*********»**•** 
















* 




WRITE PUNCH DATA IS 


COLLECTED HERE 


001980 


41 


00 


F 


D58 






« 


LA 


GRO, PWRCCW 


LOAD ADDR OF PUNCH WRITE CCW 




U 1 


0 7 


p 


806 


p 


806 




XC 


DATAWK&l ( 8 ) t DATAWK&l 


CLEAR WORK AREA EXCEPT WRITE DATA 


00198A 


D7 


06 


F 


810 


F 


810 




XC 


DATAWKS1H7) ,DATAWK£11 


001990 


50 


00 


F 


048 








ST 


GRO, CAW 


STORE PUNCH CCW ADDR IN CAW 


001994 


92 


00 


F 


14D 








MVI 


SIOSWS,X*00» 


RESET SIO SWITCHES -USE PUNCH- 


001998 


48 


CO 


F 


0E6 








LH 


GRCUN2ADR 


SET PUNCH I/O ADDR IN GR12 


00199C 


45 


BO 


F 


2E8 








BAL 


GRB , SIO 


GO TO START I/O ROUTINE 


0019A0 


91 


01 


F 


14D 






* 


TM 


SI0SWS,X*01* 


IS INTERVENTION REQ SWITCH SET 


0019A4 


47 


10 


F 


942 








BC 


ALLON, INITOO 


RESTART PROGRAM IF ON 


0019A8 


D2 


00 


F 


806 


F 


130 




MVC 


PWSTAl(l) ,CSWSAV£4 


SAVE CHAN-END STATUS FOR PUNCH WRITE 


0019AE 


D2 


00 


F 


807 


F 


1F8 




MVC 


PWSTA2U) ,STATSV 


SAVE DEV-END STATUS FOR PUNCH WRITE 


0019B4 


D2 


00 


F 


808 


F 


1F7 


♦ 

DATA20 


MVC 


PWSNS(l), SENSE 


SAVE SENSE DATA FOR PUNCH WRITE 


0019BA 


45 


AO 


F 


A6E 








BAL 


GRA,DGCKRD 


GO DO DI AG CK READ TO PUNCH 


0019BE 


02 


00 


F 


809 


F 


804 




MVC 


PWCKRD ( 1 } » CKRDAR 


SAVE CK RD DATA FROM PUNCH WRITE 
















»»»#«*##»##*#»»*»**#*»##»♦#*»#»»****«»**«»♦##*******«»*•**»**•*»*•»**»♦ 




















READ PUNCH DATA IS COLLECTED HERE 


0019C4 


41 


00 


F 


D68 






* 

BATA30 


LA 


GRO,PRDCCW 


LOAD ADDRESS OF PUNCH READ CCW 


0019C8 


50 


00 


F 


048 








ST 


GRO,CAW 


SET CCW ADDR IN CAW 


0019CC 


92 


00 


F 


14D 








MVI 


SIOSWS,X*00« 


RESET SIO SWS -USE PUNCH- 


0019D0 


45 


BO 


F 


2E8 








BAL 


GRB, SIO 


GO TO START I/O ROUTINE 


0019D4 


91 


01 


F 


14D 






* • 


TM 


SI0SWS,X*01* 


IS INTERVENTION REQ SWITCH ON 


0019D8 


47 


10 


F 


942 








BC 


ALLON, INITOO 


RESTART PROGRAM IF ON 


0019DC 


D2 


00 


F 


80B 


F 


130 




MVC 


PRSTA(l) ,CSWSAV£4 


SAVE STATUS FROM PUNCH BUFFER READ 


0019E2 


D2 


00 


F 


80C 


F 


1F7 




MVC 


PRSNS(l) , SENSE 


SAVE SENSE DATA AFTER PUNCH READ 


0019E8 


45 


AO 


F 


A6E 








BAL 


GRA , DGCKRD 


GO DO DI AG CK RD TO PUNCH 


0019EC 


D2 


00 


F 


80D 


F 


804 




MVC 


PRCKRD ( 1 J , CKRDAR 


SAVE CK RD DATA AFTER PUNCH-READ 



**♦»**»♦*#*****#*****«»*•»****»•♦♦*♦#***♦*»*******#**»*»»*•***» 

* GATHER READ BUFFER DATA 



»**#«»*«•»**»#*»*»*»»#»#♦*«**♦*»**#*»»*****»#*****»**♦»•»•♦*«*»•**«*«•«» 













* 




WRITE READER DATA 


IS COLLECTED HERE 


0019F2 


41 


00 


F 


D60 


* 

DATA40 


LA 


GRO,RWRCCW 


LOAD ADDR OF READ WRITE CCW 


0019F6 


50 


00 


F 


048 




ST 


GRO, CAW 


SET CCW ADDR IN CAW 


0019FA 


92 


00 


F 


14D 




MVI 


SIOSWS,X*00* 


RESET SIO SWS -USE PUNCH ADDRESS- 


0019FE 


45 


BO 


F 


2E8 




BAL 


GRB, SIO 


GO TO START I/O ROUTINE 


001A02 


91 


01 


F 


14D 


# 


TM 


SI0SWS,X»01* 


IS INTERVENTION REQ SWITCH ON 


001A06 


47 


10 


F 


942 




BC 


ALLON, INITOO 


RESTART PROGRAM IF ON 


001 AOA 


D2 


00 


F 


810 F 130 




MVC 


RWSTA( 1) ,CSWSAV£4 


SAVE STATUS FROM READ BUFFER WRITE 


001A10 


D2 


00 


F 


811 F 1F7 




MVC 


RWSNS( 1) , SENSE 


SAVE SENSE DATA AFTER RD BUFF WRITE 


001A16 


96 


02 


F 


140 




01 


SI0SWS,X*02* 


' SET SIO SWITCH FOR READER 


001A1A 


45 


AO 


F 


A6E 




BAL 


GRA, DGCKRD 


GO DO DI AG CK READ FOR RD BUFF WRITE 


001A1E 


D2 


00 


F 


812 F 804 




MVC 


RWCKRD(l) , CKRDAR 


SAVE CK RD DATA AFTER RD BUFF WRITE 



READ READER DATA IS COLLECTED HERE 



001A24 


41 


00 


F 


D70 


DATA50 LA 


GRO,RRDCCW 


LOAD ADDR OF READ BUFF READ CCW 


001A28 


50 


00 


F 


048 


ST 


GRO, CAW 


SET CCW ADDR IN CAW 


001A2C 


92 


02 


F 


14D 


MVI 


SI0SWS,X*02* 


RESET SIO SWITCHES -USE READER- 


001A30 


' 48 


CO 


F 


0E2 


LH 


GRC , UN1ADR 


LOAD READER ADDR IN REG 12 


001A34 


45 


BO 


F 


2E8 


BAL 


GRB, SIO 


GO TO START I/O ROUTINE 



DATE 15JUL65 17MAR66 ID F 804-1 
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P/N 840258 
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001 A38 


91 


01 


F 


14D 








TM 


SI0SWS,X'01 • 


IS INTERVENTION REQ SW ITCH ON 


001B0C 


92 


83 


F 


79C 




MVI 


SCHNUM,X»83« 


SET UP TO SEARCH FOR ROUTINE 03 


001 A3C 


47 


10 


F 


942 








BC 


A Li- ON -t INI TOO 


RESTART PROGRAM IF ON 


001B10 


47 


FO 


F 


CDE 




BC 


ALWAYS, LGOUTO 


GO SEE IF WANT LOG OUT 


001A40 


D2 


00 


F 


814 


F 


130 




MVC 


RRSTA { 1 ) ,CSWSAV£4 


SAVE STATUS FROM READ 8UFFER READ 












««************»*********«***»********»**************«*«•*«****«*«**»*«« 


001A46 


D2 


00 


F 


815 


F 


1F7 




HVC 


RRSNSi 1 ) , SENSE 


SAVE SENSE DATA AFTER READ BUFF READ 












« 


COME 


HERE IF NO BUFFER ADDRESSING ERRORS EXIST - CK PWCKRD DATA* 


001A4C 


45 


AO 


F 


A6E 








BAL 


GR A, DGCKRD 


GO DO DIAG CK READ TO READER 












*«#*********«*«******»*******«»»*****#««*#****«.**•**««.«««««.*«**««««*«»« 


001A50 


D2 


00 


F 


816 


F 


804 




MVC 


RRCKRD ( 1 ) »CKRDAR 


SAVE CK RD DATA AFTER READ BUFF READ 


001B14 


41 


10 


F 


819 


ALZBOO 


LA 


GR1 ,DATA12 


LOAD GR1 WITH ADDR OF TABLE START 
















* 








001B18 


41 


20 


F 


91D 




LA 


GR2 , DATAEX 


LOAD GR2 WITH ADDR OF TABLE END 


001A56 


D2 


13 


9 


000 


F 


805 


DATA60 


MVC 


0( 20,GR9) j DATAWK 


RESTORE DATA FROM WORK AREA TO GROUP 


001B1C 


D2 


13 


F 


805 1 000 


ALZB10 


MVC 


DATAWK (20) ,0(GR1) 


LOAD DATA IN WORK AREA 


001A5C 


41 


99 


0 


014 








LA 


GR9,2G(GR9,0) 


UPDATE REG 9 BY 20 


001B22 


91 


02 


F 


809 




TM 


PWCKRD , X • 02 • 


BR IF PUNCH XLATE ERROR 


001A60 


41 


00 


F 


931 








LA 


GR0»DATAEX£20 


SET GRO TO MAX COUNT 


001B26 


47 


10 


F 


BBA 




BC 


ALLON, ALZDOO 


1 1 


001A64 


15 


90 












CLR 


GR9 t GRO 


ALL DATA ACCUMULATED 




















001A66 


47 


60 


F 


97A 








BC 


NEQUAL t DATA10 


GO GET NEXT DATA GROUP 












* 


COME 


HERE IF GOT (NA. NX*) 


- CHECK PRCKRD HERE 


001A6A 


47 


FO 


F 


ACA 








BC 


ALWAYSf ALZAOO 


GO TO CONTROL PROGRAM 












**####♦♦♦**#«»**»**♦♦##*♦*»•«****♦*»»*♦♦#*#♦###»**#**♦»***#♦♦♦#♦#»»»#»♦ 
















* 








001B2A 


D5 


00 


F 


805 F 80A 


ALZCOO 


CLC 


PCHWR( 1) , PCHRD 


BR IF DATA READ FROM PCH BUF OK 
















« 








001B30 


47 


80 


F 


B7C 




BC 


EQUAL, ALZC40 


















* 




ROUTINE TO DO DIAG CK 


READ 


001 B3 4 


91 


02 


F 


80D 




TM 


PRCKRD, X»02» 


BR IF DID NOT GET RD XLATE 
















* 








001B38 


47 


80 


F 


B60 




BC 


ALLOFF, ALZC20 




001A6E 


41 


00 


F 


D78 






DGCKRD 


LA 


GRO,CRDCCW 


LOAD ADDR OF DIAG CK RD CCW 


001 B3C 


91 


04 


F 


80D 




TM 


PRCKRD, X , 04« 


BR IF GOT PARITY 


001A72 


50 


00 


F 


048 








ST 


GRO, CAW 


STORE ADDR OF CCW IN CAW 


001B40 


47 


10 


F 


B56 




BC 


ALLON, ALZC10 




001A76 


48 


CO 


F 


0E6 








LH 


GRC , UN2ADR 


SET PUNCH I/O ADDR IN GR 12 


001B44 


91 


08 


F 


80C 




TM 


PRSNS,X»08» 


BR IF GOT INVALID CARD CODE 


001A7A 


91 


02 


F 


14D 








TM 


SI0SWS,X»02« 


IS READER CK RD WANTED 


001B48 


47 


10 


F 


B56 




BC 


ALLON, ALZC10 




001A7E 


47 


80 


F 


A86 








BC 


ALLOFF , »68 


BRANCH IF NOT READER 


001B4C 


OA 


DO 








SVC 


X«DO» 


ERr'o05 - PROB AT CHAN REG DURING 


001A82 


48 


CO 


F 


0E2 








LH 


GRC » UN1ADR 


SET UP ADDRESS OF READER 


001B4E 


44 










DC 


X«44» 


RD XFER CYCLE - GOT (NA.NX.NP) (D.NA. 


001A86 


92 


CO 


F 


804 








MVI 


CKRDAR,X»C0» 


CLEAR DIAG CHECK READ AREA 


001B4F 


07 










DC 


X»07« 


X) WITHOUT INVALID CARD CODE 


001 ASA 


94 


FD 


F 


14D 








NI 


SIOSWSyX'FD* 


RESET SIO SWITCHES EXCEPT READ-PUNCH 


001B50 


FDBF 








DC 


AL2 ( ERR005-BASESREG) 




001A8E 


45 


BO 


F 


2E8 








BAL 


GRBySIO 


GO TO START I/O ROUTINE 


001B52 


47 


FO 


F 


CB6 




BC 


ALWAYS, ALZH11 


SELECT READ XLATE FLT 
















* 








001B56 


OA 


DO 






ALZC10 


SVC 


X«DO« 


ERR 006 - PROB IN BUFF INHIBIT 


001A92 


91 


01 


F 


14D 








TM 


SI0SWS»X»01 • 


IS I NTERV REQ SW ON 


001B58 


44 










DC 


X«44» 


LINES AND/OR CTLS OR BUFFER 


001A96 


47 


10 


F 


942 








BC 


ALLON, INI TOO 


RESTART PROG IF ON 


001B59 


07 










DC 


X»07» 


SENSE AMPS - GOT ( NA.NX. NP )( D.NA. X ) 


001A9A 


91 


CO 


F 


804 








TM 


CKRDAR,X*CO' 


WAS CHECK READ DATA TRANSFERRED 


001B5A 


FDC6 








DC 


AL2 ( ERR006-BASE&REG) 




001A9E 


47 


10 


F 


AAA 








BC 


ALLON ,DGCK10 


BR IF NOT OK 


001B5C 


47 


FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001 AA2 


47 


FO 


F 


ACS 








BC 


ALWAYS, RETNCR 


BR IF OK 


001 B60 


91 


04 


F 


80D 


ALZC20 


TM 


PRCKRD,X , 04« 


BR IF GOT PARITY 


001AA6 


47 


80 


F 


AC8 








BC 


ALLOFF , RETNCR 


BRANCH IF OK 


001B64 


47 


10 


F 


B72 




BC 


ALLON, ALZC30 




001AAA 


D2 


02 


F 


212 


F 


231 


DGCK10 


MVC 


MESS1£16<3) tUAPU 


SET PUNCH ADDRESS IN MESSAGE 


001B68 


OA 


DO 








SVC 


X«DO» 


ERr'o07 - CHAN REG PROB - GOT 


001AB0 


91 


02 


F 


14D 








TM 


SI0SWS,X«02« 


IS READER BEING USED 


001B6A 


44 










DC 


X«44» 


(NA.NX.NP) (D. NA.NX.NP) 


001AB4 


47 


80 


F 


ABE 








BC 


ALLOFF ,*&10 


BRANCH IF NOT READER 


001B6B 


07 










DC 


X»07» 




001AB8 


02 


02 


F 


212 


F 


22D 




MVC 


MESS1£16<3) tUARD 


SET READER ADDRESS IN MESSAGE 


001B6C 


FDCD 








DC 


AL2 ( ERR007-BASECREG) 


— *"~ 


001ABE 


OA 


DO 












SVC 


X»D0» 


PRINT DIAG CR RD MESSAGE 


001B6E 


47 


FO 


F 


CB6 




BC 


ALWAYS, ALZH11 


SELECT READ XLATE FLT 


001AC0 


40 














DC 


X»40« 


,, ERROR MESSAGE 


001B72 


OA 


DO 






ALZC30 


SVC 


X»DO« 


ERR 008 - PROB IN INHIBIT LINES AND/ 


001AC1 


2A 














DC 


X«2A • 


,, 42 CHARACTERS 


001B74 


44 










DC 


X«44» 


OR CTLS OR SENSE AMPS - BOT ( NA.NX. 


001AC2 


F202 












DC 


AL2( ME SSI- BASE GREG) 


,, ADDRESS OF MESSAGE 


001B75 


07 










DC 


X»07» 


NP) (D.NA. NX. P) 


001AC4 


47 


FO 


F 


97A 








BC 


ALWAYS, DATA10 


GO RESTART DATA GROUP 


001B76 


FDD4 








DC 


AL2 ( ERR008-BASE&REG) 




001 AC8 


07 


FA 










RETNCR 


BCR 


ALWAYS, GRA 


RETURN TO OTHER ROUTINE 


001B78 


47 


FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 
















» 








001B7C 


91 


02 


F 


80D 


ALZC40 


TM 


PRCKRD, X«02 • 


BR IF GOT XLATE 
















#*#*»###•*»*# ***##»*#«###«»«* «««««««*#*#**#*# 


001B80 


47 


10 


F 


B9E 




BC 


ALLON , ALZC50 


t , 
















« 


ANALYZE ROUTINE 


* 


001384 


91 


04 


F 


80D 




TM 


PRCKRD,X , 04« 


BR IF DID NOT GET PARITY 
















****#*«»*«#* 




001B88 


47 


80 


F 


C06 




BC 


ALLOFF, ALZEOO 


t » 
















# 




ANALYZE FOR BAR, RAR, 


OR PAR ERRORS * 


001B8C 


91 


04 


F 


809 




TM 


PWCKRD, X' 04 • 


BR IF GOT PARITY ON PUNCH WRITE 
















*»**«**»*•***«»«««•«««««»*****»«*» 


001B90 


47 


10 


F 


BBO 




BC 


ALLON, ALZC60 




001ACA 


41 


10 


F 


819 






ALZAOO 


LA 


GR 1 , D A TA 1 2 


LOAD GR 1 WITH ADDR OF TABLE START 


001B94 


OA 


DO 








SVC 


X'DO' 


ERR 009 - PROB IN PARITY INHIBIT 


001ACE 


41 


20 


F 


91D 








LA 


GR2 , DATAE X 


LOAD GR 2 WITH ADDR OF TABLE END 


001B96 


44 










DC 


X«44» 


LINE OR CTLS OR PARITY SENSE AMP OR 


001AD2 


D2 


13 


F 


805 


1 


000 


ALZA10 


MVC 


DATAWK (20) ,0(GR1) 


LOAD DATA IN WORK AREA 


001B97 


07 










DC 


X*07» 


HAVE INTERMITTENT PARITY - GOT 


001AD8 


91 


01 


F 


809 








TM 


PWCKRD,X B 01 4 


BR IF GOT WR PCH BUF ADDR CK 


001B98 


FDDB 








DC 


AL2 ( ERR009-BASE&REG) 


(NA.NX.NP) (ND.NA.NX.P) 


001ADC 


47 


10 


F 


B06 








BC 


ALLON , ALZA20 


i , 


001B9A 


47 


FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001AE0 


91 


01 


F 


80D 








TM 


PRCKRD, X*01 » 


BR IF GOT RD PCH BUF ADDR CK 


001B9E 


OA 


DO 






ALZC50 


SVC 


X»DO» 


ERR 010 - FALSE READ XLATE PROB IN 


001AE4 


47 


10 


F 


B06 








BC 


ALLON, ALZA20 


* , 


001BA0 


44 










DC 


X«44» 


READ XLATE CHECK CKTS - GOT 


001AE8 


91 


01 


F 


812 








TM 


RWCKRD,X»01» 


BR IF GOT WR RDR BUF ADDR CK 


001BA1 


07 










DC 


X«07» 


(NA.NX.NP) (ND.NA.X) 


001AEC 


47 


10 


F 


B06 








BC 


ALLON , ALZA20 




001BA2 


FDE2 








DC 


AL2 ( ERR010-BASE&REG) 




uul h r U 


91 


01 


F 


80D 








TM 


PRCKRD, X«01« 


BR IF GOT RD RDR BUF ADDR CK 


no i n a a. 

UU I D A** 


47 


FO 


F 


CDA. 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001AF4 


47 


10 


F 


B06 








BC 


ALLON, ALZA20 




001BA8 


92 


85 


F 


79 C 


ALZC51 


MVI 


SCHNUM,X*85« 


SET UP TO SEARCH FOR PCH XLATE FLT 


001AF8 


15 


12 












CLR 


GR 1 , GR2 


br'if END OF TABLE 


001BAC 


47 


FO 


F 


CDE 




BC 


ALWAYS, LGOUTO 


GO SEE IF WANT LOG OUT 


001AFA 


47 


80 


F 


B14 








BC 


EQUAL, ALZ800 




001BB0 


OA 


DO 






ALZC60 


SVC 


X'DO" 


ERR 026 - FALSE PARITY CHECK - GOT 


001AFE 


5E 


10 


F 


D80 








AL 


GR1 , ALZKA 1 


ADD 20 TO GR 1 


001BB2 


44 










DC 


X»44« 


(NA.NX.P) (ND.NA.NX.P) 


001B02 


47 


FO 


F 


AD2 








BC 


ALWAYS, ALZA10 


CONTINUE THIS RTN WITH NEXT DATA GRP 


001BB3 


07 










DC 


X «07« 




001B06 


OA 


DO 










AL2A20 


SVC 


X«DO» 


ERR 001 - BUFFER ADDRESSING PROB 


001BB4 . 


FE52 








DC 


AL2 ( ERR026-BASE&REG) 




001B08 


44 














DC 


X«44« 


PRINT PROG. NO PRIOR TO MSG 


001BB6 


47 


FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001B09 


07 














DC 


X»07« 


NO. OF CHAR IN OUTPUT MESSAGE 












*»*»*****»#***#*»«#*******»**»###»**«#♦***»**#*#»***#*********« 


001B0A 


FDA3 












DC 


AL2 ( ERR0Q1-BASESREG) 


MESSAGE ADDRESS 












* 


COME 


HERE IF GOT ( NA* X ) - 


CHECK PRCKRD HERE 


DATE 


15JUL65 




17MAR66 








ID F804-1 


DATE 


15JUL65 




17MAR66 








ID F804-1 


EC 


124265 




125643 
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EC 


124265 




125643 
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IBM MAINTENANCE P-I AGNOSTIC PROGRAM .P/N 8402^8 

■•■•■• ■•■< - ■ < • pAG£ 15 

* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 



#*■**»****#♦**• * a - w * * «• **»******************#******************** *•**#*#**»# 



00183A 


D5 00 


F 


805 F 80A 


ALZuOO 


CLC 


PCHWR( 1) ,PCHRD 


BR IF DATA READ FROM PCH BUF OK 


0013C0 


47 80 


F 


BEA 




BC 


EQUAL, ALZD10 


y y 


00i8C4 


91 02 


F 


80D 




TM 


PRCKRD,X , 02« 


BR IF GOT XLATE 


001 BC8 


47 10 


F 


C2A 




SC 


ALLON, ALZFGO 




001BCC 


D5 00 


F 


805 F 813 




CLC 


PCHWR( 1) ,RDRD 


SEe'If DATA READ FROM READ BUFF OK 


001BD2 


47 80 


F 


BEO 




BC 


EQUAL , ALZD01 


BRANCH IF YES 


001BD6 


OA DO 








SVC 


X»DO» 


ERR Oil - DATA REG PROB - GOT 


001BD8 


44 








DC 


X«44» 


(NA.X.NP) (D. NA. NX) 


001BD9 


07 








DC 


X«07« 




001BDA 


FDE9 








DC 


AL2 { ERR01 1-BASE&REG) 




001BDC 


47 FO 


F 


CB6 




BC 


ALWAYS, ALZH11 


SELECT READ XLATE FLT 


001 BEO 


OA DO 






ALZD01 


SVC 


X'DO 1 


ERR 025 - PUNCH XLATE PROB 


001BE2 


44 








DC 


X»44» 


t » 


001BE3 


07 








DC 


X«07« 


1 1 


001BE4 


FE4B 








DC 


AL2 ( ERR025-BASE&REG) 




001 BE6 


47 FO 


F 


BA8 




BC 


ALWAYS, ALZC51 


SET-UP SEARCH NO. FOR PCH XLATE FLT 


001 BE A 


91 02 


F 


80D 


ALZD10 


TM 


PRCKRD,X , 02» 


BR IF GOT XLATE 


001 BEE 


47 10 


F 


BFC 




BC 


ALLON, ALZD20 


1 1 


001BF2 


OA DO 








SVC 


X»DO» 


ERR 012 - GOT FALSE PCH XLATE - GOT 


001BF4 


44 








DC 


X»44* 


(NA.X.NP) ( ND. NA. NX ) 


001BF5 


07 








DC 


X«07« 




001BF6 


FDFO 








DC 


AL2 ( ERR012-BASE&REG) 




001BF8 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001BFC 


OA DO 






ALZD20 


SVC 


X«DO« 


ERR 013 - MULTIPLE ERRORS - APPEAR 


001 BFE 


44 








DC 


X«44» 


TO HAVE FALSE PUNCH AND FALSE READ 


001BFF 


07 








DC 


X«07» 


XLATE - GOT (NA.X.NP) ( ND.NA.X ) 


001C00 


FDF7 








DC 


AL2 ( ERR013-BASE£REG> 




001C02 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 










***»*»*******************##***** *******»********«^ 










* 


COME 


HERE IF GOT ( NA. NX. NP) ( ND. NA. NX. NP) - CHECK RWCKRD HERE * 










♦*»«♦****#«»♦»»*«»»**#«*«**»«#**•♦***»»#♦*»♦♦»***»♦#»♦♦»#*♦** ********** 


001C06 


91 02 


F 


812 


ALZEOO 


TM 


RWCKRD,X , 02 t 


BR IF GOT XLATE 


001C0A 


47 10 


F 


C20 




BC 


ALLON, ALZE10 




001C0E 


91 04 


F 


812 




TM 


RWCKRD , X 1 04 • 


BR IF DID NOT GET PARITY 


001C12 


47 80 


F 


C4E 




BC 


ALLOFF, ALZGOO 


» » 


001C16 


OA DO 








SVC 


X»DO» 


ERR 014 - FALSE PARITY SHLD NOT 


001C18 


44 








DC 


X l 44» 


CHECK PARITY DURING DI AG WRITE - GOT 


001C19 


07 








DC 


X»07» 


(NA.NX.NP) (ND.NA.NX.NP) ( NA.NX.P) 


001C1A 


FDFE 








DC 


AL2 { ERR014-BASE£REG) 




001C1C 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001C20 


OA DO 






ALZE10 


SVC 


X*DO« 


ERR 015 - FALSE PUNCH XLATE CHECKS - 


001C22 


44 








DC 


X*44« 


SHLD NOT XLATE CHECK DURING COL BIN 


001C23 


07 








DC 


X »07« 


WRITE - GOT (NA.NX.NP) (ND.NA.NX.NP) 


001C24 


FE05 








DC 


AL2 { ERR015-BASE&REG) 


(NA.X5 


001C26 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 










************** -a************-*********************^ 










* 


COME 


HERE IF GOT { NA. X. NP) (D. NA. X ) - CHECK RWCKRD HERE * 










»«*****«-£**** tti«i-ii*wvi;-*»***«*****«i«*#«***4#«*«*S««*«*«ft«#******##**»# 


001C2 A 


91 02 


F 


812 ' 


AL2F00 


TM 


RWCKRD , X 1 02 * 


BR IF DID NOT GET XLATE 


001C2E 


47 80 


F 


C3C 




BC 


ALLOFF, ALZF10 




001C32 


OA DO 








SVC 


X*DO« 


ERR 016 - FALSE XLATE - SHLD NOT GET 


001C34 


44 








DC 


X«44« 


XLATE DURING DI AG (COL BIN) WRITE - 


001C35 


07 








DC 


X*07' 


GOT (NA.X.NP) (D.NA.X) (NA.X) - WE 


001C36 


FEOC 








DC 


AL2 { ERRQ16-8ASE6REG) 


HAVE MULTIPLE ERRORS 


001C38 


47 FO 


F 


CDA 




SC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001C3C 


91 04 


F 


8i2 


ALZF10 


TM 


RWCKRD , X * 04 • 


BR IF DID NOT GET PARITY 


001C40 


47 80 


F 


C94 




BC 


ALLOFF, ALZHOO 


» , 


001C44 


OA DO 








SVC 


X*DO» 


ERR 017 - GOT FALSE PARITY - SHLD 


001C46 


44 








DC 


X'44' 


NOT GET PARITY DURING SUFFER WRITE - 


001C47 


07 








DC 


X' 07' 


GOT (NA.X.NP) (D.NA.X ) (NA.NX.P) 


001C48 


FE13 








DC 


AL2(ERR017-BASE£REG) 




001C4A 


47 FO 


F 


CDA 




8C 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 










ft********************************* 


************************************* 










* 


COME 


HERE IF GOT C NA. NX. NP) ( ND. NA. NX. NP) ( NA. NX. NP ) - CHECK * 










* 


RRCKRD HERE 


* 










***«***************************"**•*****'*****«**«««*********«******«**** 


001C4E 


D5 00 


F 


805 F 813 


ALZGOO 


CLC 


PCHWRC 1) ,RDRD 


8R IF DATA READ FROM READ BUFF OK 



DATE 15JUL65 17MAR66 ID F804-1 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CONTROL PROGRAM '-ROUTINE OVERLAY 02- 



001C54 


47 80 


F 


C62 




BC 


EQUAL, ALZG10 


y y 


001C58 


OA DO 








SVC 


X'DO 1 


ERR 018 - READ BUFFER OR DIAG WRITE 


001C5A 


44 








DC 


X«44» 


RPOB - GOT (NA. NX. NP)(ND. NA.NX.NP) 


001C5B 


07 








DC 


X'OT 1 


(NA.NX.NP) (D.NA) 


001C5C 


FE1A 








DC 


AL2 ( ERR 018-BASE GREG) 




001C5E 


47 FO 


F 


CB6 




BC 


ALWAYS, ALZH11 


SELECT READ XLATE FLT 


001C62 


91 02 


F 


816 


ALZG10 


TM 


RRCKRD, X * 02 • 


BR IF DID NOT GET XLATE 


001C66 


47 80 


F 


C74 




BC 


ALLOFF, ALZG20 




001C6A 


OA DO 








SVC 


X»DO» 


ERr'o19 - READ XLATE CHECK FALSE AND 


001C6C 


44 








DC 


X»44« 


INTERMITTENT - GOT ( NA.NX. NP ) ( ND.NA. 


001C6D • 


07 








DC 


X'07» 


NX.NP) (NA.NX.NP) (ND.NA.X) 


001C6E 


FE21 








DC 


AL2 ( ERR019-BASESREG) 




001C70 


47 FO 


F 


BA8 




BC 


ALWAYS, ALZC51 


SET UP SEARCH NO. FOR PCH XLATE FLT 


001C74 


91 04 


F 


816 


ALZG20 


TM 


RRCKRD , X • 04' 


BR IF GOT PARITY 


001C78 


47 10 


F 


C8A 




BC 


ALLON, ALZG30 . 


» y 


001C7C 


15 12 








CLR 


GR1 ,GR2 


BR IF END 


001C7E 


47 80 


F 


CDE 




BC 


EQUAL, LGOUTO 




001C82 


5E 10 


F 


D80 




AL 


GR1 , ALZKA1 


GET NEXT GROUP OF DATA 


001C86 


47 FO 


F 


B1C 




BC 


ALWAYS, ALZB10 




001C8A 


OA DO 






ALZG30 


SVC 


X«D0« 


ERr'o20 - INTERMITTENT PARITY PROB - 


001C8C 


44 








DC 


X»44« 


GOT (NA.NX.NP) ( ND.NA. NX .NP )( NA.NX . 


001C8D 


07 








DC 


X«07* 


NP) (ND. NA.NX.P) 


001C8E 


FE28 








DC 


AL2 ( ERR020- BASE GREG) 




001C90 


' 47 FO 


F 


CDA 


ALZG40 


BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 



*#***♦»********* *****»*«**»»*********^ 



* COME HERE IF GOT (NA.X.NP) (D.NA.X) ( NA.NX.NP) - CHECK « 

* RRCKRD HERE * 
*«**»♦»****♦#**♦*#*#****«»»#»*****#♦* 



001C94 


D5 00 


F 


805 F 813 


ALZHOO 


CLC 


PGHWR { 1) »RDRD 


BR IF DATA READ FROM READ BUFF OK 


001C9A 


47 80 


F 


CBE 




BC 


EQUAL, ALZH20 




001C9E 


91 02 


F 


816 




TM 


RRCKRD , X f 02 * 


BR IF GOT XLATE 


001CA2 


47 10 


F 


CBO 




BC 


ALLON, ALZH10 




001CA6 


OA DO 








SVC 


X»D0» 


ERr'o21 - MULTIPLE ERRORS - GOT 


001CA8 


44 








DC 


X»44» 


(NA.X.NP) (D.NA.X) (NA.NX.NP) (D.NA. NX 


001CA9 


07 








DC 


X«07« 




001CAA 


FE2F 








DC 


AL2 ( ERR021-BASE&REG) 




001CAC 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001CB0 


OA DO 






ALZH10 


SVC 


X»DO« 


ERR 022 - PROB IN DATA REG OR READ 


001CB2 


44 








DC 


X»44» 


XLATOR - GOT ( NA.X.NP) ( D.NA.X ) 


001CB3 


07 








DC 


X»07» 


(NA.NX.NP) (D.NA.X) 


001CB4 


FE36 








DC 


AL2 ( ERR022-BASECREG) 




001CB6 


92 84 


F 


79C 


ALZH11 


MVI 


SCHNUM,X»84« 


SET UP TO SELECT READ XLATE FLT 


001CBA 


47 FO 


F 


CDE 




BC 


ALWAYS, LGOUTO 


GO SEE IF WANT LOG OUT 


001CBE 


91 02 


F 


816 


ALZH20 


TM 


RRCKRD , X » 02 • 


BR IF GOT XLATE 


001CC2 


47 10 


F 


CDO 




BC 


ALLON, ALZH30 




001CC6 


OA DO 








SVC 


X«DO» 


ERR*023 - MULTIPLE ERRORS - GOT 


00 ICC 8 


44 








DC 


X»44« 


ERR 023 - MULTIPLE ERRORS - GOT 


001CC9 


07 








DC 


X»07» 


NX) 


001CCA 


FE3D 








DC 


AL2 ( ERR 02 3- BASE GREG) 




001CCC 


47 FO 


F 


CDA 




BC 


ALWAYS, LGOUTA 


GO SEE IF WANT LOG OUT 


001CD0 


OA DO 






ALZH30 


SVC 


X«DO» 


ERR 024 - PROBLEM IN PUNCH XLATOR 


001CD2 


44 








DC 


X • 44 » 


GOT (NA.X.NP) (D.NA.X) (NA.NX.NP) 


001CD3 


07 








DC 


X«07« 


(ND.NA.X) 


001CD4 


FE44 








DC 


AL 2 ( E RR 024-BA SE GREG ) 




001CD6 


47 FO 


F 


BA8 




BC 


ALWAYS, ALZC51 


SET UP SEARCH NO. FOR PCH XLATE FLT 



*************************************#****#** *********^ 



* DATA ACCUMULATION TABLE IS LOGGED OUT HERE 



001CDA 


92 FF 


F 


79C 


LGOUTA 


MVI 


SCHNUM,X»FF« 


SET UP TO BYPASS ALL REMAINING OVLYS 


001CDE 


91 20 


F 


004 


LGOUTO 


TM 


SNSW,X»20» SEE 


IF SEC SS 02 IS 1 - LOGOUT WANTED 


001CE2 


47 10 


F 


CEA 




BC 


ALLON, LGOUT BR 


IF YES 


001CE6 


47 FO 


F 


D40 




BC 


ALWAYS, LGOUTX 




001CEA 


41 10 


F 


805 


LGOUT 


LA 


GR1 ,DATAWK 


LOAD GR 1 WITH A DDR OF LOG OUT 


001CEE 


D2 13 


F 


805 1 000 


LG0UT1 


MVC 


DATAWK( 20) ,0(GR1) 


SET UP DATA FOR PRINTOUT 


001CF4 


OA DD 








SVC 


X'DD 1 


CONVERT TO PRINT FORM 


001CF6 


0012 








DC 


AL2(18) 


18 HEX BYTES 


001CF8 


0805 








DC 


AL2 ( DATAWK-SECST) 


HEX DATA ADDRESS 
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001CFA 


07E0 








DC 


AL2(ALZV0i£16~SECST) 


PRINT ADDRESS 




001CFC 


41 


60 


F 


7EB 




LA 


GR6,ALZV01S27 




SET CK ADDR FOR RD/WR DATA 




OOIDOO 


41 


00 


F 


802 




LA 


GR0,ALZV01£50 




SET UP MAX PACKED ADDR 




001D04 


41 


30 


F 


7E0 




LA 


GR3,ALZV01£16 




INIT INDEX 3 - USED TO ADDR 


PACKED 


001008 


41 


40 


F 


7 DO 




LA 


GR4,ALZV01 




INIT INDEX 4 - USED TO ADDR 


UNPACK 


001D0C 


02 


01 


4 


000 3 000 


LG0UT2 


MVC 


0(2,GR4) ,0{GR3) 




MOVE CHARACTERS 




001D12 


41 


33 


0 


002 




LA 


GR3,2(GR3,0) 




UPDATE PACK INDEX BY 2 




001D16 


15 


46 








CLR 


GR4,GR6 




ARE WE AT 1ST RD/WR CHAR 




001018 


47 


60 


F 


D24 




BC 


NEQUAL , LG0UT3 




BRANCH IF NO 




001D1C 


41 


44 


0 


002 




LA 


GR4,2(GR4,0) 




UPDATE UNPACK ADDR INDEX BY 


2 


001D20 


47 


FO 


F 


DOC 




BC 


ALWAYS, LG0UT2 




GO MOVE NEXT CHAR 




001D24 


92 


40 


4 


002 


LG0UT3 


MVI 


2<GR4) ,X'40« 




MOVE BLANK 




001D28 


41 


44 


0 


003 




LA 


GR4,3(GR4,0) 




UPDATE UNPACK ADDR INDEX BY 


3 


00102C 


15 


30 








CLR 


GR3f GRO 




WERE ALL POSITIONS MOVED 




001D2E 


47 


60 


F 


DOC 




BC 


NEQUAL, LG0UT2 




GO MOVE NEXT CHAR IF NOT 




001D32 


OA 


DO 








SVC 


X'DO' 




LOG OUT TABLE 




001D34 


80 










DC 


X«80' 








001D35 


34 










DC 


X«34' 








001D36 


F7D0 








DC 


AL2 ( ALZV01-BASECREG) 






001D38 


15 


12 








CLR 


GR1,GR2 




BR IF NOT END 




001D3A 


47 


60 


F 


D50 




BC 


NEQUAL , LG0UT4 




1 1 




001D3E 


OA 


DA 








SVC 


X'DA» 


SET 


SENSE SWS AS DESIRED, THEN INTERRUPT 


001D40 


91 


40 


F 


004 


LGOUTX 


TM 


SNSW,X«40' 


SEE 


IF SEC SS 01 IS 1 - USE SCOPE RTN 


001D44 


47 


80 


F 


D4C 




BC 


ALLOFF, LGOUTY 




BR IF NO 




001D48 


45 


80 


F 


63E 




BAL 


GR8,SCPR00 


BR 


TO SCOPE ROUTINE 




001D4C 


47 


FO 


F 


6EC 


LGOUTY 


BC 


ALWAYS, EXIT 




ROUTINE EXIT 




001D50 


5E 


10 


F 


D80 


LG0UT4 


AL 


GR1 ,ALZKA1 




ADD 20 TO GR1 




001D54 


47 


FO 


F 


CEE 




BC 


ALWAYS, LG0UT1 









CONSTANTS 



CCW TABLE 



001D58 

001D58 01 001805 2000 0001 

001D60 25 00180E 2000 0002 

001D68 C2 00180A 2000 0001 

001D70 C2 001813 2000 0001 

001D78 C6 001804 2000' 0001 



001D80 00000014 

001D84 F2F8F2F140E2C3C1D5 

001D8D 61F2F5F4F06B40 

001D94 C3D6D5E3D9D6D340D7 

001D9D D9D6C7D9C1D4 



PWRCCW 
RWRCCW 
PRDCCW 
RRDCCW 
CRDCCW 
*»*«**« 

«*«•♦*#♦ 
ALZKA1 
**<**««* 
TITLE1 



CNOP 
CCW 
CCW 
CCW 
CCW 
CCW 



0,8 

X»01 

X«25 

X'C2 

X«C2 

X'C6 



***»#»**# 
CONSTANTS 
**»****•»* 
DC XL4 
««**-»*»««* 
DC 



» ,PCHWR,X«20 
« ,RDWR,X»20» 

• ,PCHRD,X*20 

• ^DRDrX^O' 
» ,CKRDAR,X'2 
*#*«**#■&««**■ 
FOR ANALYZE 
»»#»***#**#* 
14» 

«*«««■»»«#«»« 



,1 

2 
,1 

1 

0',1 

ROUT 
»*** 



DOUBLE WORD ALIGNMENT 

DI AG WRITE TO PNCH BUFF, SLI ON 

DI AG WRITE TO RD BUFF -SLI ON 
DATA READ FOR PUNCH BUFF, SLI ON 
DATA READ FROM READ BUFF, SLI ON 
DI AG CHECK READ CCW, SLI ON 
*********»»«***«**«*«»««*«*«***«*««»» 
INE - WORD BOUNDARY « 
***»«**«***»****««»«««»**»****«*****#» 

CONSTANT FOR RTN AOO 
»*»*«»***********«***««**»**«*******«* 



C'2821 SCAN/2540, 



DC 



C 'CONTROL PROGRAM* 



* DEFINITION 



OF ERROR MESSAGES 
#»*«*«###*****«•*•«••* 



*#*■**###*»#«*»#**##**#»♦«##* 



*««««-»*###*«**«**«*********** 



001DA3 


C5D9D940F0F0F1 


ERR001 


DC 


C 


' ERR 


001 • 


BUFFER ADDRESSING PROBLEM 


001DAA 


C5D9D940F0F0F2 


ERR002 


DC 


c 


ERR 


002 • 


»»* RESERVED »*» 


001DB1 


C5D9D940F0F0F3 


ERR003 


DC 


c 


ERR 


003 • 


*«* RESERVED **« 


001DB8 


C5D9D940F0F0F4 


ERR004 


DC 


c 


ERR 


004* 


*** RESERVED *** 


001DBF 


C5D9D940F0F0F5 


ERR005 


DC 


c 


ERR 


005' 


READ XLATE TO CHAN REG PROBLRM 


001DC6 


C5D9D940F0F0F6 


ERR006 


DC 


c 


ERR 


006' 


BUFFER INHIBIT LINES AND/OR CONTROLS 






* 










, , OR SENSE AMPS 


001DCD 


C5D9D940F0F0F7 


ERR007 


DC 


c 


ERR 


007' 


READ XLATE TO CHAN REG PROBLRM 


001DD4 


C5D9D940F0F0F8 


ERR008 


DC 


c 


ERR 


008" 


BUFFER INHIBIT LINES AND/OR CONTROLS 
















,, OR SENSE AMP 


001DDB 


C5D9D940F0F0F9 


ERR009 


DC 


c 


ERR 


009 • 


PR08 IN PARITY INHIBIT LINES OR 






* 










,, HAVE I NTERMITTANT PARITY 


001DE2 


C5D9D940F0F1F0 


ERR010 


DC 


c 


ERR 


010' 


FALSE READ XLATE PROB IN READ XLATE 
















,, CHECK CIRCUITS 


001DE9 


C5D9D940F0F1F1 


ERR011 


DC 


c 


ERR 


Oil* 


DATA REGISTER PROBLEM 


001DF0 


C5D9D940F0F1F2 


ERR012 


DC 


c 


1 ERR 


012' 


FALSE PUNCH TRANSLATE CHECK 


DATE 


15JUL65 17MAR66 












ID F804- 


ec 
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* F8041 


2821 SCAN/2540 


READER/PUNCH 












F8041 


CONTROL PROGRAM - 


-ROUTINE OVERLAY 


02- 








" ' ' "™ - - 


001DF7 


C5D9D940F0F1F3 


ERR013 


DC 


C 


•ERR 


013« 


MULTIPLE ERRORS -APPEAR TO HAVE 






# 










,, FALSE PUNCH £ READ TRANSLATE CK 


001DFE 


C5D9D940F0F1F4 


ERR014 


DC 


C 


•ERR 


014' 


FALSE PARITY CHECK 


001E05 


C5D9D940F0F1F5 


ERR015 


DC 


C 


•ERR 


015' 


FALSE PUNCH TRANSLATE CHECK 


001E0C 


C5D9D940F0F1F6 


ERR016 


DC 


C 


• ERR 


016' 


MULTIPLE ERRORS - FALSE TRANSLATE CK 


001E13 


C5D9D940F0F1F7 


ERR017 


DC 


C 


•ERR 


017' 


FALSE PARITY CHECK 


001E1A 


C5D9D940F0F1F8 


ERR018 


DC 


C 


•ERR 


018' 


READ BUFFER OR DIAG WRITE PROBLEM 


001E21 


C5D9D940F0F1F9 


ERR019 


DC 


C 


• ERR 


019' 


I NTERMITTANT FALSE READ XLATE CHECK 


001E28 


C5D9D940F0F2F0 


ERR020 


DC 


C 


•ERR 


020» 


I NTERMI TTANT PARITY CIRCUIT PROBLEM 


001E2F 


C5D9D940F0F2F1 


ERR021 


DC 


C 


•ERR 


021' 


MULTIPLE ERRORS 


001E36 


C5D9D940F0F2F2 


ERR022 


DC 


C 


•ERR 


022' 


DATA REG OR READ XLATE PROBLEM 


001E3D 


C5D9D940F0F2F3 


ERR023 


DC 


C 


•ERR 


023' 


MULTIPLE ERRORS 


001E44 


C5D9D940F0F2F4 


ERR024 


DC 


C 


•ERR 


024' 


PUNCH TRANSLATOR PROBLEM 


001E4B 


C5D9D940F0F2F5 


ERR025 


DC 


c 


•ERR 


025* 


PUNCH TRANSLATOR PROBLEM 


001E52 


C5D9D940F0F2F6 


ERR026 


DC 


c 


•ERR 


026' 


FALSE PARITY CHECK 



EQUATES 



* GENERAL EQUATES 



001805 


PCHWR 


EQU 


DATAWK 


001806 


PWSTA1 


EQU 


DATAWK&l 


001807 


PWSTA2 


EQU 


DATAWK62 


001808 


PWSNS 


EQU 


DATAWK&3 


001809 


PWCKRD 


EQU 


DATAWKS4 


00180A 


PCHRD 


EQU 


DATAWK65 


00180B 


PRSTA 


EQU 


DATA WK&6 


00180C 


PRSNS 


EQU 


DATAWKS7 


00180D 


PRCKRD 


EQU 


DATAWK&8 


00180E 


RDWR 


EQU 


DATAWKS9 


001810 


RWSTA 


EQU 


DATAWK&ll 


001811 


RWSNS 


EQU 


DATAWK612 


001812 


RWCKRD 


EQU 


DATAWKC13 


001813 


RDRD 


EQU 


DATAWKU4 


001814 


RRSTA 


EQU 


DATAWKC15 


001815 


RRSNS 


EQU 


DATAWK&16 


001816 


RRCKRD 


EQU 


DATAWKS17 





* " 


GENERAL I 










000000 


GRO 


EQU 


0 


000001 


GR1 


EQU 


1 


000002 


GR2 


EQU 


2 


000003 


GR3 


EQU 


3 


000004 


GR4 


EQU 


4 


000005 


GR5 


EQU 


5 


000006 


GR6 


EQU 


6 


000007 


GR7 


EQU 


7 


000008 


GR8 


EQU 


8 


000009 


GR9 


EQU 


9 


OOOOOA 


GRA 


EQU 


10 


OOOOOB 


GRB 


EQU 


11 


OOOOOC 


GRC 


EQU 


12 


000000 


GRD 


EQU 


13 


OOOOOE 


GRE 


EQU 


14 


OOOOOF 


GRF 


EQU 


15 



****»**»««**«****«»*****•*«******»»***•*»**»****#**«******»***••*••**** 
* CONDITION CODE EQUATES * 

*««**#•«*****«*******»•*•**•«•***•»****•*•*•*«*******•*«***•*«*«•****•• 



000078 


HION 


EQU 


120 


HARDWARE I/O 


NEW 


PSW 


LOCATION 


000008 


ALLOFF 


EQU 


8 


ALL OFF 


0 






000005 


ANYON 


EQU 


5 


ANY ON 




1 


3 


000001 


ALLON 


EQU 


1 


ALL ON 






3 


000004 


MIXED 


EQU 


4 


MIXED 




1 




000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 




3 


000008 


EQUAL 


EQU 


8 


EQUAL 


0 






000006 


NEQUAL 


EQU 


6 


NOT EQUAL 




1 2 




000004 


LOW 


EQU 


4 


LOW 




1 
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000002 


HIGH 


EQU 


2 


HIGH 






2 


000003 


ZERO 


EQU 


8 


ZERO 


0 






000002 


GZERO 


EQU 


2 


GREATER ZERO 






2 


000008 


AVAIL 


EQU 


8 


AVAILABLE 


0 






000004 


CSWST 


EQU 


4 


CSW STORED 




1 




000002 


BUSY 


EQU 


2 


8USY 






2 


OOOOOF ' 


ALWAYS 


EQU 


15 


UNCONDITIONL 


0 


1 


2 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


1 




000007 


NZERO 


EQU 


7 


NOT CC 0 




1 


2 


000004 


NOTZRO 


EQU 


4 


NOT ZERO -AND- 




1 




OOOOOC 


MIXNON 


EQU 


12 


MIXED OR NONE 


0 


1 




OOFOOO 


REG 


EQU 


X'FOOO* 










001000 


BASE 


EQU 
END 


SECST 











4 

ft! 




4 



DATE 
EC 



15JUL65 17MAR66 
124265 125643 
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POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



1 


1048 


CAW 


1990, 


19C8, 


19F6, 


1A28, 


1A72 






1 


1040 


CSW 
















1 


0 


GRO 


1980, 


1990, 


19C4, 


19C8, 


19F2, 


19F6, 


1A24 








1A28, 


1A60, 


1A64, 


1A6E, 


1A72, 


1D00, 


1D2C 


1 


1 


GR1 


1ACA, 
1C82, 


1AD2, 
ICEA, 


1AF8, 
1CEE, 


1AFE, 
1D38, 


1B14, 
1D50 


1B1C, 


1C7C 


1 


2 


GR2 


1ACE, 


1AF8, 


1B18, 


1C7C, 


1D38 






1 


3 


GR3 


1D04, 


1D0C, 


1D12, 


1D12, 


1D2C 






1 


4 


GR4 


1D08, 
1D28 


1D0C, 


1D16, 


101C, 


1D1C, 


1D24, 


1028 


1 


5 


GR5 
















1 


6 


GR6 


ICFC, 


1D16 












1 


7 


GR7 
















1 


8 


GR8 


1970, 


1D48 












1 


9 


GR9 


1974, 


197A, 


1A56, 


1A5C, 


1A5C, 


1A64 




1 


A 


GRA 


19BA, 


19E8, 


1A1A, 


1A4C, 


1AC8 






1 


B 


GRB 


199C, 


19D0, 


19FE, 


1A34, 


1A8E 






1 


C 


GRC 


1978, 


1978, 


1998# 


1A30, 


1A76, 


1A82 




1 


D 


GRO 


















E 


GRE 
















1 


F 


GRF 
















1, 


4 


LOW 
















1 


FOOD 


REG 


1966, 


1AC2, 


1B0A, 


1B50, 


1B5A, 


1B6C, 


1B76 








1B98, 


1BA2, 


1BB4, 


1BDA, 


1BE4, 


1BF6, 


1C00 








1C1A, 


1C24, 


1C36, 


1C48, 


1C5C, 


1C6E, 


1C8E 








1CAA, 


1CB4, 


ICC A, 


1CD4, 


1D36 






1 


12E8 


SIO 


199C, 


19D0, 


19FE, 


1A34, 


1A8E 






1 


1000 


BASE 


1966, 


1AC2, 


1B0A, 


1B50, 


1B5A, 


1B6C, 


1B76 








1B98, 


1BA2, 


1BB4, 


1BDA, 


1BE4, 


1BF6, 


1C00 








1C1A, 


1C24, 


1C36, 


1C48, 


1C5C, 


1C6E, 


1C8E 








1CAA, 


1CB4, 


1CCA, 


1CD4, 


1D36 






1 


2 


BUSY 
















1 


16 EC 


EXIT 


1952, 


1D4C 












1 


48 


HCAW 
















1 


40 


HCSW 
















1 


2 


HIGH 
















1 


78 


HI ON 
















20 


1813 


RDRD 


1BCC, 


1C4E, 


1C94, 


1D70 








20 


180E 


RDWR 


1060 














1 


1004 


SNSW 


195A, 


1968, 


1CDE, 


1D40 








1 


1231 


UA?U 


1AAA 














1 


122D 


UARD 


1AB8 














1 


8 


ZERO 
















1 


1 


ALL ON 


19A4, 


1908, 


1A06, 


1A3C, 


1A96, 


1A9E, 


1ADC 








1AE4, 


1AEC, 


1AF4, 


1B26, 


1B40, 


1B48, 


IB64 








1B80, 


1890, 


1BC8, 


1BEE, 


1C0A, 


1C78, 


1CA2 








1CC2, 


1CE2 












1 


5 


ANY ON 
















1 


8 


AVAIL 
















1 


UFA 


CS W AG 
















1 


4 


CSWST 
















9 


1841 


DAT AO 
















9 


1855 


DAT Al 
















9 


1869 


DATA2 
















9 


187D 


DAT A3 
















9 


1391 


DAT A4 
















9 


18A5 


DAT A5 
















9 


1SB9 


DAT A6 
















9 


18CD 


DAT A7 
















9 


1SE1 


DAT A8 
















9 


1SF5 


DAT A9 

















DATE 
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9 


1909 


DATAB 


1 


8 


EQUAL 


i ■ 1 


2 


GZERO 


4 


1CEA 


LGOUT 


1 


1202 


MESS1 


; 1 


4 


MIXED 


1 


7 


NZERO 


20 


180A 


PCHRD 


20 


1805 


PCHWR 


20 


180C 


PRSNS 


20 


180B 


PRSTA 


20 


1808 


PWSNS 


20 


1815 


RRSNS 


20 


1814 


RRSTA 


1 


1934 


RTN02 


20 


1811 


RWSNS 


20 


1810 


RWSTA 


1 


1000 


SECST 


1 


11F7 


SENSE 


1 


10E0 


UNIT1 


1 


10E4 


UNIT2 


1 


8 


ALLOFF 


1 


F 


ALWAYS 


4 


1ACA 


ALZAOO 


6 


1A02 


ALZA10 


2 


1B06 


ALZ A20 


4 


1B14 


ALZBOO 


6 


1B1C 


ALZB10 


6 


1B2A 


ALZCOO 


2 


1B56 


ALZC10 


4 


1B60 


ALZC20 


2 


1B72 


ALZC30 


4 


1B7C 


ALZC40 


2 


1B9E 


ALZC50 


4 


1BA8 


ALZC51 


2 


1BB0 


ALZC60 


6 


1BBA 


ALZDOO 


2 


1BE0 


ALZD01 


4 


1BEA 


ALZD10 


2 


1BFC 


ALZ 020 


4 


1C06 


ALZEOO 


2 


1C20 


ALZE10 


4 


1C2A 


ALZFOO 


t 


1C3C 


ALZF10 




1C4E 


ALZGOO 


4 


1C62 


ALZG10 


4 


1C74 


ALZG20 


2 


1C8A 


ALZG30 


4 


1C90 


ALZG40 


6 


1C94 


ALZHOO 


2 


1CB0 


ALZH10 


4 


1CB6 


ALZH11 


4 


1CBE 


ALZH20 


2 


1CD0 


ALZH30 


4 


1080 


ALZKA1 


52 


1700 


ALZV01 


1 


114C 


CAW KEY 


1 


1804 


CKRDAR 



193C, 
1C9A 



1CE2 
1AAA, 



1B2A, 

1B2A, 

19E2, 

19DC 

19B4 

1A46 

1A40 

1015 

1A10 

1A0A 

1000, 

1000, 

1000, 

1000, 

1E59 

19B4, 



1946, 

1B88, 

1A6A, 

1B5C, 

1BDC, 

1C4A, 

1CCC, 

1A6A 

1B02 

1ADC, 

1AFA 

1C86 

1B40, 

1B38 

IB 64 

1B30 

1B80 

1BE6, 

1B90 

1B26 

1BD2 

1BC0 

18EE 

1B88 

1C0A 

1BC8 

1C2E 

1C12 

1C54 

1C66 

1C78 

1C40 

1CA2 

1352, 

1C9A 

1CC2 

1AFE, 

1CFA, 



1AFA, 1B30, 1BC0, 1BD2, 1C54, 1C7E 



1AB8, 1AC2 



1BBA, 1D68 
1BBA, 1BCC, 
1B44 



1B6E, 



1C82, 
1CFC, 



1C4E, 1C94, 1D58 



1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1018, 


1CF8, 


1CFA 


19E2, 


1A10, 


1A46 








195E, 


196C, 


1A7E, 


1AA6, 


1AB4, 


1B38 


1C12, 


1C2E, 


1C40, 


1C66, 


1D44 




1AA2, 


1AC4, 


1AC8, 


1B02, 


1B10, 


1B52 


1B6E, 


1B78, 


1B9A, 


1BA4, 


1BAC, 


1BB6 


1BE6, 


1BF8, 


1C02, 


1C1C, 


1C26, 


1C38 


1C5E, 


1C70, 


1C86, 


1C90, 


1CAC, 


1CBA 


1CD6, 


1CE6, 


1D20, 


1D4C, 


1054 




1AE4, 


1AEC, 


1AF4 









1B48 



1C70, 1CD6 



1BDC, 



1D50 
1D00, 



19BE, 19EC, 1A1E, 



1C5E 

1D04, 1D08, 1D36 

1A50, 1A86, 1A9A, 1078 
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8 


1D78 


CRDCCW 


1 


112C 


CSWSAV 


4- 


1974 


DAT AOO 


6 


197A 


DATA10 


9 


182D 


DAT All 


9 


1819 


DAT A12 


6 


19B4 


DAT A20 


4 


19C4 


DAT A30 


4 


19F2 


DAT A40 


4 


1 A24 


DAT A50 


6 


1A56 


DATA60 


9 


191D 


DAT AEX 


20 


1805 


DATAWK 


& 


1 AAA 


DGCK10 


if 


1A6E 


DGCKRD 


7 


1DA3 


ERR001 


7 


1 DAA 


ERR002 


7 


1DB1 


ERR003 


7 


1DB8 


ERR004 


7 


1DBF 


ERR005 


7 


1DC6 


ERRO 06 


7 


1DC0 


ERR007 


7 


1DD4 


ERR008 


7 


1 DDB 


ERR009 


7 


1 DE2 


ERRO 1 0 


7 


1 DE9 


ERRO 1 1 


7 


10F0 


ERR012 


7 


1DF7 


ERR013 


7 


1DFE 


ERR014 


7 


1E05 


ERR015 


7 


1E0C 


ERRO 16 


7 


1E13 


ERRO 17 


7 


1E1 A 


ERRO 18 

lw> r\rw j» %j 


7 


1E21 


ERR019 


7 


1E28 


ERR020 


7 


1E2F 


ERR021 


7 


1E3& 


ERR022 


7 


1 E3D 


ERR023 


7 


1E44 


ERR024 


7 


1 E4B 


ERR025 


7 


1E52 


FRR026 

W V Cm \9 


x 


16E6 


EX I T BY 


4 


1942 


INITOO 


4 


194E 


INIT05 


4 


1968 


INITIO 


4 


1CDE 


LGOUTO 


5 


1CEE 


LGOUT 1 




1D0C 


LG0UT2 


4 


1D24 


LG0UT3 


4 


1D50 


LG0UT4 


4 


1CDA 


LGOUTA 


4 


1D40 


LGOUTX 


4 


1D4C 


L GOUTY 




C 


MIXNON 




6 


NEQUAL 




9 


NMIXED 




D 


NOTBSY 




4 


NOTZRO 


20 


180D 


PRCKRD 


8 


1D68 


PRDCCW 


1 


1931 


PROGSW 


20 


1809 


PWCKRD 


8 


1D58 


PWRCCW 



1A6E 
19A8, 
196C 
1A66, 

1974, 



1B50 
1B5A 
1B6C 
1B76 
1B98 
1BA2 
1BDA 
1BF6 
1C00 
1C1A 
1C24 
1C36 
1C48 
1C5C 
1C6E 
1C8E 
1CAA 
1CB4 
1CCA 
1CD4 
1BE4 
1BB4 

193C, 

1946 

195E 

1B10, 

1054 

1020, 

1D18 

1D3A 

1B5C, 

1C1C, 

1CE6 

1D44 



19EC, 

1B84, 

19C4 

1942, 

19BE, 

1980 



19DC, 1A0A, 1A40 
1AC4 

1ACA, 1B14 



1A60, 


1ACE, 


1B18 










197A, 


1984, 


1984, 


198A, 


198A, 


1A56, 


1AD2 


1B1C, 


1CEA, 


1CEE, 


1CF8, 


1E59, 


1E59, 


1E59 


1E59, 


1E59, 


1E59, 


1E59, 


1E59, 


1E59, 


1E59 


1E59, 


1E59, 


1E59, 


1E59, 


1E59, 


1E59, 


1E59 


1A9E 














19BA, 


19E8, 


1A1A, 


1A4C 








1B0A 















19A4, 1908, 

1BAC, 1C7E, 
1D2E 



1B78, 1B9A, 
1C26, 1C38, 



1A06, 1A3C, 1A96 
1CBA 



1BA4, 1BB6, 1BF8, 1C02 
1C4A, 1C90, 1CAC, 1CCC 



1952, 1A66, 1D18, 1D2E, 1D3A 



1AE0, 1AF0, 

1BC4, 1BEA 

1956 

1AD8, 1B22, 



1B34, 1B3C, 1B60, 1B7C 



1B8C 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 
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124265 



17MAR66 
125643 



ID F804-1 
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gcggccccccccccccc 



P/N 840258 

IBM MAINTENANCE -DIAGNOSTIC PROGRAM PAGE 19 

* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 



20 


1806 


PWSTA1 


19A8 














20 


1807 


PWSTA2 


19AE 














2 


1AC8 


RETNCR 


1AA2, 


1AA6 












20 

8 


1816 
1D70 


RRCKRD 
RRDCCW 


1A50, 
1A24 


1C62, 


1C74, 


1C9E, 


1CBE 






20 


1812 


RWCKRD 


1A1E, 


1AE8, 


1C06, 


1C0E, 


1C2A, 


1C3C 




8 


1D60 


RWRCCW 


19F2 
















179C 


SCHNUM 


1938, 


194A, 


194E, 


1B0C, 


1BA8, 


1CB6, 


1CDA 




1234 


SCPDAT 


















163E 


SCPROO 


1970, 


1D48 














114D 


SIOSWS 


1994, 


19A0, 


19CC, 


19D4, 


19FA, 


1A02, 


1A16 








1A2C, 


1A38, 


1A7A, 


1A8A, 


1A92, 


IABO 






112C 


SI0VR3 


















1134 


SI0VR4 


















11F8 


STATSV 


19AE 














16 


1D84 
10E2 
10E6 


TITLEl 
UNIADR 
UN2ADR 


1966 

1A30, 

1998, 


1A82 
1A76 













1000 XF8D41 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 15JUL65. 17MAR66 
EC 124265. 125643 
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F804 CHANNEL REG FLT -ROUTINE OVERLAY 1- 



PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS • 21 THROUGH 40 



BESD AA..AAXF80 

9 YQ Y9 

99 9 

BTXT. AAA. • A8. • AA8DAA 
9 YQY Y9 Y9 9QY 
999 9 9 99 

BTXT. AA8 . . A8 . . AAAAAA 
9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT. AAO..AA.. AAA AAA 

9 YQ£ YQ Y9YYYY 
99- 99 9 9999 

BTXT. AAS..A8.. AAAAAA 
9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT. AJQ. . A8 . . AAAAAA 
9 Y99 Y9 Y9YYYY 
9 9 9 9999 

BTXT. AJ£. . A8. . AAO. AD 
9 Y9 Y9 Y9 
9 9 9 

BTXT. AJH. . A8 . . AAADDR 
9 Y90 Y9 Y9 
9 9 9 

BTXT. AJ0..A8..AA. I/O 

9 Y9£ Y9 Y9 
9 9 9 

BTXT. A J8..A8.. AAAAAA 
9 Y9 Y9 Y9YYYY 
9 9 9 9999 

BTXT. AKA.. A3. .AAAAAA 
9 Y9Q Y9 Y9YYYY 
9 Z 9 9 9999 

BTXT. AKQ. . A8 . . AAAAAA 
9 Y9Z Y9 Y9YYYY 
9 9 9 9999 

BTXT . AKJ . . A8 . . AAAAAA 
9 Y9Y Y9 Y9YYYY 
9 9 9 9999 

BTXT. AKQ. . A8 . . AAAAAA 
9 Y9 Y9 Y9YYYY 
9 9 9 9999 

BTXT. ALA. • A8. • AA1UPA 
9 Y9Q Y9 Y9 8 Y 
9 9 9 9 9 9 

BTXT. ALH. . A8 . . AAO DGA 

9 Y9Z Y9 Y9 9ZQ 
9 9 9 9 



41..0AAA.AEN 

YQY Y8 
999 99 

AAAAAA AA ABA A ADAAGAQU 
YYYYYYYYY9YY99YY8Y98 
999999999 9 9999 

A AAA AAA A A AAA A AAAAAA A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAGANO 

YYYY99YY8Y96 
9999 9999 - 

BAAAAAK4AAAAAAAAAAAA 
0YYYYY99YYYYYYYYYYYY 
9 999 999999999999 

AAA A AAAAAA AAA A AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

DR.XXX.CAW.XXXXXXXX. 



.XXX.CAW.XXXXXXXX.GO 



.ADDR.XXX.CAW.XXXXXX 



AAAAAADIAG.CK.RD.UN I 

YYYYYY 

999999 

A AAA A AAA AAAAAA AAA AAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAKB 1A2VAB 
YYYYYYYYYYYY 9 Y 8-9 
999999999999 9 

1717D07AKA0H1DKC0H0H 
R& Q Y Z 8 9-Z Z 
0 9 

3FBEADAHAPKB 1G1AB01W 
Q8QY9YZ98 9 R Y- 8 
0999 9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAADAA 
YYYYYYYYYYYYYYYY99YY 
9999999999999999 99 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

GOT.CCO.BUT.NO. I NTER 



T.CC1.CSW. STATUS. XXX 



XX.G0T.CC1.CSW.XXXXX 



T. 000. NOT. OKT. WI LL. T 

8 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

1EGA2DKB1A21KB0578AJ 
8ZQ Q 9 Y 9 9 8 9Q8 
9 Z 9 

DA0AEA3ASA14AA1EGA5F 
QY&YZQ Q Q 9-Y 8ZQ Q 
9 9 9 Z 9 9 9 

B0.21FG03FAA14G.3FAA 
8- 9 8Z Q-Q 9Z — Y 
9 0 Z 



COLS. 61 THROUGH 80 
259. 125643.. 80410001 



AAAAAA AAA A AA80410002 

YYYYYYYYYYYY 

999999999999 

GAPMAAAAAAAA80410003 

8Y98YYYYYYYY 

99 999999999 



.80410004 



AAAAAAAAAAAA80410005 

YYYYYYYYYYYY 

999999999999 

AAAAAA A AAA 1/80410006 

YYYYYYYYYY 

9999999999 

RUPTAAAAI/ 0.80410007 
YYYY 
9999 

X.SNS. XX... .80410008 



XXXXXXXXXXXA804 10009 
Y 
9 

RY.AGAINAAAA80410010 
YYYY 
9999 

AAAAAA AAA A AA804100 11 

YYYYYYYYYYYY 

999999999999 

AAAAAA AAAAAA804100 12 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80410013 

YYYYYYYYYYYY 

999999999999 

1DKC1Y0HPG1U80410014 
9 9 9 Z 9 8 
9 

AA14G&3&BQAA80410015" 
-Q 9Z -8 -Y 
Z 9 

0DGA3DBEADAH80410016 
9ZQ 88QY9YZ 
9 9999 9 . 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 




ID F804-1 
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F804 2821 SCAN/2540 READER/PUNCH 
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F804 2821 SCAN/2540 READER/PUNCH 
F804 CHANNEL REG FLT -ROUTINE OVERLAY 1- 



BTXT. ALA.. AS. 
9 Y9Y Y9 
9 9 



, AAAPKB 1G1AB31WB0./1FG03DAA 

Y998 9 R Y- 88- 9 8Z 8-Q 

9 9 9 9 



14GA30AACDGA3FBE ADAH 
9ZQ Y-Y 9ZQ Q8QY9YZ 
9 9 9 0999 9 



APK81G1AB21W80410017 
98 9 R Y- 8 



BTXT.AP0..A8..AAAAFA 

9 Y98 Y9 Y9YY Y 
9 9 9 9 99 9 



K4J AACDAJ 7AAAAGGGGAA 
99YYY99Y9 YYY9QQQQYY 
999 9 999 ZZZZ99 



AMANOMAKE. THIS. UNIT. 

Y9Y9& 

9 9- 



RDY.WITH.BLA80410034 



BTXT.ALH..A8. 

9 Y90 Y9 
9-9 



, AABO./ 1FEA0AGA3DGE3FQUAB1E 
Y98- 9 8QY&YZY 8Z Q98-9 8 

9 9 9 9 9 0 9 



GA3DH00SG03SH00WEA0A 
ZQ QZ£ Z 8Z£ QY&Y 
9 9 9 9 



G03SQBG03DAA80410018 
Z£ 89 Z 8-Y 
9 



BTXT.APF..A8..AANK.C 

9 Y9R Y9 Y9 
9 9 9 



ARDSSTATUS.XXXX.SNS. 



XXPRESS. CONSOLE. STOP 



.F. ENTER. SC080410035 
8 



BTXT. ALO. • A8. • AAODGA 3FAA1CGA4KBA 1CAG0EGS, 

9 Y9 Y9 Y9 9ZQ Q-Y OZY 8-Y O-Q-ZZ 

9999 0 99Z 



4KAL00G&4KAM0DGA3DKB 
8-Y-ZZ 8-9-ZZQ 8 9 
9 9 9 9 9 



1E1ABEADAHAE80410019 
Y Y8QY9YZ9- 
999 9 



BTXT. APF. . AW.. AAPE.L 
9 Y9Y Y9 Y9 
9 9 9 



OOP.DAT AADAROUTINE.B 
YOY 
9-9 



YPASSEDAGAAAGG. 

Y9YYY9Q 
9 999 Z 



.80410036 



BTXT. AMY.. A8. 
9 Y99 Y9 
9 9 

BTXT. AM— A8. 
9 Y9 Y9 
9 9 

BTXT. AMH. . AS. 
9 Y9- Y9 
9 9 

BTXT.AM0..A8. 
9 Y9- Y9 
9 9 



. AAKG1U 0.BEABAAAAB1 1MAB1AGA 

Y9 9 8 - 8QY99Q90- 0-9 QZQ 

9 9 999 Z - Z 9 

•AAA. 17 GA4BB0.810G04HBA1CB0 

Y9- ZQ R8- 9 OZ Z-Y 08- 

9 9 09 9 

» AA1AA. 7Y&.0HKA0H1DBEADAHAK 

Y9 YZ 9 Z Y Z 88QY9YZ9 

9 9 999 9 

. AA18GA 50B31JGA5DB21JAJ 18GA 

Y9 9ZY 9- ZZQ 8- Z-Y 9ZQ 

9 9 9 9 9 



4DB0.UDAG11G63FG03D 
R8- 9 0-Q 9Z QZ 8 
9 Z 0 9 

-81DB0AT73H&JH0EF64H 
9 08-Y9 8R Z-8RZ 0 
9 9 9 

KCOHOHDAOAE. 4F AAODGA 
9-Z ZQY&YZ Q-Y 9ZQ 
9 9 0 9 

5DB11JKF1X70KG140.be 
8- Z 9 8 9 8- 8Q 
9 9 99 



EA4DBEAAA7AB80410020 
ZQ -8QY99 9Q 
Z 999 0 

FA1EG03DKB1B80410021 
-9 8Z 8 9 Y 
9 9 

5M&. 18301 J AA80410022 
Z 9- Z-Q 
Z 

ABA. AOBO. 1 1A80410023 
Y99 9Y8- 9 
9 99 



BTXT. APO. • A8. . AAAAAA 
9 Y9- Y9 Y9YYYY 
9 9 9 9999 

BTXT . AQH. . A8 . . AAHAAA 
9 Y99 Y9 Y99YYY 
9 9 9 999 



BTXT. AQ. • 
9 Y9 
9 

BTXT. AQH. 
9 Y9R 
9 0 



•A8.. AAAAAA 
Y9 Y9YYYY 
9 9 9999 

.A8..AA84QG 
Y9 Y9 89Q 
9 0 9 9 



AAAAAAAAAAAAAA AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
999999999999 9999999 

AAAAAADAAAAAAAAABAAA 
YYYYYY9YYYYYYYYY9YYY 
999999 999999999 999 

AAA AAA AAAAAA A AAAAAA A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AB0DGA8BB0APEMLAAAJA 
-9 9ZY Y8-Y8Q88Y-QZY 
9 9Z999 9 



AA. AAAAAAAAAJA AAAAAA 
YY YYYYYYYYYYYYYYYYY 
99 99999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYY9YYYYYYYYYYYYY 
999999 9999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

GA8BAGBA1DBE ABASBUBE 
ZY Q88ZY 88QY9Y 988Q 
99 9 999 9 999 



AAAAAA AAAAAA80410037 

YYQYYYYYYYYY 

999999999999 

AAAAAA AAAAAA80410038 

YYYYYYYYYYYY 

999999999999 

AAGFLEA. JFGA80410039 
9YQQ8Q- Z-ZY 
9ZZ99 

ABAWBABA7DA.80410040 
Y9Y 9 Q-Y Q- 
9 9 Z 9 



BTXT. ANH. • A8. • AAG05M BO./ 1AG05MPG1414EA0A 

9 Y99 Y9 Y9Z Z 8- 9 Z Z 9 8 8QYSY 

9 99 9 9999 



G.5UG05MG0520G140.AG 

Z 8Z£ 8Z 9 9 8 Q 

9-9 9 Z 



1 AG&5BAD1 • G080410024 
ZZ 8-8 Z£ 
9 



BTXT.AQA. 

9 Y9Q 
9 0 



,A8.. AAODGA 
Y9 Y9 9ZY 
9 9 



8BEA66LDH00WAAEA6A0H 
QZY 88YZ£ ZYQQ Y Z 
0 999 9Z9 9 



BA1EEA2YEM13G-DBAAEA 
-Y 8ZQ -9 9Z Q-ZYQQ 
9 0 Z 9Z9 



GA0HH00SBB1E80410041 
Y ZZ£ -9 8 
9 



BTXT. AN.. 
9 Y9 
9 



.AS. 

Y9 
9 



BTXT.ANH..A8. 

9 Y9R Y9 
9 0 9 

BTXT. ANA. .A8. 
9 Y9Q Y9 
9 0 9 

BTXT. ANY. .A8. 

9 Y9 Y9 
9 9 



> AA5BA3 1.GA5MBEAHA4AXB0.61A 
Y9 8- ZY 88QY9989 8- 9 

9 999 9 9 

» AAKG1U O.AJ 1EGA5FPA1818EA0A 

Y9 9 8 Y 8ZQ Q 9 QY£Y 

9 9 9 9 9 9 9 

.AA18AB 1FGA5FEA4DAV 17G&5UAG 
Y9 -9 QZY ZQ — Z -Q 

9 Z Z Z 

. AA1ABE A0AHAEBEAHABAKB01MAB 

Y9 Y8Q Y9YZ9-8QY99Q9Y- 0-9 

9 99 9 9 999 Z 



G05MKC0H1 YG3EA0AG05M 
Z Z 9 Z 99 QY£YZ£ Z 
9 9- 

G.5DG05DG0500A180DG0 
Z QZ£ YZ 0 9 -ZZ 



1GG&5UAS1FG&5UAD1FG0 
QZ -8 QZ -8 QZ£ 
Z Z 9 Z 

1FGA6DB0.61DKF1 B7/BE 
QZQ 88- 9 0 9 Q 88Q 
Z 9 99 0 99 



G04AAA0DGA3F80410025 
Z Q-Y 9ZQ Q 
0 9 0 

5DKG1B1U0A1F80410026 
Y 9 Q 8 9 Q 
Z 9 Z 

5UHJ1DGCKB1E80410027 
-8 99Q 9 Y 
9 Z 

AAA7AGA.17GA80410028 
Y99 9Q- ZQ 
9 0 9 



BTXT.AQY. 

9 Y9 
9 

BTXT.AJJ. 

9 Y8Y 
999 

BTXT.AJH. 

9 Y8R 
99 

BTXT. AJA. 

9 Y8Q 
99 



.A8..AAEA2Y 
Y9 Y9ZQ 
9 9 0 

• A8. • AA1EGA 
Y9 Y9 8ZQ 
9 9 9 

• A8. • AA80KA 
Y9 Y9 £ Y 
9 9-9 

. A8. . AAAB1E 
Y9 Y9-9 8 
9 9 



EM13G-DBH00WAA7SKA8D 
-9 9Z Q-Z6 ZQ 8 8 Z 
Z 9 

80KA8E1AKA8F18KA8G17 
&YZQYZ YZ 
- 9 Z 9 9 

8B1 AKA8C17EJ9HKA8D70 
8QY8 ZY0Y8- 
Z 9 9 

H00WGA9JH00SKB70EDDE 
Z& ZY YZ£ 9 -QR-Q 
Z Z 



AAAAD8PH8E8EKA8E8D&A 
QYZYQ 9 Z Z Y Z Z Y 
9 9Z 9 9 

EJ9HKA8H70AAEASA0HBA 
ZY 0 Y Z -ZYQY Y Z-Y 
9 9Z9 9 9 

KAAA8DAI ABAA8DNAG-8D 
8QY ZZ-Y8ZY Z9QZ Q 
9 9 99 9 Z 

1EEA2YAA1EGA80AG7KGA 
8ZQ -9 8ZQ £-Q ZQ 
0 9 - Z 9 



0HBA1EEA2YAA80410042 
Z-Y 8ZQ -9 
9 0 

1EEA2YAA1EGA80410043 
8ZQ -9 8ZQ 

0 9 „ 

G09KAAEH6.A0H80410044 
Z YZYQ9 Y Z 
9 9Z 9 

9BG09YAG7JGA80410045 
Z -Q ZQ 
Z 9 



BTXT. ADJ.. AM. 
9 Y9Y Y8 
9 9 99 



► AA6UB0 .51DG03DB0-51DB0AT73 
Y9 88- 8 OZ 88- 8 08-Y9 8 

9 99 9 99 9 9 9 



G043. 
Z 0 



.80410029 



BTXT.AJH. 

9 Y8 
99 



. A8 . • AA9YKB 
Y9 Y9 9 
9 9 



2K21AB1EGA9FKB2K2VB0 
9 9-9 8ZY Q 9 9 88- 
9 99 



DT2BG08DGBAA7SBA7GAA 
Z8 9Z Q9QZQ 8-Y QZY 
9 Z Z 9 9 9 



81AA7ZBAAAAJ80410046 
8ZQ -YQYZ9 
9 9 999 



BTXT. A06. . A8 . . AAADOO B0AS70H07AE07AGA6QA . 

9 Y98 Y9 Y9QQ 8-Y8 £R£ QR& QZY Z- 

9999 99-Z2 



0DGA6DHD00KC0H1 YG8 A. 
9ZQ R-Q 9 Z 99 - 
9 0 



0DGA6DG06M&J80410030 
9ZQ 8Z 8 Y 
9 



BTXT. AKA. 

9 Y8Y 
999 



. A8 • . AAABNA 
Y9 ■ Y9Y89Q 
9 9 99 9 



G-9BBA8FKA8DAAG0B2AB 
Z Q-Y 8 8 ZQYZ Q8-9 
Z 9 9 9 Z9 



8HGAB0AB8DGAB0KA7F8D 
ZZQQY-9 8ZQQY Y Q Z 
9Z9 9Z9 9 9 



MA7F8AGABBG080410047 
Y Q 8ZYQ0Z 
9 9 Z- 



BTXT.A0F..A8. 
9 Y9R Y9 
9 0 9 



.AA1AKA OY 1BBA0MMA0M 1C&01AKA 

Y9 Y Y 9-Q Y Y Y 9 & Y 9 

999 Z999 9 



001ANA1A7BG06KKA007B 
Y Y 9 Y QZ- 0 9 Y Q 
9 9 9 9 



£A1 AKC241 AKP8041003 1 
Q Y 9 9 Y Y 
0 9 9 



BTXT. AK8. 

9 Y89 
99 



.A8..AACFAG 

Y9 Y9Q8-Q 
9 9 Z9 Z 



8FGAB0BG8FAAAAA0AAAA 
8ZQQ9-Q 8ZYY9Z6YYZQ 
9Z Z 9-9 9 



8WA J8WF AAADABFGABBDA 
9ZY 9-9Q8ZYQQZYQRZY 
9 99 Z ZO 



BKGABBDAB0GA80410048 

QYZYQRZYQYZQ 

Z ZO Z 9 



BTXT.A00..A8. 
9 Y9Y Y9 
9 9 



. AA2824 AAOY&AOHKAOH 1DKC0H0H 

Y9 99 ZQ QZYZ8 9-Z Z 

9 9 



DA0AEA0AG06BAA0DGA60 
QYCYQY£YZ£ Y-Y 9ZQ & 
9 9 9 9 - 9 9 



A.0DGA6BG06M80410032 
- 9ZQ ZZ 8 
9 



BTXT.AKO. 

9 Y8£ 
99- 



» A8. • AABHDF 
Y9 Y9Q0-Q 
9 9 11 



AANGGABOAHAALAEQGOBB 
Q890ZYQ9Z0YY8QQ9Z QR 
99 Z 9 9Z Z 



A07SNBA0AAGABKLJEQG0 
Z£ 89RZ&YYZYQ08YQ9Z 
0-9 Z 9Z 



BFAAJEFA7GG080410049 
QR-YY9-9 QZ 
Z 99 9 



BTXT. AOW. . A8. . AABOAA 7EA. 0DGA68EA66AJ JLGA 

9 Y9 Y9 Y98-YQ Q- 9ZY ZY 8-YZ0ZQ 

99999 999 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



7MAA7J&A0HH00SBB1EEA 
8ZY Y Y ZZ& -9 8ZQ 
9 9 9 9 0 



2YBCB4G07MB080410033 
8Q99Z 98 
99 9 



ID F804-1 
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BTXT. AKQ. 
9 Y80 
99 



» A8. • AABFAA 
Y9 Y9QR-Y 
9 9 ZO 9 



JDAAJHA0AHAA7VEAAAG- 
Y9-YY9Z&Y9ZY -YYYZ 
9 99 -9 9 9 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



BFAHABF0BBG0C&AD8HGA 
QYZ0Y8ZEQQZ Q -9 ZZQ 
Z9 99 -ZO Z 9 



CFAD8PGABWAD80410050 
Q8-9 9ZQQ -9 
Z9 9Z 
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BT XT, AKS . • A8 . . AA8 DG A 

9 Y88 Y9 Y9 ZZY 
99 9 9 

BTXT.ALQ..A8..AAAA8A 

9 Y89 Y9 Y9ZY Q 
99 9 9 9 Z 

BTXT.AL&..A8..AAB0DG 

9 Y8 Y9 Y98-Z9 
99 9 9 9 

BTXT. ALH. • A8. . AAEOGO 
9 Y80 Y9 Y9Q8Z 
99 9 9 Z 

BTXT. ALO. . A8. . AAAA73 
9 Y8£ Y9 Y9-9 
99 9 9 

BTXT.AL8..A8..AADGEG 

9 Y8 Y9 Y9Z9QY 
99 9 9 Z 

BTXT.AMA..A8..AA8LGA 
9 Y8Q Y9 Y9 8ZY 
99Z 9 9 9 

BTXT.AMQ.. A8.. AABODG 
9 Y8Z Y9 Y98-Z9 
99 9 9 9 

BTXT.AMJ..A8..AAAJ0D 
9 Y8Y Y9 Y9-Y 9 
99 9 9 9 

BTXT. AMQ.:. A8 . . AAA3AB 

9 Y8 Y9 Y9Z9Y9 
99 9 9 9 

BTXT. ANA. . A8 . . AAFAK4 
9 Y8Q Y9 Y9 Y99 
999 9 9 9 

BTXT. ANH. . A8 • . AAS ING 

9 Y8Z Y9 Y9 
99 9 9 

BTXT. ANA.. A8..AA5ERR 
9 Y8Y Y9 Y9 
99 9 9 

BTXT. ANH. . AN. . AA3ERR 
9 Y80 Y8 Y9 
99- 99 9 

BRLD. • • . • . AA. ... A AAA 

9 YQ Y9Y9 

9Z 9 9 

BEND. 

9 

BOAT 

9 



CFFB8EG0CBAB8DGABFAB 
Q8-9 8Z Q8-9 ZZQQQ-9 
Z9 Z9 9ZZ 

NAG-BDG0CWAA7GGAC2G0 
9QZ Q8Z Q9-9 QZQQ9Z 
Z9 Z 9 9Z 

EGGODJ AA7Z AAAAGACDA J 
QRZ QYZQ -9QYZYQRZ9 
Z Z 9 99 ZO 

DJ AB7ZGACJB0DGENG0C0 
QY-9 ZYQY8-Z9QZZ QY 
Z 19 11 

GACFB0DGE2AB7EGACSB0 
ZYQY8-Z9Q8-9 QZYQ88- 
Z99 Z 119 

G0DFAA8GGADFB0DGEFAB 
Z Q8-9 9ZYQ88-Z9Q--9 
Z9 Z99 Z 

D.B0DGELG0DFAA8LGADF 
Q 8-Z9QYZ Q8-9 8ZYQ8 
Z 9 Z Z 9 Z 

E0AB8XGADAB0DGEGG0DF 
QL-9 8ZYQY8-Z9Q Z QY 
Z 9 Z 9 Z Z 

GA6M AA8DAA7SK A8DAABE 
ZY YZY ZZQ 8 8 ZQY8Q 
9 9 9 9 9999 

N2G-DBB0AN8GAJABNAG- 
99Z QY8-Y8 8Z9Y89QZ 
Z99 9 99 9 

J AAMAAAB2821. SCAN/25 

YYYZYYY8 
999 9999 

. PROBLEM A AGERR.030ER 

YYQ 
99Z 

.036ERR.037ERR.038ER 



.044ERR.045ERR.046ER 



AAANAAANAAA5AAAZAA?/ 
8YQ93YQZ8YQ88YQ 8Y99 
999 999 999 999 99 



8AGACFAA8VGACFG0CBFA 
8ZYQ8-9 9ZYQ8Z Q8-9 
Z9 Z9 Z9 

D JAA81BG7DAA7ZABAAGA 
QYZY 8-Q QZQ -9QYZY 
1 9 9 1 9 99 

ABNAG-C0G0CDAG85G0CF 
Y89QZ Q8Z QO-Q 9Z6QY 
99 9 Z Z Z Z 

AA7ZGAC0B0DGEUAB73GA 
-9 ZYQY8-Z9Q8-9 ZY 
Z 9 Z 

DGEAG0C0AA7EGAC0B0DG 
Z9Q0Z QY-9 QZ YQY8-Z9 
1 19 1 199 

8JGAD JB0DGEEG0DWAA8 J 
9ZYQY8-Z9QQZ Q8-9 9 
Z99 Z Z9 

B0DGEBAB8VG AD-BODGE I 
8-Z9Q0-9 9ZYQ 8-Z9Q0 
9 Z- Z 9 Z- 

AA8XGADFB0DGEFG0D JBO 
-9 8ZYQY8-Z9QYZ QY8- 
9 Z 9 19 1 9 

ABHDHHA J8&AA8HA. 8GKA 
Y89Z9RZY -ZQ RZ 8 9 
99 9 1 

DABBG06MAAQD JAABBAQA 
QQ8QZ Y9Y9ZYYY9 Y98 
Z099 9 9 999 9 

40T. CHANNEL. REG. FLT B 

8 



R.031ERR-032ERR.033E 



R.039ERR.040ERR.041E 



R.047. 



AAP/AAP8AAM9A ANAAANA 
8Y988Y998Y8 8Y898Y88 
99 999 999 999 9999 



7GKAAA8EAI AB80410Q31 
Q YQ8 8Z-Y8 
9 9 9 99 

CKAJABNAG-C680410052 
Q8Z9Y89QZ Q8 
Z 99 9 Z9 

AA85GACFB0DG80410053 
-Q 8ZQQY8-Z9 
9 9 9Z 9 

C0B0DGECG0CF80410054 
QC8-Z9QRZ QY 
Z 9 ZO Z9 

EHAB8GGADAB080410055 
QO-9 9ZYQY8- 
Z Z99 

GADWBQDGEMAB80410056 
ZYQ88-Z9Q0-9 
Z99 Z 

G0DWAA8VGADW8O41O057 
Z Q8-9 9ZYQ8 
Z Z 

DJE3BC7DG06M80410058 
Z8Q8-0 QZ Y 
9Z9 9 

.AAAB..BADAC8Q410059 
YQY- 9ZZY9 
9Z9 9 

JAAAFAPO J AAC80410060 
YYY9 Y9-YYY9 
999 9 999 

UFFER. ADDRES80410061 



RR. 034 ERR. 0380410062 



RR.042ERR. 0480410063 



80410064 

HANJ 80410065 

9Y89 
99 

80410066 

-.80410067 

80410068 
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BDAT. 

9 



BESD. 

9 



. AA..AAXF80 
YQ Y9 
99 9 



BTXT. AAN.. AC. AAAJ4. 
9 YQ9 Y9 Y9Y89 
99 9 9 99 



41..0AAA.AFJ. 

YQY Y88 
999 99 



.80410069 



.80410070 



.80410071 



BTXT.APO. . A8 . . AAAAAA 
9 Y9- Y9 Y9YYYY 
9 9 9 9999 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAAA AAA A AA80410072 
YYYYYY YYYYYY 

999999999999 



BTXT.AQH..A8. 
9 Y99 Y9 
9 9 



BTXT.AQ.. 

9 Y9 

9 



,A8. 

Y9 
9 



.AAAAAA AAAA AAA AAAAAA& AAAAAA 

Y9YYYY YYYYYYYYYYYYY YYYYYY 

9 9999 9999999999999 999999 

> AAAOAA AAAAAAHAAAAAAAAAA1AA 

Y9Y YY YYYYYY9YYYYYYYYYY YY 

9 9 99 999999 9999999999 99 



AAJAAAAAAAAAA— AAAAAA 
YYYYYYYYYYYYY YYYYYY 
9999999999999 999999 

AAAAAADAAAAAAAAAA2 AA 
YYYYYY9YYYY YYYYYY YY 

999999 9999999999 99 



AAAAAA AAA AAA80410073 

YYQYYYYYYYYY 

999999999999 

AAAAAABAAA AA80410074 
YYYYYY9YYYYY 
999999 99999 



BTXT. AQH..A8. 
9 Y9R Y9 

9 0 9 

BTXT.AQA..A8. 

9 Y9Q Y9 
9 0 9 



.AAAAAA A3AAAAAAAAAAAAAAAAAA 

Y9YYYY Y YYYYYYYY9YYY YYYYYY 

9 9999 9 99999999 999999999 

.AAAAAA AAAAA6AAAAAAAAAHAAAA 

Y9YYYY YYYYY YYYYYYYYY9YYYY 

9 9999 99999 999999999 9999 



A4AAAAAAAAAJA AAAAAA A 
Y YYYYYYYYYYYYY YYYYY 
9 999999999999999999 

AAA AA7 AAAAAA AAADAAAA 
YYYYY YYYYYYYYY9YYYY 
99999 999999999 9999 



A5AAAAAAAAAA80410075 
Y YYYYYYYYYQ 
9 9999999999 

AAAAA8 AAAAAA80410076 
YYYYY YYYYYY 
99999 999999 



BTXT.AQY..A8. 

9 Y9 Y9 
9 9 

BTXT-AJJ.. A8. 
9 Y8Y Y9 
999 9 

BTXT. AJH..A3. 
9 Y8R Y9 
99 9 

BTXT. AJA..A8. 
9 Y8Q Y9 
99 9 



. AAAAAB AAAAAA AAA9AAAAAAAAA A 

Y9YYY9 YYYYYYYYY YYYYYYYYY9 

9 999 999999999 999999999 

.AAAAAA AADAAAAAAAAAAAGABAGF 

Y9YYYY YY99YYY YYYYY YY9Y9YQQ 

9 9999 99 9999999999 9 9ZZ 

. AA91AB 0DGA9QB0APEDA.0DGA9D 

Y9 9-9 9ZY Z8-Y8Q0- 9ZY R 

9 9 9Z 0 

.AASAOH BA1 EH00WEA2YAA 1EGA9B 

Y9 Y Z -Y 8Z*L ZQ -9 8ZQ Z 

9 9 9 0 9 



AAAAAAAAA. AAAAAAAAAA 
YYYYYYYYY YYYYYYYYYY 
999999999 9999999999 

EA7DGA9BB0A. 91GA9FBA 
-Y QZY Z8 - 9ZY 8-Y 
9 9 9 

EA66AA8JLDKL8EAAAAEH 
ZY 8ZQ 88Y 9 9QYZYQR 
9 999 9 9Z 

KA8F1AKA8G18KA8H17E J 
Y 9 Q Y 9 Y 9 ZY 

9 19 9 



AAAAAA AAA 1 AA80410077 
YYYYYYYYY9YY 
999999999 99 

7DEA7DG-6MF. 80410078 

Q-Y QZ Y- 
9 9 

PG8F8FPF8A8A80410079 
9 9 9 9 Q Q 
9 9 

BWKA8A8DAAEQ80410080 
Q8 Y 8 9ZYQZ 
Z 9 9 9Z 



BTXT.AJH..A8. 

9 Y8 Y9 
99 9 



.AA&AOH BA1EEA2YAA1EGA9BKA8C 
Y9 Y Z -Y 8ZQ -9 8ZQ Z Y 8 

9 9 9 0 9 9 9 



1AKA8D17E JBWKA8E8DAA 
Q Y 8 ZYQ8 Y 8 9ZY 
Z 9 9 Z 9 9 9 



E-&A0H8A1EEA80410081 
Q Y Z-Y 8ZQ 
Z 9 9 0 



BTXT. AKA. 
9 Y8Y 
999 



► A8. 

Y9 
9 



BTXT.AK8..A8. 

9 Y89 Y9 
99 9 

BTXT. AK0..A8. 
9 Y8£ Y9 
99- 9 



• AA2YAA 1EGA9BKA8A1AKA8J17FB 

Y9 -9 8ZQ Z Y Q Q Y 9 -9 
9 9 9 9 Z 9 

.AAAA1E GA9BKA8M 1AKA8N17EJBW 

Y9-9 8 ZQZY9QY9 ZYQ8 

9 9 9 Z 9 Z 

• AAEHE A OHHOOWAB 1EGABFH00SB0 

Y9QR Y ZZ£ -9 8ZYQ0Z& -£ 
9 ZO 9 Z 



1EE JBWKA8K8DAAE0&A0H 
8ZYQ8 Y 9 9ZYQ& Y Z 
Z 9 9Z- 9 

KA808DKLAA8EAI AMAA91 
Y 9 9 9QY 9Z-Y9ZY 9 
9 9 9 9 

8DDE 1EEA2YAA1EGA9BA0 
9-Q 8ZQ -9 8ZQ Z-& 
Z 0 9 



BB1EH00SEA2Y80410082 
-9 8Z6 ZQ 
0 

NAG-92G0BBAA80410083 
9QZ 8Z QYZY 
Z9 9 

8DGABKG0BHGA80410084 
9ZQQYZ Q ZY 
9Z Z 



BTXT.AKQ..A8. 

9 Y80 Y9 
99 9 



► AABHKB 2K21 AB1EGABFKB2K2VB0 

Y9Q 9 9 9-9 8ZYQQ 9 9 88- 

9 Z ZO 99 



. S2BG092GBAA8 JA J9NKL 

8 9Z 89QZQ 8ZY 8 9 

9 Z 9 9 9 9 



8EAAAA8AGACF80410085 
9 QY-9 8ZQQ9 
99 9 92 
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BTXT. AKS. . A8. . AAAA8E 
9 Y88 Y9 Y9-9 8 
99 9 9 9 



BTXT. ALQ..A8. 

9 Y89 Y9 
99 9 

BTXT.AL&..A8. 

9 Y8 Y9 
99 9 

BTXT.ALR..A8. 
9 Y80 Y9 
99 9 

BTXT.ALO.. A8. 
9 Y8£ Y9 
99 9 

BTXT.AL8..A8. 

9 Y8 Y9 
99 9 

BTXT.AMA..A8. 

9 Y8Q Y9 
99Z 9 

BTXT.AMQ..A8. 

9 Y8Z Y9 
99 9 

BTXT. AM J.. A8. 
9 Y8Y Y9 
99 9 



» AAAJ9N 
Y9ZY 8 
9 9 9 

. AAEGGO 
Y9QQZ 
9 ZO 

» AAGADF 
Y9ZYQ9 
9 Z 

.AAGACK 
Y9ZYQY 
9 Z9 

• AAGOOB 
Y9Z QQ 
9 Z9 

» AAD4B0 
Y9Q88- 
9 Z99 

. AADDBO 
Y9QR8- 
9 Z09 

• AA80GA 
Y9 9ZQ 
9 9 



BTXT.AMQ. 
9 Y8 
99 

BTXT. ANA. 

9 Y8Q 
99* 

BTXT. ANH. 

9 Y8Z 
99 

BTXT. ANA. 
9 Y8Y 
99 

BTXT. ANH. 
9 Y80 
99- 

BTXT.ANO. 
9 Y8 
99 

BTXT.AOY. 

9 Y89 
99 

BRLO. ... • 
9 



• A8«. AACQBG 
Y9 Y9Q0-Q 
9 9 Z Z 

. A8. • AAAAA3 
Y9 Y9QYZ9 
9 9 Z9 

.A8..AAEA66 

Y9 Y9ZY^ 8 
9 9 9 

• A3. • AAAAAM 
Y9 Y9YYY9 
9 9 999 

.A8..AAERR. 
Y9 Y9 
9 9 

.A8..AAERR. 
Y9 Y9 
9 9 

• A1..AAERR. 
Y9 Y9 
9 9 

.AM....AAAA 

Y8 Y9Y9 
99 9 9 



GACFAA8KGACFAA8EGACF 
ZQQ9-9 9ZQQ9-9 8ZQQ9 
9Z 9Z 9 9Z 

KL8E AAAB8AGACBNA8E8B 
9 9QY-9 8ZQQQ Y 9 8 
99 9 9Z0 9 9 

DFB0DGEFG0DBAD8EGACB 
Q08-Z9Q Z QQ-9 8ZQQR 
Z-9 Z Z9 9 9Z0 

AD8AGACAB00GECG0DBB0 
-9 8ZQQQ8-Z9QQZ QQ8- 
9 9Z09 Z9 Z99 

AB8EGADSNA8E8LGACSB0 
-9 8ZQQ8 Y 9 9ZYQ88- 
9 9Z9 9 Z 9 

B0DGE7G0DBAB8KGADJAD 
8-Z9Q Z QQ-9 9ZQQY-9 
9 Z Z9 9Z9 

DGF0G0DBAD8KGADDB0DG 
Z9Q8Z QQ-9 9ZYQ-8-Z9 
Z9 Z9 Z 9 

DGF/ GOCQ AD80GADBNKGA 
Z9Q9Z Q0-9 9ZQQY99ZY 
Z Z 9Z 

DAB0DGFXG0DBB0DGF6BD 
QQ8-Z9Q8Z QQ8-Z9Q9-0 
Z09 Z9 Z99 Z 

7DAJ0DGADKG0E. AA8EKL 
Q-Y 9ZQQYZ Q ZQ 9 9 
9 9Z9 Z 9 

ABNFG-EUADABGOEDB..B 
Y99ZZ Q9ZZY9Z Q8- 9 
9 Z 9 Z9 

G06M0AEAG0D0AAQEJAAA 
Z Y8QQYZ QY9Y99YYY9 
9 9Z Z9 9 999 

2821.SCAN/2540T.C0NT 

3 



004ERR.005ERR.006ERR 



012ERR.013ERR.014ERR 



020ERR.021ERR.022ERR 



AAANAANJ AAN/AAN/AANA 
8YQ98Y888Y8 8Y888Y8R 
999 999 999 999 9990 



NKGACMOAEAGOBKSODGEL 
99ZYQ98QQYZ Q 8-Z9Q0 
Z 9Z Z 9 Z 

GAC4A88EGAC-AD8EGACF 
ZY08-9 8ZYQ -9 8ZQQR 
Z 9 Z 9 9Z 

BODGEEGODF BODGE MGODB 
8-Z9QYZ Q08-Z9Q Z QQ 
9 Z9 Z-9 Z Z9 

DGESG0DBBE7DG0DFB0DG 
Z9Q Z QQ-0 QZ QQ8-Z9 
Z Z9 Z99 

DGEZGODFBODGFCGOCQAB 
Z9Q Z Q08-Z9Q8Z QO-9 
Z Z-9 Z Z 

8KGADFB0DGEFG0DBB0DG 
9ZYQ88-Z9QQZ QQ8-Z9 
Z 9 ZZ Z99 

FLG0DBNA8E8LGADKB0DG 
Q9Z QQ Y 9 9ZYQZ8-Z9 
Z Z9 9 Z 9 

DFOAEAGOCMBODGFYGODB 
QQ8QQYZ Q88-Z9Q9Z QQ 
Z9 9Z Z99 Z Z9 

7DG0DFAB80GAD0B0DGF5 
QZ QQ-9 9ZQQ-8-Z9Q8 
Z9 9Z 9 Z9 

8EAABEAKHEGSA-7LAA8B 
9QY8QY99998Z YZY 9 
99999 9 9 

ADACNAG-EDB0A470NKG- 
ZZY99QZ Q88-Y9 -99Z 
9 Z Z99 

VAQFJAABBAQB JAAABAQL 
9Y98YYY9 Y98YYY9 Y99 
9 9999 9 9999 9 

R0L.PR0GRAMERR.001ER 



. 007ERR. 008ERR. 009ER 



•015ERR.016ERR.017ER 



•023ERR.024ERR.025ER 



HANI. 

9Y88 
99 



BC7DG0DFAA8J80410086 
-0 QZ QQZQ 8 
Z9 9 9 

AH8DGACFB0DG80410087 
-9 8ZQQR8-Z9 
9 9Z 9 

AB8EGACFAD8E80410088 
-9 8ZQQQ-9 8 
9 9Z 9 

FBG0DBNA8E8B80410089 
QRZ QQ Y 9 8 
Z Z9 9 9 

8EGACDB0DGE080410090 
8ZQQQ8-Z9Q 
9 9ZZ9, Z 

FEG0DBAB8KGA80410091 
Q9Z QQ-9 9ZY 
Z Z9 

FKG0DFAB80GA80410092 
Q8Z Q0-9 9ZY 
Z9 Z- 

NA8E8LGADFAB80410093 
Y 9 9ZYQQ-9 
9 ZO 

GODBBODGFDG080410094 
Z QQ8-Z9QZZ 
Z99 Z 

AA7SA.70KA.A80410095 
ZQ 8Z - 9 Y 
Z 9 

ECBBA.00GAED804I0096 
Q 8Q- 9ZYQ8 
Z 99 Z 

JAAAFAQDJ AAA80410097 
YYY9 Y99YYY9 
999 9 999 

R.002ERR.00380410098 



R.010ERR. 01180410099 



R.018ERR.0 1980410100 



R.026 80410101 



.80410102 



BEND. 
9 

BOAT. 

9 

BOAT. 
9 



.80410103 

.80410104 

.80410105 
•80410106 
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r Ml 



001015 001908 



001700 

001702 
001702 
001704 
001706 
001708 



DATE 
EC 



001000 



00 

07 00 
07 00 
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ooooooooooooocroo 



15JUL65 
12426$ 



17MAR66 
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8051 TITLE F8051 BUFFER ADOR FLT -ROUTINE OVERLAY 03t 
*»•**»*•*•**•••**»****«*•***•***•*****»***•*••«»»**»•«***•***««**••*««* 

* ♦ 

* MODIFICATIONS * 
» 1. BUFFER ADOR FLT -ROUTINE OVERLAY 03- « 
« THIS ROUTINE WAS NOT MODIFIED. « 

* 2. READER TRANSLATOR FLT -ROUTINE OVERLAY 04- * 

* THIS IS A NEW ADDITION TO THIS PROGRAM PACKAGE. * 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* 1. HARDWARE * 

* 2821 CONTROL UNIT WITH 2540 ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 124265 * 

* 2. PROGRAM « 

* NONE * 

* * 
*»#*#»*#**#**»«********»♦«*#»»#*»«*»*«*#»»» 

Xl:8051 START 4096 
USING *,15 

♦»*«***♦»*#»#*#*«♦*»***#*#»»•»*#*»•#» **»»***«#»««^ 

* SECOND OVERLAY - ROUTINE 03 

» RESIDENT LABELS ADDRESSED BY OVERLAYS 



*«»*•*»* 
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001004 


SNSW 
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SEC5T&4 


001040 


CSW 


EQU 


SECST&64 


001048 


CAW 


EQU 


SECSTS72 


0010E0 


UNIT1 


EQU 


SECSTG224 


0O10E2 


UN1ADR 


EQU 


SECST&226 


0O10E4 


UNIT2 


EQU 


SECST&228 


0010E6 


UN2ADR 


EQU 


SECST&2iO 


00112C 


SI0VR3 


EQU 


SECST&300 


001134 


SI0VR4 


EQU 


SECSTC308 


00114D 


SIOSWS 


EQU 


SEC ST&333 


0011F8 


STATSV 


EQU 


SECST&504 


0011FA 


CSWAG 


EQU 


SECSTS506 


001231 


UAPU 


EQU 


SECSTS561 


00112C 


CSWSAV 


EQU 


SECST&300 


00114C 


CAWKEY 


EQU 


SECSTG332 


0011F7 


SENSE 


EQU 


SECST&503 


00122D 


UARD 


EQU 


SECST&557 


0016EC 


EXIT 


EQU 


SEC Sta 1772 


0016E6 


EXITBY 


EQU 


SECSTC1766 


00179C 


SCHNUM 


EQU 


SECST&1948 


001234 


SCPDAT 


EQU 


SEC ST&564 


00163E 


SCPROO 


EQU 


SECST&1598 


0Q12E8 


SIO 


EQU 


SECST&744 


000048 


HCAW 


EQU 


72 


000040 


HCSW 


EQU 


64 


001202 


MESS1 


EQU 


SECSTG514 




••*•**•*•****•****»•«*« 


001015 




ORG 


SECSTG21 






DC 


AL31RTN03) 


0017DO 




ORG 


SECSTG2000 



»••«*••«•« 



INITIAL PSW STARTING ADOR FOR RTN 03 



»*««*«««»*««#**** 



*»♦*»*♦**♦**♦**«*** **#*»**»*»»»*»*»***»**^ «****•*•*»»** 

* VARIABLES FOR ROUTINE 03 - DOUBLE WORD BOUNDARY 

**«***«*«»«««********«»»«****««*•*#***«««#««*«***««»««*« 
DC X'OO* 

CNOP Of 8 ALIGN ON DOUBLE WORD BOUNDARY 

BCR 0,0 
BCR 0,0 
BCR 0,0 
ERNUM DC XL8»00* 

»•»*##*♦»##***»*•**»*********«#»******«****♦**♦*»*«***** 

» VARIABLES aFOR ROUTINE 03 - WORD BOUNDARY 



•***«•*««•«»»** 



**»«»»«**#»**•• 
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P/N 840260 
PAGE IA 



0017E0 00000000 



001 7E4 OOOOOOOOOOOOOOOOOO 

0017ED 000000000000000000 

0017F6 000000000000000000 

0017FF OOOOOOOOOOOOOOOOOO 

001808 OOOOOOOOOOOOOOOOOO 

001811 OOOOOOOOOOOOOOOOOO 

00181A OOOOOOOOOOOOOOOOOO 

001823 OOOOOOOOOOOOOOOOOO 

00182C OOOOOOOOOOOOOOOOOO 

001835 OOOOOOOOOOOOOOOOOO 

00183E OOOOOOOOOOOOOOOOOO 

001847 00 

001848 0000000000000000 
001850 OOOOOOOOOOOOOOOOOO 
001859 OOOOOOOOOOOOOOOOOO 
001862 OOOOOOOOOOOOOOOOOO 
00186B OOOOOOOOOOOOOOOOOO 
001874 OOOOOOOOOOOOOOOOOO 
00187D OOOOOOOOOOOOOOOOOO 
001886 OOOOOOOOOOOOOOOOOO 
00188F OOOOOOOOOOOOOOOOOO 
001898 OOOOOOOOOOOOOOOOOO 
0018A1 OOOOOOOOOOOOOOOOOO 
0018AA OOOOOOOOOOOOOOOOOO 
0018B3 00 

0018B4 0000000000000000 

0018BC 00 

0018BD C5D9D940F0F5F140 
0018C5 ' C4C5E5C9C3C54OF0F0 

0018CE F040C4C9C1C740 

0018D5 C3D240D9C440C4C1E3 

0018DE Ci 

0018DF 406040D9C5E2C9C4E4 

0018E8 C1D340C3D6E4D5 

0018EF E340C9E240F0F0F0F0 

0018F8 40E2C8D3C440C2 

0018FF C540F0F0F2F0 



RESCNT DC 



XL4'00* 



WORK FIELD 



♦ VARIABLES FOR ROUTINE 03 - NO BOUNDARY » 

*«*•*•••*»««•*«•***«•»«•«»••*••*•*• !»*•*«••»*«»•*»*«•«•*•* ft *«*«**« •«»*«• 



DRDR DC 



XLIOO'O 9 



READER DIAGNOSTIC CK READ DATA 



RCSWAG DC 
DRPU DC 



XL8«G« 
XLIOO^O* 



READER CSW 

PUNCH DIAGNOSTIC CK READ DATA 



PCSWAG DC 
SWITCH DC 
ERRX DC 
LGMSG DC 

DC 

LGMSG1 DC 
DC 



XL8*0* 
X f 00» 

C»ERR 051 • 

C* DEVICE 000 DI AG « 

C*CK RD DATA* 

C« - RESIDUAL COUN» 

C«T IS 0000 SHLD B« 



PUNCH CSW 



»»••»•»*••*»#»•»»»•*»•••»••••#••*»#•#*«#*•• 



DC C'E 0020 • 

* ROUTINE 03 PREFIX * 

•»*♦•»»»*•♦**»#»*»»#**»••»*##»•#•#•»♦#*•****»»•»*••»»#•#»«»«*«•*••*»»•• 



001906 










CNOP 


0,4 


FULL WORD ALIGNMENT 


001906 


07 00 






BCR 


0,0 




001908 


03 






RTN03 


DC 


XL1»03« 


ROUTINE NUMBER 


001909 


00 








DC 


XL1«0« * 


FLAGS 


00190A 


FFFE 








DC 


X 9 FFFE * 


ADDRESS OF NEXT ROUT INE 












00190C 


95 83 


F 


79C 


IN1T00 


CLI 


SCHNUM, X* 83 • 


SEE IF SEARCHING FOR ROUTINE 03 


001910 


47 80 


F 


918 




Be 


EQUAL, INIT01 


BR IF YES 


001914 


47 FO 


F 


6EC 




BC 


ALWAYS, EXIT 


BYPASS THIS ROUTINE >. : . 


001918 


91 02 


F 


004 


INIT01 


m 


SNSW,X«02» 


WANT TITLE PRINTOUT - SEC SS 06 ON 


00191C 


47 80 


F 


926 




BC 


ALLOFF, INITIO 


BR IF NO 


001920 


OA DO 








SVC 


X'DO* 


PRINT TITLE 


001922 


80 








DC 


X«80« 


, , NORMAL OUTPUT 


001923 


IF, 








DC 


X»1F» 


31 CHARACTERS 


001924 


F DC A 








DC 


S( TITLE) 


ADORESS OF TITLE 


001926 


91 40 


F 


004 


INITIO 


TM 


SNSW,X«40 9 


WANT UTILITY ROUTINE ~ SEC SS 01 


00192A 


47 80 


F 


932 




BC 


ALLOFF, ADCKOO 


BR IF NO 


00192E 


45 80 


F 


63E 




BAL 


GR8, SCPROO 


BR TO UTILITY ROUTINE 










° * 


PERFORM TWO DIAGNOSTIC 


CHECK READS TO READER 


001932 


D2 01 


F 


234 F DE9 


* 

ADCKOO 


MVC 


SCPDAT (2) ,°R03K00 


CLEAR READ AREA 


001938 


02 61 


f 


236 F 235 




MVC 


SCPOATS2C985,SCPDAT£l ,» 


DATE 


15JUL65 




17MAR66 
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EC 
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00193E 


41 


10 


F 


080 








LA 


GR1,CRDCCW 


LOAD CCW ADDRESS IN SEC PREF CAW 


001942 


50 


10 


F 


048 






* 


ST 


GR1»CAW 


f 9 


001946 


48 


CO 


F 


0E2 








LH 


GRC t UN1A0R 


SET READER ADDRESS IN GR 12 


00194A 


92 


02 


F 


140 








MVI 


SlOSWSf X«02 • 


SET SIO PROGRAM SWITCHES 


00194E 


45 


BO 


F 


2E8 








BAL 


GRB«SIO 


BR TO SIO ROUTINE 


001952 


91 


CO 


F 


234 








TM 


SCPDAT, X«CO» 


WAS ANY DATA TRANSFERRED • 


3 001956 


47 


80 


F 


96A 








BC 


ALLOFF ,ADCK10 


BR IF YES 


1 00195A 


02 


02 


F 


212 


F 


220 


A0CK01 


MVC 


MESS1616I3) t UARD 


SET READER ADDRESS IN OUTPUT MESSAGE 


001960 


OA 


DO 












SVC 


X«DO« 


ERROR - NO DATA WAS TRANSFERRED BY 


001962 


44 














DC 


X«44* 


, , DIAGNOSTIC CK RD TO READER 


001963 


2A 














DC 


X«2A» 


42 CHARACTERS 


i 001964 


F 202 












DC 


SIMESS1) 


,, ADDRESS OF MESSAGE 


001966 


47 


FO 


F 


932 








BC 


ALWAYS. ADCKOO 


GO TRY AG A IN 


00196A 


D2 


01 


F 


234 


F 


0E9 


AOCK10 


MVC 


SCPDAT(2) ,R03KQ0 


CLEAR READ AREA 


001970 


02 


61 


F 


236 


F 


235 




MVC 


SCPDAT£2(98> ,SCPDAT£i 




1 001976 


45 


BO 


F 


2E8 








BAL 


GRBySIO 


BR*TO SIO ROUTINE s 


00197A 


9i 


CO 


F 


234 








TM 


SCPDAT, X«CO« 


WAS ANY DATA TRANSFERRED 


1 00197E 


47 


10 


F 


95A 








BC 


ALLON, ADCK01 


BR IF NO 


001982 


02 


63 


F 


7E4 


F 


234 




MVC 


DRDR(IOO) , SCPDAT 


SAVE READER DI AG CHECK READ DATA 


001988 


02 


07 


F 


848 


F 


1FA 




MVC 


RCSWAG(8) ,CSWAG 


SAVE READER CSW 



PERFORM TWO DIAGNOSTIC CHECK READS TO PUNCH 



00198E 
001994 
00199A 
00199E 
0019A2 
0019A6 
0019AA 
0019AE 
0019B4 
0019B6 
0019B7 
0019B8 
0019BA 
0019BE 
0019C4 
0019CA 
0019CE 
001902 
0019D6 
0019DC 



02 01 
02 61 
48 CO 
92 00 
45 BO 
91 CO 
47 80 
02 02 
OA 00 
44 
2A 

F 202 
47 FO 
D2 01 
02 61 
45 BO 
91 CO 
47 10 
02 63 
02 07 



234 F 0E9 
236 F 235 

0E6 
140 
2E8 
234 
9BE 

212 F 231 



98E 

234 F DE9 

236 F 235 

2E8 

234 

9AE 

850 F 234 
884 F 1FA 



ADCK20 MVC SCPDATC2) ,R03K00 

MVC SCPDATS2C98) t SCPDAT61 

LH GRC t UN2ADR 

MVI SlOSWStX'OO* 

BAL GRB,SI0 

TM SCPDAT, X«CO» 

BC ALLOFF * A0CK30 

A0CK21 MVC MESS1&16C3),UAPU 

SVC X«DO« 

DC X«44« 

DC X«2A« 

DC S(MESSl) 

BC ALWAYS, ADCK20 

ADCK30 MVC SCPDAT t 2 ) ,R03K00 

MVC SCPDAT£2<98) f SCPDAT61 

BAL GRB , SIO 

TM SCPDAT, X»CO« 

BC ALLON, ADCK21 

MVC DRPUf 1001, SCPDAT 

MVC PCSWAG 18} ,CSWAG 



CLEAR READ AREA 
» * 

SET PUNCH ADDRESS IN GR 12 
SET SIO PROGRAM SWITCHES 
BR TO SIO ROUTINE 
WAS ANY DATA TRANSFERRED 
BR IF YES 

SET PUNCH ADDRESS IN OUTPUT MESSAGE 
ERROR - NO DATA WAS TRANSFERRED BY 

,» DIAGNOSTIC CK RD TO PUNCH 

, ? 42 CHARACTERS 

,r ADDRESS OF MESSAGE 
GO TRY AGAIN 
CLEAR READ AREA 

» t 

BR TO SIO. ROUTINE 

WAS ANY DATA TRANSFERRED 

BR IF NO 

SAVE PUNCH DI AG CHECK RE AO DATA 

SAVE PUNCH CSW 



SEPARATE RAR, PAR, AND BAR FAILURES HERE 



0019E2 


41 


10 


F 


7E4 






ADCK40 


LA 


GRUDRDR 


INITIALIZE FILTER RTN FOR READER 


0019E6 


41 


20 


F 


848 








LA 


GR2,DRDR£100 


t * 


0019EA 


45 


30 


F 


9FA 








BAL ■ 


GR3,ADCK41 


BR TO FILTER ROUTINE 


0019EE 


41 


10 


F 


850 








LA 


GR1,0RPU 


INITIALIZE FILTER RTN FOR PUNCH 


0019F2 


41 


20 


F 


8B4 








LA 


GR2,DRPU£100 


» » 


0019F6 


41 


30 


F 


A16 








LA 


GR3,ADCK50 


? t 


0019FA 


15 


12 










A0CK41 


CLR 


GR 1 , GR2 ' 


BR IF END OF FILTER 


0019FC 


07 


83 












BCR 


EQUAL, GR3 


» t 


0019FE 


02 


00 


F 


234 


1 


000 




MVC 


SCPDATI1) ,0<GR1) 


SET UP DATA FOR FILTERING 


001A04 


94 


01 


F 


234 








NI 


SCPDAT, X»01« 


FILTER OUT ALL BUT AOOR ERRS 


001 A08 


02 


00 


1 


000 


F 


234 




MVC 


0( 1,GR1) , SCPDAT 


RETURN DATA 


001 AOE 


41 


10 


1 


001 








LA 


GR1,1(GR0,GR1) 


ADD 1 TO GR1 


001A12 


47 


FO 


F 


9FA 








BC 


ALWAYS? ADCK41 


CONTINUE 


001A16 


95 


14 


F 


84F 






A0CK50 


CLI 


RCSWAG£7 V X*14 V 


RESIDUAL CCW COUNT FOR ROR EQ 20 


001A1A 


47 


60 


F 


AEE 








BC 


NEQUAL ,A0CK60 


BR IF NOT EQ 


001A1E 


95 


14 


F 


8BB 








CLI 


PCSWAG£7,X»14« 


RESIDUAL COUNT FOR PUNCH EQ 20 


001A22 


47 


60 


F 


AFA 








BC 


NEQUAL, ADCK70 


BR IF NOT EQ - PAR PROBLEM 


001A26 


92 


00 


F 


234 








MVI 


SCPDAT, X«00» 


CLEAR COMPARE FIELD 


001A2A 


02 


62 


F 


235 


F 


234 




MVC 


SCP0AT&K99) , SCPDAT 


T 9 


001A30 


05 


63 


F 


7 £4 


F 


234 




CLC 


DRDRUOO), SCPDAT 


SEE IF ANY A DDR ERRS FOR READER 


001A36 


47 


80 


F 


A4C 








BC 


EQUAL, ADCK51 


BR IF NO 


001A3A 


05 


63 


F 


850 


F 


234 




CLC 


ORPU( 100), SCPDAT 


SEE IF ANY AODR ERRS FOR PUNCH 
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001 A40 


47 80 


F 


B02 






BC 


EQUAL , ADCKoO 


ats tc kin DcxncD dad onnat cm 

BR 1 r IMU — RhAucK OAK PRUBLtn 


001 A44 


92 20 


F 


SBC 






MV I 


brt l 1 LH , X ' ZO * 


cct iid Tn i nnt/ cno c ai cc a nno rucrvc 
be 1 UP 1 U LUUK r UK r ALoc AUUK UntuKo 


001 A48 


47 FO 


F 


BO E 






Qf 

JpC 


ALWAYo, AULKVUc»*f 


DAK rKUBLtW 


001 A4C 


05 63 


F 


850 


F 


234 


AUCK51 CLC 


URrUl 100 J , 5CPUA 1 


ccc tc amv Anno coot trno DiiKicu 
obt 1 r ANY AUUK tKKo rUK rUNLn 


001 A 5 2 


47 60 


F 


AFA 






BC 


NEQUAL , ADCK7U 


nn tr VCC Oil Klf LI DAD D D fid 1 CM 

BK 1 r T to — PUNLn BAR PRUBLtn 


001 A 5.6 


OA DO 










SVC 


X * DO * 


PK INI NU AUUKcob INu cKKUK5 Ut 1 cL 1 CU 


001 A58 


84 










DC 


X * 84* 


, , NuRnAL OUT rUT 


001 A59 


10 










DC 


X * 1 0 ■ 


, , 16 CHARAtT cRb 


001 A5 A 


F EB3 










DC 


SINOERR) 


Annoccc nc uccc Arc 
, , ADDKcob Ur ncob AGE 


001 A5C 


91 40 


F 


004 






ADCK52 TM 


SNSW,X , 40 > 


SEE 1 r WANT UTILITY ROUTINE 


001 A60 


47 80 


F 


A68 






BC 


ALLOFF »*&8 


nn vi* iifi 

BR IF NO 


001 A64 


45 80 


F 


63E 






BAL 


6R8, SCPROO 


BR IF YES 


001 A68 


91 20 


F 


004 






TM 


SNSW#X'20 f 


SEE IF WANT LOG-OUT 


001 A6C 


47 80 


F 


AAE 






BC 


ALLOFF ,PERT 


BR IF NO 


001A70 


OA 00 










SVC 


X^DD* 


CONVERT READER CK RD DATA TO EBCDIC 


001A72 


005A 










DC 


AL2 ( 90) 


NO OF 01 AG CK READ BYTES 


001A74 


07E4 










DC 


AL2CDRDR-SECST) 


DI AG READ DATA A DOR 


001A76 


0234 










DC 


AL2< SCPDAT-SECST) 


EBCOIC DATA AODR IN OUTPUT MESSAGE 


001 A78 


D2 02 


F 


8CC 


F 


220 


MVC 


LGMS6£7(3I , UARD 


SET READER ADDR IN OUTPUT MESSAGE 


001A7E 


D2 03 


F 


7E2 


F 


84E 


MVC 


RESCNT62,RCSWAG£6 


SAVE READER RESIDUAL COUNT 


001A84. 


45 30 


F 


ABE 






BAL 


GR3,ADCK53 


GO PRINT READER DI AG CK READ DATA 


001 A88 


OA ,DD 










SVC 


X f DD • 


CONVERT PUNCH CK RD DATA TO EBCOIC 


001 A8A 


005A 










DC 


AL2(90) 


NO OF 01 AG CK REAO BYTES 


001A8C 


0850 










DC 


AL2 i DRPU-SECST) 


01 AG READ DATA ADDR 


001A8E 


0234 




# 






DC 


AL2( SCPDAT-SECST) 


EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001A90 


02 02 


F 


8CC 


F 


231 


MVC 


LGMSG&7I3) ,UAPU 


SET PUNCH ADDRESS IN OUT PUT MESSAGE 


001A96 


02 03 


F 


7E2 


F 


8BA 


MVC 


RESCNT62»PCSWAG£6 


SAVE PUNCH RESIDUAL COUNT 


001A9C 


45 30 


F 


ABE 






BAL 


GR3,ADCK53 


GO PRINT PUNCH DI AG CK REAO DATA 


001AA0 


OA OA 








» 


SVC 


X'DA 1 


HALT t WAIT FOR ACTION 


001AA2 


91 40 


F 


004 






TM 


SNSW V X '40* 


SEE IF WANT UTILITY ROUTINE 


001 AA6 


47 80 


F 


AAE 






BC 


ALLOFF, *£8 


BR IF NO 


001AAA 


45 80 


F 


63E 






BAL 


GR8, SCPROO 


BR IF YES 


001AAE 


91 20 


E 


1A3 






PERT TM 


419(GRE) ,X»20* 


IS LOOP ON SEC SS ON 


001AB2 


47 10 


F 


6EC 






BC 


ALL0N,EXIT 


BR IF YES 


001AB6 


96 40 


F 


79C 






01 


5CHNUM»X*40' 


SET UP TO BYPASS ALL REMAINING OVLYS 


001ABA 


47 FO 


F 


6EC 






BC 


ALWAYS, EXIT 


ROUTINE EXIT 


001ABE 


58 00 


F 


7E0 






A0CK53 L 


GRO,RESCNT 


LOAD RESIOUAL COUNT IN GR 0 


001AC2 


4E 00 


F 


708 






CVO 


GRO,ERNUM 


CONVERT RESIDUAL COUNT TO DECIMAL 


001AC6 


OA 00 










SVC 


XW 


CONVERT RESIOUAL COUNT TO PRINTABLE 


001AC8 


0003 










DC 


AL2(3> 


,, 3 HEX BYTES 


001ACA 


07 DO 










DC 


AL2(ERNUM65-SECST) 


,, HEX DATA ADDRESS 


001ACC 


0707 










' OC 


AL2(ERNUM-1-$EC5T) 


, , PRINTABLE DATA ADDRESS 


OOIACE 


D2 03 


F 


8F4 


F 


708 


MVC 


LGftSGU21C4!»6RNUM 


LOAD RESIDUAL COUNT IN MESSAGE 


001AD4 


OA 00 










SVC 


X»DO» 


PRINT RDR/PCH DI AG CK RD DATA 


001A06 


80 










OC 


X»80« 


, , NORMAL OUTPUT 


001AD7 


40 










DC 


X»40» 


, , 64 CHARACTERS 


001AD8 


F 8C5 










DC 


S(LGMSG) 


, , ADDRESS OF MESSAGE 


001A0A 


OA 00 










SVC 


X«DO« 


,t FIRST 30 BYTES OF DI AG CK RD DAT 


001 ADC 


80 










DC 


X«80» 


,, NORMAL OUTPUT 


001ADD 


3C 










DC 


X«3C» 


,, 60 CHARACTERS 


001ADE 


F 234 










DC 


S(SCPDAT) 


, , AODRESS OF MESSAGE 


001 AEO 


OA DO 










SVC 


X«DO» 


,, SECONO 30 BYTES 


001AE2 


80 










OC 


X»80« 


,, NORMAL OUTPUT 


001AE3 


3C 










DC 


X • 3C • 


,, 60 CHARACTERS 


001AE4 


F 270 










DC 


S(SCP0ATG60) 


,, AODRESS OF MESSAGE 


001AE6 


OA DO 










SVC 


X»00« 


,, LAST 30 BYTES 


001AE8 


80 










DC 


X«80» 


,, NORMAL OUTPUT 


001AE9 


3C 










DC 


X 1 3C • 


,, 60 CHARACTERS 


001AEA 


F 2AC 










DC 


S(SCP0ATC120) 


,, AODRESS OF MESSAGE 


001AEC 


07 F3 










BCR 


ALWAYS, GR3 


RETURN 


001AEE 


95 14 


F 


8BB 






A0CK60 CLI 


PCSWAG£7,X«14* 


RESIOUAL CCW COUNT FOR PUNCH EQ 20 


001AF2 


47 60 


F 


BOA 






BC 


NEQUAL »A0CK90 


BR IF NO - BAR PROBLEM 


001AF6 


47 FO 


F 


B02 






BC 


ALWAYS, ADCK80 


RAR PROBLEM 














*»**•«*****«*«****»•****«**•••»»•»***#•»••»»*•»*•«««««««•*•*«••*««*«••* 














♦ COME 


HERE IF PAR PROJLEM ♦ 


* 














**♦*♦#*#***< 


i *****»•**«•*«***»*«»•«»«*•«#««**••««•»•**««««*««• «•••«•••»• 


001AFA 


92 40 


F 


BBC 






A0CK70 MVI 


SWITCH, XHO' 


TURN ON PROGRAM PAR SWITCH 


001AFE 


47 FO 


F 


CCA 






BC 


ALWAYS, AOCKBO 


GO FINO PAR PROBLEM 
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EC 
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* COME HERE IF RAR PROBLEM * 



DAI RD? 


92 


80 


F 


8 BC 






ADCK80 


MVI 


SWI TCHsX*SQ s 


TURN 0M PROGRAM RAR SWITCH 




47 


FO 


F 


CCA 








BC 


ALWAYS,A0CKB0 


GO F I NO RAR PROBLEM 
















««•« »»##*«■«##■»■»•**** «•»*##*** »»*#*«H 


*#* a ****«•**##»»*#«■«•« *«•#»«••« 
















*?• 


COME 


HERE IF BAR PROBLEM 


«• 
















*#*#»*♦**#»****•**•*»*•»»***»«»•##»# 


001 BOA 


92 


00 


F 


SBC 






ADCK90 


MVI 


SK ! I TCH ? X 8 00 9 


TURN ON PROGRAM BAR SWITCH 


oni ROF 


45 


BO 


F 


BBE 








BAL 


GRB f ALOC0O 


GO SEE IF CAN FIND BAR 'PROBLEM 


(in i si ? 


92 


00 


F 


234 








MVI 


SCPDAT? X s 00 6 


SET COMPARE FIELD TO ZEROS 


no i r i ? » 


02 


62 


F 


235 


f 


234 




MVC 


SCP0ATSK 99) ^SCPOAT 






92 


01 


F 


280 








MVI 


SCPDAT&89t X* 01 s 


SET UP FOR ERROR 129 


ooi R7o 


05 


59 


F 


234 


F 


7E4 




CLC 


SCPDAT ( 901 * OR OR 


SEE IF THIS PATTERN COMPARES 


001 R76 


47 


60 


F 


B36 








BC • 


NEQUAL » ADCK91 


BR IF HO 


001 R? A 


41 


90 


0 


081 








LA 




SET UP ERROR NUMBER 


001 R?F 


45 


AO 


F 


CBC 








BAL 


GRA • Al 0C60 


GO SFT UP PRINTOUT 


001B32 


47 


F0 


p 


C9E 








8C 


AL WAYSt ADCKA0 


GO PRI NT BAR PROS 129 


001 R36 


41 


90 


0 


063 






ADC&91 


LA 


GR9? 99 


SET UP ERROR 099 


001 R3 A 


05 


0 1 


F 


DCS 


F 


84E 




CLC 




epe IF RF ADFR RCQ TDil Ai mil NT I 00*511 


UU J. E>*?U 


47 


60 


p 


B56 








BC 




DD T C Kin 
DrV ir iDU 


001 R44 


05 


01 


F 


0C8 


F 


83A 




CLC 




ccp ip PUNCH R c c | nt S & 5 CflllMT 1^ OO^fl 


fifil R4A 

VU AOtM 


47 


60 


F 


B56 








BC 


NPOUAI « AnT KQ7 


0 1\ L 1 11 U 


nfi 1 R4S* 

UU iuiC 


45 


AO 


F 


CBC 










no a ^ a i nr An 


rn CCT lip DD i isiTniiT 
V? U o>C i U r r K 1 11 1 UU 1 


nm 


47 


r u 


F 


C9E 








Rf° 
UW 


A i ya vt snrs? Aft 


Cn PR! KIT RAD DDHRE CM fifSO 




Q1 

y 1 


on 

&.U 


F 


0 or 

ODl. 






ADCK92 


TM 


SWITCH, X«20» 


SEE OF POSSIBLE FALSE 'ADDRESS CHECKS 


UU I D -? ' . 


A7 

*, •? 


on 

cu 


F 


DDT 








BC 


ALL0FF f A0CK93 


BR IF MO 


UU IDDC 


41 


1 n 


F 


UDO 








LA . 


GR1,PUWCCW 


LOAD CCW ADDRESS IN SEC PREF CAW 


UU IDOd 


cri 
3U 


10 


c 

r 


048 








ST 


GRUCAW 


LOAD CCW ADDRESS IU SEC PREF CAW ' 


UU1 DO© 


AO 

'TIS 


V.U 


p 


U CO 








LH - 


. GRCUN2ADR 


SET PUNCH ADOR IN OR 12 


001B6A 


92 


00 


F 


140 








MVI 


SI0SWS,X*00 9 . 


SET SIO PROG SWITCHES FOR PUNCH . • 


001B6E 


45 


60 


F 


2E8 








BAL 


GRB t SIO 


BR TO SIO ROUTINE 


001872 ' 


91 


01 


F 


140 








TM 


SI0SWS,X f 01 e 


SEE IF GOT INTERV iEQ 


001B76 


47 


10 


F 


90C 








BC 


ALLONt INI TOO 


RESTART SECTION IF YES 


UU itSf ft 




00 


F 


TTA 
£.:»**• 








MVI 


SCPD*AT,X«00« 


CLEAR READ FIELD • 


Aft t O-7 C 

uu lore 


02 


4E 


F 


235 


e 

r 


234 




MVC 


SCPDAT&1(79)9SCPDAT 


•' CLEAR READ FIELD 


nn 5 boa 


41 


10 


r 


DC0 








LA 


GR1,PURCCW 


LOAD CCW ADDRESS IN SEC PREF. CAW 


no 1 n a a 


;3U 


1 It 


r 


048 








ST. 


GRltCAW 


LOAD CCW ADDRESS IN SEC PREF CAW 


nn 1 nor 


Q5 
7C 


(t 0 


c 










MVI 


SI0SWS,X«02« ' ° 


SET SIO PROGRAM SWITCHES 


nn 1 nan 

UU 1 D7U 




80 


r 


T CO 

<c to 








BAL. 


GRB^SIO ■ 


BR TO SIO ROUTINE 0 


nn 1 0 0 a 


91 


01 


c 
r 


140 








TM 


SlOSWSfX'Ol 8 


SEE IF GOT INTERV REQ 


Aft i n q n 
UU ioVO 


*t f 


10 


c 

r 


90C 








BC 


ALL0N,INIT00 


RESTART SECTION IF YES 


nn 1 aor 

UU JL D7U 


05 


AC 


r 


"2 "2. A 


e 
r 






CLC 


SCP0ATC80I f SIO 


-SEE IF DATA READ OK 


nn 1 0 a r> 
UU iOftt 


ATI 

*§■ f 


60 


r 


DDT 








BC 


NEQUALt ADCK93 


BR IF NO 0 


nn i raa 

UUI D AO 




on 


u 


nn a 
uoo 








LA ■ 


GR9 f 134 


SET UP ERROR NUMBER 134 


UU J. DA A 


A sr 


AU 


c 


far 








BAL 


GRA t AL0C60 " . . . 


GO SET UP PRINTOUT . . 


nn i q ac 

UU JL O AC 


At 

*f" S 


Cfl 
ru 


F 


roc 








BC 


ALWAYS* ADCKAO 


' GO PRINT BAR PROB 134 


nn 1 c 0 *> 


41 


90 


n 
U 


032 






ADC&93 


LA 


GR9,50 


SET UP ERR 050 


HOI RRA 

UU IDDu 


45 


AO 


F 


CBC 








BAL ' 


GRA,AL0C60 


- GO SET UP -PRINTOUT 


00IBBA 


47 


F0 


F 


C9E 








BC 


ALWAYS* ADCKA0 


GO PRINT BAR PROB 050 , 
















« 

# 


ROUTINE TO LOCALIZE BAR* PAR* OR RAR. PROBLEMS 


001BBE 


41 


10 


0 


033 






* 

AL0C00 


LA 


GR1,51 


INITIALIZE ROUTINE 


001BC2 


41 


90 


0 


033 








LA 


GR9, 51 


,» START WITH ERR 051 


001BC6 


41 


20 


F 


E4F 








LA 


GR2,BTA0N 


DEFINE START OF TENS BAR PATTERN 


001BCA 


41 


30 


F 


EB3 








LA 


GR3,BTE0FF£10- 


ft DEFINE END OF TENS' BAR PATTERNS 


001BCE 


41 


40 


F 


DEB 








LA 


GR4t BUA0N 


,, DEFINE START OF UNITS BAR PATTRN 


001BD2 


15 


43 










AL0C10 CLR 


GR4,GR3 . 


SEE IF END OF BAR PATTERNS 


001 BD4 


07 


8B 












BCR 


EQUAL, GRB 


BR IF YES 


00 IB 06 


92 


00 


F 


234 








MVI 


SCPDAT,X»00« • 


SET COMPARE FIELD TO ZEROS 


001BDA 


02 


62 


F 


235 


F 


234 




MVC 


SCPDAT61(99),SCPDAT 




001BE0 


15 


42 












CLR 


GR4,GR2 


SEE IF UNITS BAR PATTERNS 


001BE2 


47 


40 


F 


C36 








BC 


LOW,ALOC40 


BR IF YES 


001B66 


41 


50 


F 


E77 








LA 


GR5,BTC0N 


SEE IF TEN-C-ON PATTERN 


001 BE A ' 


15 


45 












CLR 


GR4,GR5 




001BEC 


47 


60 


F 


BF8 








BC 


NEQUAL, AL0C20 


Yt BR IF NO 


001BF0 


92 


01 


F 


235 








MVI 


SCPDATGltX'Ol 9 


SET UP COMPARE FIELD FOR TENS-C ON 
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001BF4 .' 


47 


FO 


F 


C42 








BC 


ALWAYS,AL0C5C 0 


GO COMPARE 


001BF8 


• 41 


50 


4 


00A 






AL0C20 


LA 


' GR5 f 10(GRO,GR4) 


INITIALIZE TENS LOAD COMPARE 


001BFC 


41 


60 


4 


000 








LA 


. GR6„Q{GR0,GR4> 


f f 


001 COO 


'■ 41 


70 


F 


234 








LA 


GR7,SCPDAT 




001C04 


15 


56 










AL0C2I 


CLR 


GR5,GR6 


SEE IF END OF TENS LOAD 


001C06 


47 


80 


F 


C42. 








BC 


' EQUAL » ALQC50 


BR IF YES - GO COMPARE 


001 CD A 


91 


01 


6 


000 








TM 


0CGR6I S K 5 01 S 


SEE IF LOAD TEN ADOR ERRS IN CMP FLO 


0G1C0E* 


47 


80 


F 


C2A 








BC 


ALLOFF s AL0C30 


BR IF NO 


001 CI 2 


92 


01 


7 


000 








MVI 


0(GR7) ,X»01« 


LOAD TEN ADOR ERRS 


001X16 


02 


08 


7 


001 


7 


000 




MVC 


1(9, GR7) ,0(GR7) 


•» * 


001C1C 


41 


00 


F 


E8B 








LA 


GRO* BTQON 


SEE IF TENS 0 ON PATTERN 


001C20 


15 


40 












CLR 


. GR4,GR0 


t 9 


00IC22 


47 


60 


F 


C2A 








BC 


NEQUAL, AL0C30 


■ ff SET UP FOR TENS D ON 


001C26 


.92 


01 


F 


266 








MVI 


SCPDAT650,X*01» * 


' SET UP FOR TENS D ON 


001C2A 


• 41 


70 


7 


00A 






' AL0C30 


LA 


GR7,10(GR0,GR7) 


UPDATE ADDRESSES 


001C2E 


41 


60 


6 


001 








LA . 


GR6tl(GR0,GR6) 


1 1 


001C32 ' 


47 


FO 


F 


C04 








BC ' 


ALWAYS, AL0C2I 


CONTINUE 


001C36 


02 


09 


F 


234 


4 


000 


AL0C40 


MVC 


, SCPDAT(IO) *0CGR4) ' 


LOAD UNITS PATTERN 


001C3C 


02 


4F 


F 


23E 


F 


234 . 




mc 


SCP0ATC10C80) tSCPOAT 


* t 


001C42 


41 


80 


F 


C9E 






AL0C50 


LA 


GR8 , ADCKAO 


INITIALIZE ERR BRCH ADOR 


00IC46 


41 


90 


1 


000 








LA 


GR9 s 0CGR0?GRil 


INITIALIZE ERROR NUMBER 


001C4A 


91 


CO 


F 


SBC 








TM 


SWITCH, X 9 CO* 


SEE IF RAR OR PAR PROBLEM 


001C4E 


47 


80 


F 


C72 








BC 


ALLOFF ,AL0C52 


BR IF NO - GO COMPARE 


00IC52 


91 


SO 


F 


sec 








TM 


SWITCH, X-80* 


SEE IF RAR PROBLEM 


001C86 


47 


10 


F 


C6A 








BC 


ALL0N,AL0C51 


BR IF YES 


001C5A 


41 


80 


8 


014 








LA 


GR8, 20(GR0,GR8) 


SET ERROR BRCH FOR PUNCH 


001C5E 


41 


90 


9 


002 








LA 


GR9, 2(GR0,GR9) 


SET ERROR NUMBER FOR PUNCH 


001X62 - 


41 


TO 


F 


850 








LA 


GR7,DRPU 


SET UP TO COMPARE TO PUNCH DATA 


001 C66 


.47 


FO 


F 


C76 








BC 


. ALWAYS? AL0C53 


GO COMPARE PUNCH DATA 


00 1 C 6 A 


41 


80 


8 


00 A 






AL0C51 


LA 


GR8,10CGR0,.GR8) ' 


SET ERROR BRANCH FOR READER 


001C6E 


41 


90 


9 


001 








LA 


GR9,1(GR0,GR9I 


SET ERROR NUMBER FOR HEADER . 


001C72' 


41 


70 


F 


7E4 






'. ; , AL0C52 


LA 


• GRT, ORDR 


SET UP TO COMPARE TO READ DATA 


001C76 


• 45 


AO 


F 


CBC 






AL0C53 


BAL 


GRA, ALOC60 


SET UP ERROR NUMBER 


001C7A 


. 15 


42 












CLR 


. GR4,GR2 . 


SEE IF UNITS BAR PATTERNS ' 


001C7C 


47 


40 


F 


C8A 








BC 


■ L0W,AL0C54 


BR IF YES . 


001C80 


05 


4F 


F 


235 


7 


000 




CLC 


SCPDATC1 { 803 ,0CGR7) ' 


COMPARE DATA -TENS- 


001C86 


47 


FO 


f 


C90 








BC. 


■ ALWAYS,AL0C54S6 


f ? 


001C8A 


- 05. 


4F' 


F 


234 


7 


000 V 


•' • ' AL0C54 


CLC 


SCPDAT i 80) ,0CGR7) 


COMPARE DATA -UNITS- 


001C90 


07 


88 












BCR 


EQUAL ,-GR8 


PRINT ERROR IF PATTERN EQUAL 


001C92 


41 


10 


1 


.003' 








LA 


GRI,3IGR0,GR1) 


UPDATE ERROR NUMBER 


001C96 


41 


40 


4 


00A 








LA 


GR4,10CGR0,GR4) 


UPDATE PATTERN ADDRESS 


001C9A 


47 


FO 


F 


B02 








BC ' 


' ALWAYS tALOC 10 


CONTINUE - 


001C9E 


OA 


DO 










'/ 'ADCKAO. 


SVC 


X 8 D0* 


PRINT - BAR PROBLEM - ERROR NUMBER 


001CA0 


' 44 














'■DC 


X « 44 » 


tf IN BYTE 3 OF GR 9 


001CA1 


07 














DC 


X • 07 » 


, , 7 CHARACTERS 


001CA2 


' F 8BD 












DC 


SIERRX1 


, , MESSAGE ADDRESS 


001CA4 


' 47 


FO 


F 


A5C 








BC 


ALWAYS, ADCK52 ' 


GO SEE IF WANT UTILITY RTN OR LOGOUT 


001CA8 


OA 


DO 












SVC 


".X«0.0 f 


PRINT - RAR PROBLEM ~ ERROR NUMBER 


001CAA 


' 44 














DC 


• X»44 8 


IN BYTE 3 OF "G'R 9 


001CAB 


• 07 














DC '•" 


• X , Q7- f 


tt 7 CHARACTERS 


001CAC 


F 8' BO: 












DC 


'S(E'R'RX) 


r# MESSAGE ADDRESS 


001CAE 


47 


FO 


F 


A5C 








BC 


ALWAYS, ADCK52 


GO SEE IF WANT UTILITY RTN OR LOGOUT 


001CB2 


OA 


DO 












SVC 


X»DO» 


PRINT - PAR PROBLEM - ERROR NUMBER 


001CB4 


44 














DC 


X • 44 " 


,, IN BYTE 3 OF GR 9 


001CB5 


■ 07 














DC 


■ X«07« 


,, 7 CHARACTERS 


001CB6 


F 8BD 












DC 


S(ERRX) 


MESSAGE ADDRESS 


001CB8 


47 


FO 


F 


A5C 








BC 


ALWAYS, ADCK52 


GO SEE IF WANT UTILITY RTN OR LOGOUT 


001CBC 


4E 


90 


F 


7D8 






AL0C60 


CVD 


GR9 , ERNUM 


CONVERT ERROR NUMBER TO DECIMAL 


001CCO 


OA 


DD 












SVC 


X'DD« 


CONVERT ERROR NUMBER TO EBCDIC 


001CC2 


0002 












DC 


AL2C2) 


, , 2 HEX BYTES 


001CC4 


07DE 












DC 


AL2 ( ERNUM £.6- SEC ST) 


,, HEX DATA ADDRESS 


001CC6 


<08C1 












DC 


AL2(ERRX£4-SECST) 


,, EBCDIC DATA AODRESS 


001CC8 


07 


FA 












BCR 


ALWAYS, GRA 


RETURN TO PROGRAM 


001CCA 


45 


BO 


F 


BBE 






ADCKBO 


BAL 


GRB,AL0C00 


GO FIND RAR OR PAR PROBLEM 


001CCE 


41 


10 


0 


06F 








LA 


GR1,111 


INITIALIZE ERROR NUMBER 


001CD2 


41 


90 


0 


06F 








LA 


GR9,111 




001CD6 


92 


01 


F 


234 








MVI 


SCPOATvX'Ol' • 


SET UP COMPARE DATA FOR ERR 111/112 


001CDA 


02 


62 


F 


235 


•F 


234 




MVC 


SCPDATfcl ( 99) , SCPDAT 


, t 



DATE 15JUL65 
EC 124265 



17MAR66 
125643 



ID F 80 5-1 
PAGE 3 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N ■• '840260 
PAGE 4 



♦ F8041. 2821 SCAN/2540 READER/PUNCH • 
F8051 BUFFER ADDR FIT, -ROUTINE OVERLAY 03- 



001CE0 


45 


20 


F 


084 








BAL 


GR2, ADCKB1 


° GO COMPARE 






001CE4 


41 


90 


1 


002 








LA 


GR9, 2 ( GRO t GRl ) 


UPDATE ERROR NUMBER 






001CE8 


92 


00 


F 


234 








MVI 


SCPDAT,X»00« ; 


SET UP COMPARE DATA 


FOR 


ERR 113/114 


001CEC 


92 


00 


F 


235 




" '• „ 




HVI 


SCPDAT£1,X«00» 








001CF0 


45 


20 


F 


084 








BAL 


GR2 i ADCKB1 


GCl'cOMPARE 






001CF4 


41 


90 


1 


004 








LA ■ 


GR9,4CGR0,GR1) 


UPDATE ERROR NUMBER 






001CF8 


02 


01 


F 


236 


F 


234 




MVC 


SCPDAT£2(2) ,SCPDAT 


SET UP COMPARE DATA 


FOR 


ERR 115/116 


001CFE 


45 


20 


F 


D84 








BAL 


GR2,A0CKB1 


GO COMPARE 






001002 


41 


90 


1 


006 








LA' 


GR9,6(GR0,GR1) 


UPDATE ERROR NUMBER 






001006 


02 


01 


F 


238 


F 


234 . 




MVC 


SCPDAT£4(2NSCPDAT 


SET UP. COMPARE DATA 


FOR 


ERR 117/118 


00100C 


45 


20 


F 


084 








BAL 


GR2, ADCK8 1 


GO COMPARE 






001D10 


41 


90 


1 


008 








LA 


GR9,8(GR0,GR1) 


UPDATE ERROR NUMBER 






001014 


02 


16 


F 


23A 


F 


234 




MVC 


SCPDATG6(23) ,SCPDAT 


SET UP COMPARE DATA 


FOR 


ERR 119/120 


001D1A 


45 


20 


F 


D84 








BAL 


GR2,A0CKB1 


GO COMPARE 






001D1E 


41 


90 


1 


OOA 








LA 


GR9# 1*0( GROf GR1 ) 


UPDATE ERROR NUMBER 






001022 


02 


13 


F 


251 


f 


234; ■ 




mvc 


SCPDAT629C20) ,SCPDAT 


SET UP COMPARE FOR ERR 121/122 


001028 


45 


20 


F 


084 








BAL 


GR2»ADCK81 


GO COMPARE 






00102C 


41 


90 


1 


OOC 




234 . 




LA 


GR9,12CGR0 ? GRl! 


UPDATE ERROR NUMBER 






C01D30 


02 


62 


F 


235 


F 




MVC 


SCPDATSlC99ItSCPDAT 


SET UP COMPARE DATA 


FOR 


ERR 123/124 


001036 


45 


20 


F 


084 








BAL 


GR2y A0CKB1 


GO COMPARE 






001D3A 


41 


90 


1 


OOE 








LA 


GR9*14CGR0»6Rn 


UPDATE ERROR NUMBER 




ERR 125/126 


001D3E 


92 


01 


F 


234 








MVI 


"SCPDAT,X«01 9 


SET UP COMPARE DATA 


FOR 


001042 


02 


06 


F 


235 


F 


234' ■ .; 




MVC 


SCPDAT£1(7),SCPDAT 








001048 


45 


20 


F 


084 








BAL 


6R2 f ADCKB1 


GO* COMPARE 






001D4C 


92 


01 


F 


234 








mi 


SCPOAT.f X«01 9 


SET UP COMPARE DATA 


FOR 


ERR 130/131 


001 050 


02 


62 


F 


235 


F 


234 




MVC 


• SCPPAT&1 (99) , 5CP0AT • 


» t 






001D56 


92 


00 


F 


234 








MVI ■ ■ 


SCPDAT,X«00 9 








00 I 05 A 


41 


90 


1 


013 








LA 


GR9, 19C GRO»GRi ) 


SET-UP ERROR NUMBER 






001D5E 


45 


20 


F 


084 








BAL 


GR2*ADCKB1 


GO COMPARE 






001062 


02 


07 


F 


235 


F 


234 .. 




MVC 


SCP0ATS1 (8) , SCPDAT 


SET UP COMPARE DATA 


FOR 


ERR 132/133 


001068 


41 


90 


1 


015 








LA 


GR.9* 21(GR0 V GR1) 


SET UP ERROR NUMBER 






001D6C 


45 


20 


F 


084 








BAL 


GR2, ADCKB1 


GO COMPARE 






001070 


41 


90 


1 


010 








LA 


GR9, 16(GR0»GR1 t 


UPDATE ERROR NUMBER 






001D74 . 


91 


80 


F 


SBC 








TM 


SWITCH, X»80« 


SEE IF READER 






001078 


47 


f 0 


F 


DAS 








8C 


ALWAYS, ADCK63 


BR IF YES 






00107C 


41 


90 


9 


001 








LA 


GR9,1(GR0,GR9J 


UPDATE ERROR NUMBER 


FOR 


PUNCH 


001080 


47 


FO 


F 


DAS 








BC 


ALWAYS, ADCKB3 


GO PRINT PUNCH ERROR 




001D84 


41 


70 


F 


CAS 






ADCKB1 


LA 


GR7,ADCKA0£10 


INITIALIZE BRANCH 






001088 


41 


60 


F 


7E4 








LA 


6R6«DR0R 


SET UP TO COMPARE TO READER DATA 


001D8C 


91 


80 


F 


8BC 








TM 


SWITCH, X 8 80 8 


SEE IF READER 






001090 


47 


10 


F 


DAO 








BC 


ALLON, ADC&B2 


BR IF YES 






001094 


41 


70 


7 


OOA 








LA 


GR7,10(GR0,GR7> 


SET UP PUNCH BRANCH 


ADDRESS 


001098 


41 


60 


F 


850 








LA 


GR6 S DRPU 


SET UP TO COMPARE TO PUNCH DATA * 


00109C 


41 


90 


9 


001 








LA 


GR9,1(GR0,GR9) 


UPDATE ERROR NUMBER 


FOR 


PUNCH 


00 ID AO 


05 


63 


F 


234 


6 


000 


ADCK82 


CLC 


SCPDAT(IOO) ,0(GR6> 


COMPARE DATA 






0010A6 


07 


62 












BCR 


NEQUAL,GR2 


BR IF NOT EQUAL . 






001DA8 


45 


AO 


F 


CBC 






ADCKB3 


BAL 


GRAt AL0C60 


GO CONVERT ERROR NUMBER 


TO DECIMAL 


001 OAC 


07 


FT 












BCR 


ALWAYS, GR7 


GO PRINT ERROR NUMBER 


















##*#♦***** #»*»###«#*»-»#*##»*»*#»«#*##*##»*»**#«•# *«#«*«#*#»**«*»* 
















* 


ccw*$ 


USED BY ROUTINE 03 









001DB0 C6 001234 2000 0064 
001088 01 0012E8 2000 0050* 
0010C0 C2 001234 2000 0050 



001DC8 0032 

001DCA F2F8F2F140E2C3C1D5 

001003 61F2F5F4F06B40 

0010DA C2E4C6C6C5D940C1C4 

001DE3 C4D940C6D3E3 

001DE9 0000 

001DEB 000001000001010101 

001DF4 01 

001DF5 010100010100000000 

0010FE 00 

0010FF 010100000100000101 



*»•**•»••«*»*»****•*»*«*•*****•««*«* »«»*^ 

CRDCCW CCW X»C6«, SCPDAT, X«20«,100 DI AG CK READ CCW - SILI ON 
PUWCCW CCW X»01»,SI0,X«20« ,80 WRITE PUNCH BUFFER - SILI ON 
PURCCW CCW X*C2* , SCPDAT, X 1 20* ,80 READ PUNCH BUFFER - SILI ON 
**♦#*#*#* »«« ****•*•»**•*•**•**»••••*#**•****••**«••*•• #*#**»#»»**■•» 
* CONSTANTS FOR ROUTINE 03 - NO BOUNDARY * 

**#«•**#*«»*##««*«***««#•»»##«#***»**«««»*««« «•»••*•••***«•*«*•»•**••«»* 



C0M50 DC 
TITLE DC 



DC 



R03K00 DC 
BUAON DC 



BUAOFF DC 



BUBON DC 



X«0032» 

C»2821 SCAN/2540,' 9 ' 
C«BUFFER ADDR FLT* 
X»0000* 

X 9 0000010000010101 0101 9 
X ' 01010001010000000000 9 
X'OIOIOOOOOIOOOOOIOIOI » 



DATE 

EC 
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17MAR66 
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001 FOR 


01 








Oft! FOQ 


000001010001010000 




DC 


X 9 OOOOOI 01000101 000000 • 


001 El 2 


00 








00 IE 13 


01010101 000001 QOOO 


RUCON 


DC 


X 1 01010101000001000001 • 


001E1C 


01 








001 El D 


0000000 00 101 000 101 

UUUUUUvvU A V AW A 


RUTOFF 


DC 


X * 000000000101 0001 01 on • 


00 IE 26 


00 








00 1 E27° 


0001 01 01 01 01 00FOO01 


RunriM 

DUUUt 1 ! 


DC 


x t nooi oioioioi oooool oo« 


001E30 


00 








001 E 31 


o i oooooooooooi o i on 


DO u\j 8 r 


DC 


x t ni oooooooooooi oi nooi* » 


nm f^a 


01 








Of) 1 COD 

uu jl c o o . 


o i nooon loinioini oo 


BUEON 


DC 


x • m oooooi oi oi oi oi nnoo • 


001 E44 


00 








00 1 E45 


0001 01 ooobooooFoooi 


BUEOFF 


DC 


X • 0001 01 oooooooooooi 01 • 


001 E4E 


01 








001 E4F 


n i nooon i oonoo mini 


AT AON 


DC 


x • oi oooooi oooooi ni m oo< 


UU JL C J O 


00 






x • nooi oi oooi oi ooooohno* 


001E59 


noni oi nno i oi ootnonn 




DC ■'' 




00 








nn i cfi% 


ni m ni nhnnni nnnnn i 

vlUlv a UvUvU A UuUUU A 


8TB0N 


DC 


x'ninioi oooooi nonnoi nn * 


nm fat 

UU ICOb 


00 








001 F6D 


00000001010001 0100 


BTBOFF 


DC 


X '00000001 01 0001 01 0000 9 


001E76 


00 








001E77 


010000000000000000 


BTCON 


DC 


X • 01000000000000000000 8 


001E80 


00 








001E81 


000000000001010001 


BTCOFF 


DC 


X • OOOOOOOOOOOI 01 0001 00 • 


001E8A 


00 








001E8B 


oooooioioiooaooooo 


BTDON 


DC 


X • OOOOOI 01 01 0000000000 « 


001E94 


00 








001E95 


OlOlOOOOOOOOOCWIOl 


BTDOFF 


DC 


X« 01010000000000010100' 


001E9E 


00 








001E9F 


000100000101010101 


BTEON 


DC 


X • 0001 0000010101 01 01 00 « 


001EA8 


00 








001EA9 


010001010000000000 


BTEOFF 


DC 


X«01000101000000000000« 


001EB2 '' 


00 








001EB3 


D5D640C509D9E240C4 


NOERR 


DC 


C'NO ERRS DETECTED 9 


001EBC 


C5E3C5C3E3C5C4 









♦##»#*#*###»»*##*## #4 •*#*#*»♦*#*###»*##«##»####«#« 

* GENERAL REGISTER EQUATES » 



000000 


GRO 


EQU 


, 0 


OOOOOI 


GR1 


EQU 


1 


000002 


GR2 


EQU 


2 


000003 


GR3 


EQU 


3 


000004 


GR4 


EQU 


4 


000005 


GR5 


EQU 


5 


000006 


GR6 


EQU 


6 


000007 


GR7 


EQU 


7 


000008 


GR8 


EQU 


8 


000009 


GR9- 


EQU 


9 


OOOOOA 


GRA 


EQU 


10 


OOOOOB 


GRB 


EQU 


11 


OOOOOC 


GRC 


EQU 


12 


OOOOOD 


GRO 


EQU 


13 


OOOOOE 


GRE 


EQU 


14 


OOOOOF 


GRF 


EQU 


15 



*****»*#**«*»#**•»***•# **«*««*«****^ 

* CONDITION CODE EQUATES * 

*#•******«•*•******«•*«***»****«•*••***••*•«»**«*•***•••*«*••*«•*•«*•*• 



000078 


HION 


EQU 


120 


HARDWARE I/O 


NEW 


PSW 


LOCATION 


000008 


ALLOFF 


EQU 


8 


ALL OFF 


0 






000005 


ANYON 


EQU 


5 


ANY ON 




1 


3 


OOOOOI 


ALLON 


EQU 


1 


ALL ON 






3 ■ 


000004 


MIXED 


EQU 


4 " ' " ' ' 


MIXED 




1 




000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 




3 


000008 


EQUAL 


EQU 


8 


EQUAL 


0 






000006 


NEQUAL 


EQU 


6 


NOT EQUAL 




1 2 




000004 


LOW 


EQU 


4 


LOW 




1 
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000002 


HIGH 


EQU 


2 


HIGH 






2 






0O0008 


ZERO 


EQU 


8 


ZERO 


0 








• 


000002 


GZERO 


EQU 


2 


GREATER ZERO 






2 






OCT0008 


AVAIL 


EQU 


8 


AVAILABLE 


0 








* 


000004 


CSWST 


EQU 


4 


CSW STORED 




1 






• 


000002 


BUSY 


EQU 


2 


BUSY 






2 




* 


OOOOOF 


ALWAYS 


EQU 


15 


UNCONDITIONL 


0 


1 


2 


3 


* * 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


1 




3 


* 


000007 


NZERO 


EQU 


7 


NOT CC 0 




1 


2 


3 


* 


000004 


NOTZRO 


EQU 


4 


NOT ZERO -AND- 




1 






* 


OOOOOC 


MIXNON 


EQU 


12 


MIXED OR NONE 


0 


1 














« 




• 


ERROR 


NUMBER 


LIST FOR ROUTINE 03 








• 


• 



*•••**•*•*•****••«»*«**«*«*«*»»*«*«**«««*«*« ****#*«**♦«*#«♦»»##«##»«»## 
» ERROR 050 



- BAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT. 

- BAR UNITS A OUTPUT ALWAYS ACTIVE. 

- RAR UNITS A INPUT TO BAR ALWAYS ACTIVE. 

- PAR UNITS A INPUT TO BAR ALWAYS ACTIVE. 

- BAR UNITS A OUTPUT NEVER ACTIVE. 

- RAR UNITS A INPUT TO BAR NEVER ACTIVE. 

- PAR UNITS A INPUT TO BAR NEVER ACTIVE. 

- BAR UNITS B OUTPUT ALWAYS ACTIVE. 

- RAR UNITS* B INPUT TO BAR ALWAYS ACTIVE. 

- PAR UNITS B INPUT TO BAR ALWAYS ACT IVE. 

- BAR UNITS B OUTPUT NEVER ACTIVE. 

- RAR UNITS B INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACT IVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 

OUTPUT ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
B OUTPUT ALWAYS ACTIVEv 
INPUT TO BAR ALWAYS ACTIVE. 
TENS B INPUT TO BAR ALWAYS ACT TV E . 
BAR TENS B OUTPUT NEVER ACTIVEl 
RAR TENS B INPUT TO BAR NEVER ACTIVE. 
PAR TENS B INPUT TO BAR NEVER ACTIVE^ 
BAR TENS C OUTPUT ALWAYS ACTIVE. 

RAR TENS C INPUT TO BAR ALWAYS ACTIVE - OR, RAR 
TENS C TRIGGER ALWAYS ACTIVE. 
ERROR 095 - PAR TENS C INPUT TO BAR ALWAYS ACTIVE - OR* PAR ? 

TENS C TRIGGER ALWAYS ACTIVE. 
ERROR 096 - BAR TENS C OUTPUT NEVER ACTIVE. 
ERROR .097 - RAR TENS C INPUT TO BAR NEVER ACTIVE. 
ERROR 098 - PAR TENS C INPUT TO BAR NEVER ACTIVE. 
ERROR 099 - BAR TENS D OUTPUT ALWAYS ACTIVE. 
ERROR 100 - RAR TENS D INPUT TO BAR ALWAYS ACTIVEV 



ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
' ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 



051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 



PAR UNITS B 
BAR UNITS C 
RAR UNITS 
PAR UNITS 
BAR UNITS 
RAR UNITS 
PAR UNITS 
BAR UNITS 
RAR UNITS 
PAR UNITS 
BAR UNITS 
RAR UNITS D 
PAR UNITS D 
BAR UNITS 
RAR UNITS 
PAR UNITS 
BAR UNITS 
UNITS 
UNITS 
TENS A 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 



RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 



ERROR 101 
ERROR 102 
ERROR 103 
ERROR 104 
ERROR 105 
ERROR 106 
ERROR 107 
ERROR 108 
ERROR 109 
ERROR 110 
ERROR 111 



ERROR 112 
ERROR 113 
ERROR 114 
ERROR 115 
ERROR 116 
ERROR 117 
ERROR 118 
ERROR 119 
ERROR 120 
ERROR 121 
ERROR 122 
ERROR 123 



* ERROR 124 

* ERROR 125 
» ERROR 126 

* ERROR 127 

* 

* ERROR 128 
# 

* ERROR 129 

* ERROR 130 

* ERROR 131 

* ERROR 132 

* ERROR 133 

* ERROR 134 
**««»*«# *•**#*«**<* 

«*»*•«*«»»«« 

END 



- PAR TENS D INPUT TO BAR ALWAYS ACTIVE. 

- BAR TENS D OUTPUT NEVER ACTIVE. 

- RAR TENS D INPUT TO BAR NEVER ACTIVE. 

- PAR TENS D INPUT TO BAR NEVER ACTIVE. 

- BAR TENS E OUTPUT ALWAYS ACTIVE. 

- RAR TENS E INPUT TO BAR ALWAYS ACTIVE. 

- PAR TENS E INPUT TO BAR ALWAYS ACTIVE. 

- BAR TENS E OUTPUT NEVER ACTIVE. 

- RAR TENS E INPUT TO BAR NEVER ACTIVE. 

- PAR TENS E INPUT TO BAR NEVER ACTIVE. 

- RAR PROBLEM PROBABLY CAUSED BY ONE OF THE FOLLOW ING- 

1. UNITS AND/OR TENS TRIGGERS A AND/OR B 
ALWAYS ACTIVE. 

2. UNITS TRIGGER A NEVER ACTIVE. 

3. TENS TRIGGERS D AND/OR E NEVER ACTIVE. 

4. FALSE ADDRESS CHECKS. 

- SAME AS ERROR 111 EXCEPT FOR PAR. 

- RAR UNITS TRIGGER B NEVER ACTIVE. 

- PAR UNITS TRIGGER B NEVER ACTIVE. 

- RAR UNITS C TRIGGER NEVER ACTIVE. 

- PAR UNITS C TRIGQER NEVER ACTIVE. 

- RAR UNITS D TRIGGER NEVER ACTIVE. 

- PAR UNITS D TRIGGER NEVER ACTIVE. 

- RAR TENS B TRIGGER NEVER ' ACT IVE. 

- PAR TENS B TRIGGER NEVER ACTIVE. 

- RAR TENS C TRIGGER NEVER ACTIVE. 

- PAR TENS C TRIGGER NEVER ACTIVE. 

- RAR PROBLEM PROBABLY CAUSEO BY ONE OF THE FOLLOWING- 

1. UNITS AND/OR TENS TRIGGERS D AND/OR E 
ALWAYS ACTIVE. . 

2. UNITS ADVANCE NEVER ACTIVE. 

3. TENS ADVANCE NEVER ACTIVE. 

- SAME AS ERROR 123 EXCEPT FOR PAR*. 

- RAR UNITS C TRIGGER ALWAYS ACTIVE. 

- PAR UNITS C TRIGGER ALWAYS ACTIVE. 

- RAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT 

- PAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED* 
PROBLEM MAY BE INTERMITTENT. 

- PROBLEM IN CIRCUITS USED TO DETECT COLUMN 80. 

- RAR UNITS E TRIGGER NEVER ACTIVE* 

- PAR UNITS E TRIGGER NEVER ACTIVE 

- RAR TENS A TRIGGER NEVER ACTIVE. 

- PAR TENS A TRIGGER NEVER ACTIVE 

- FALSE ADDRESS CHECKS 

«**#*««#*««««**«*«««*««««##«*«*«#«•«#*«##«»«««*«#««#«# 
«»#•**#««*«##««*»*#«««•«#*#*•*«#»#«««* «««#««#««*»»«*«• 



DATE 
EC 
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15JUL65 
124265 



17MAR66 
125643 



ID F805-1 
PAGE 5A 



.IBM MAINTENANCE DIAGNOSTIC PROGRAM 



» F8041 2821 SCAN/2540 READER/PUNCH 

F8051 'BUFFER AODR FLT ^ROUTINE OVERLAY 03- 



POST ASSEMBLY DATA. 



REFERENCES TO OEFINED SYMBOLS, 



* DATE 
; EC - 



I 


1048 


CAW 


1942* 


1B62, 


1B88 










I 


1040 


CSW 
















I 


0 


GRO 


lAOEt 


1ABE, 


1AC2, 


1BF8, 


1BFC, 


1C1C, 


1C20 








1C2A, 


1C2E, 


1C46, 


1C5A, 


1C5E, 


1C6A, 


1C6E 








lC92 f 


1C96, 


1CE4, 


1CF4, 


1D02, 


1D10, 


1D1E 








1D2C, 


1D3A, 


1D5A, 


1D68, 


1D70, 


1D7C, 


1D94 








1D9C 














1 


1 


GR1 


193E, 


1942, 


19E2, 


19EE, 


19FA, 


19FE, 


1A08 








1A0E, 


1A0E, 


1B5E, 


1B62, 


1B84, 


1888, 


1BBE 








1C46, 


1C92, 


1C92, 


1CCE, 


1CE4, 


1CF4, 


1D02 








ID 10? 


1D1E, 


1D2C, 


1D3A, 


1D5A, 


1D68, 


1D70 


1 


2 


GR2 


19E6, 


19F2, 


19FA, 


1BC6, 


1BE0, 


1C7A, 


1CE0 








1CF0, 


1CFE, 


1D0C, 


1D1A, 


1D28, 


1036, 


1D48 








1D5E, 


1D6C, 


1DA6 










1 


3 


GR3 


19EAf 


19F6, 


19FC, 


1A84, 


1A9C, 


1AEC, 


1BCA 








1BD2 














1 


4 


GR4 


1BCE, 


1BD2, 


1BE0, 


1BEA, 


1BF8, 


1BFC, 


1C20 








1C36, 


1C7A, 


1C96, 


1C96 








i 


5 


GR5 


1BE6, 


1BEA, 


1BF8, 


1C04 








i 


6 


GR6 


1BFC, 


1C04, 


1C0A, 


1C2E, 


1C2E, 


1D88, 


1098 








1DA0 














i 


7 


GR7 


ICOOt 


1C12, 


1C16, 


1C16, 


1C2A, 


1C2A, 


1C62 








1C72, 


1C80, 


1C8A, 


1D84, 


1D94, 


1D94, 


10AC 


i 


8 


GR8 


192E, 


1A64, 


1AAA, 


1C42, 


1C5A, 


1C5A, 


1C6A 








1C6A, 


1C90 












i 


9 


GR9 


1B2A, 


1B36, 


1BA6, 


1BB2, 


1BC2, 


1C46, 


1C5E 








1C5E, 


1C6E, 


1C6E, 


1CBC, 


1CD2, 


1CE4, 


1CF4 








lD02t 


1D10, 


1D1E, 


1D2C, 


1D3A, 


1D5A, 


1068 








' 1070, 


1D7C, 


1D7C, 


1D9C, 


1D9C 






i 


A 


GRA 


1B2E, 


1B4E, 


1BAA, 


1BB6, 


1C76, 


1CC8, 


1DA8 


l 


8 


GRB 


194E, 


1976, 


19A2, 


19CA, 


1B0E, 


1B6E, 


1B90 








1BD4, 


1CCA 












l 


C 


GRC 


1946, 


199A, 


1B66 










i 


D 


GRD 
















i 


E 


GRE 


1AAE 














l 


F 


GRF 
















i 


4 


LOW 


18E2? 


1C7C 












i 


12E8 


SIO 


194E, 


1976, 


19A2, 


19CA, 


1B6E, 


1B90, 


1B9C 








1DB8 














i 


2 


BUSY 
















100 


17E4 


DRDR 


1982, 


19E2, 


19E6, 


1A30, 


1A74, 


1B20, 


1C72 








1D88 














100 


1850 


DRPU 


19D6, 


19EE, 


19F2, 


1A3A, 


1A4C, 


1A8C, 


1C62 








1098 














8 


18BD 


ERRX 


1CA2, 


1CAC, 


1CB6, 


1CC6 










16EC 


EXIT 


1914, 


1AB2, 


1ABA 












48 


MCAW 


















40 


HCSW 


















2 


HIGH 


















78 


HION 


















1AAE 


PERT 


. 1A6C 
















1004 


SNSW 


1918* 


1926, 


1A5C, 


1A68, 


1AA2 








1231 


UAPU 


19AE, 


1A90 














122D 


HARD 


195A y 


1A78 














8 


ZERO 


















1 


ALL ON 


197E, 


19D2, 


1AB2, 


1B76, 


1B98, 


1C56, 


1090 




5 


ANY ON 


















8 


AVAIL 
















10 


1E4F 


BTAON 


1BC6 














10 


1E63 


BTBON 
















10 


1E77 


BTCON 


1BE6 
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i DATE 

j EC 



10 


1E8B 


BT DON 


1C1C 






10 


1E9F 


BTEON 








10 


1D6B 


BU AON 


1BCE 






10 


1DFF 


BUBON 








10 


1E13 


BUCON 








10 


1 E 27 


BUDON 








10 


1E3B 


BUEON 








2 


1DC8 


C0M50 


1B3A, 


1B44 




1 


1 1 FA 


CS W AG 


1988, 


19DC 




1 


4 


CSWST 








1 


8 


EQUAL 


19 10, 


19FC, 


1A JO, 


8 


17D8 


ERNUM 


1AC2, 


1 AT A 

J.ALA, 


i Arc 


1 


2 


GZ ERO 








16 


18C5 


LGMSG 


1A78, 


1A90, 


1AD8 


1 


1202 


MESS 1 


195A, 


1964, 


1 OA C 


1 


4 


MIXED 








16 


1EB3 


NOERR 


1 AKA 

JLADA 






1 


7 


NZ ERO 








1 


1908 


DT MAI 








i 
i 


1UUU 




1000, 


i nnn. 


1000, 








JLUUU, 


1UUU, 


i nnn. 

IUvU, 








i nnn. 

1UUU, 


lUUUt 


lUUUf 








1000, 


1000, 










i art - 


1 ARC. 


lAV»«t 


l 


1 1 C7 










AO 


i nr a 

1 UU A 


T T T 1 C 
1 1 1 Lt 








1 


10E0 


UN IT 1 








1 


10E4 


UN I T2 








6 




AUUKUU 


TOO A 
1VZA, 


1 Oil 
1700 




6 


195 A 


ADCKO 1 


IV ft 






o 


1 OA A 
170A 










6 


198E 


Anr it *>n 
AUl*l\£U 


i on a 

IVOA 






6 


i a ac 

IV At 


AtifU 

AUUKz:! 








o 


i one 


AL*i»l\ jU 


19AA 






A 

*r 


toco 


a nrir A.n 








2 


19FA 


ADCK41 


19EA, 


111? 
1A 1 i 




4 


1 A16 


ADCK50 


19F6 






6 


1 A4C 


ADCK51 


1A36 






4 


1 A5C 


ADCK52 


1CA4, 


1CAE, 


1CB8 


4 


1 ABE 


ADCK53 


1A84, 


1A9C 




4 


1 AEE 


ADCK60 


1A1A 






4 


1 AFA 


ADCK70- 


1A22, 


1A52 




4 


1B02 


ADCK80 


1A40, 


*1AF6 




4 


1B0A 


ADCK90 


1A48, 


1AF2 




4 


1B36 


ADCK91 


1B26 






4 


1B56 


ADCK92 


1B40, 


1B4A 




4 


1BB2 


ADCK93 


1B5A, 


1BA2 




2 


1 C9E 


ADCK AO 


1B32, 


1BC7 


IDAC. 

IHAci 


4 


1CCA 


ADCKBO 


1AFE, 


1B06 




4 


1D84 


ADCKB1 


1CE0, 


1CF0, 


1CFE, 








1D48, 


1D5E, 


106C 


6 


1DA0 


ADCKB2 


1D90 






4 


1DA8 


ADCKB3 


1D78, 


1D80 




1 


8 


ALLOFF 


191C, 


192A, 


1956, 








1B5A, 


1C0E, 


1C4E 


4 


1BBE 


ALOCOO 


1B0E, 


1CCA 




2 


1BD2 


AL0C10 


1C9A 






4 


1BF8 


AL0C20- 


1BEC 






2 


1C04 


AL0C21 


1C32 






4 


1C2A 


AL0C30 


1C0E, 


1C22 




6 


1C36 


AL0C40 


1BE2 






4 . 


lC4fc 


AL0C50 


1BF4, 


1C06 




4 


1C6A 


AL0C51 


1C56 






4 


1C72 


AL0C52 


1C4E 






4 


1C76 


AL0C53 


1C66 






6 


1C8A 


AL0e54 


1C7C, 


1C86 




4 


1CBC 


AL0C60 


1B2E, 


1B4E, 


1BAA, 


1 


F 


ALWAYS 


1914, 


1966, 


19BA, 



15JUL65 

124265* 



17MAR66 
125643 



1A40, 
1ACE, 



19B8 



1000, 
1000, 
1000, 
1000, 
1ACC, 



1BD4, 
1CBC, 



1C06, 
1CC4 



1C90 



1000, 
1000, 
1000, 
1018, 
1CC4, 



1000, 
1000, 
1000, 
1A74, 
1CC6 



1000 
1000 
1000 
1A76 



1BBA, 1C4.2, 1D84 

1D0C, 1D1A, 1D28, 1D36 

19AA, 1A60, 1A6C, 1AA6 



1BB6, 1C76, 1DA8 

1A12, 1A48, 1ABA, 1AEC 
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1AF6, 


lAFE, 


1B06, 


1B32, 


IB 52 , 


1BAE, 


1BBA 








1BF4, 


1C32, 


1C66, 


1C86, 


1C9A, 


1CA4, 


1CAE 








1CB8, 


ICC 8, 


1D78, 


1D80, 


1DAC 






10 


1 E59 


BT AOFF 


















1 E6D 


BTBOFF 
















1 ft 


1 CO 1 
A CO 1 


BTCOFF 
















i n 
j. if 




BT DO F F 
















lU 


t C AO 

1 fc AY 


BTEOFF 


1BCA 
















1 nc*; 


BU AOFF 
















1U 


1 cno 

JL CU7 


nuance 
















JLU 


I till 


BUCOFF 
















i r\ 
1U 


1E31 


dii nrt c c 
BliUupr 
















t n 


1 CAR 


BUEOFF 
















I 




f ALf If CV 
















g 


1DB0 


rpnrru 


1Q1C 
173C 














1 




rcuQ AM 
loWoAV 
















1 


1 ACA 

JLO CO 


PYTT RV 
C A JL 1 DT 


















i onr 


1 ri 1 1 UU 


1B76, 


1B98 














1 Q 1 a 

L 7 It) 




1910 


















INITIO 


191C 
















18DF 


LGMSG1 


«1ACE 














1 


C 


MIXNON 
















I 


6 


NtvJUAL 


1A1A, 
1BA2, 


1A22, 
1BEC, 


1A52, 
1C22, 


1AF2, 
1DA6 


1B26, 


1B40, 


1B4A 


1 


9 


NMIX ED 
















1 


D 


NOTBSY 
















1 


4 


NOTZRO 
















8 


18B4 


PCSWAG 


19DC, 


IAIE9 


1A96, 


1AEE, 


1B44 






8 


1DC0 


PURCCW 


1B84 














8 


1DB8 


PUWCCW 


1B5E 














2 


1DE9 


R03KO0 


1932, 


196A, 


198E, 


19BE 








8 


1848 


RCSWAG 


1988, 


1A16, 


1A7E, 


1B3A 








4 


17 EO 


RESCNT 


1A7E, 


1A96, 


1ABE 










I 
j. 








1 AB6 












1 


1234 


SCPDAT 


1932, 


1938, 


1938, 


1952, 


196A, 


1970, 


1970 








197A, 


1982, 


198E, 


1994, 


1994, 


19A6, 


19BE 








19C4, 


19C4, 


19CE, 


19D6, 


19FE, 


1A04, 


1A08 








1A26, 


1A2A, 


1A2A, 


1A30, 


1A3A, 


1A4C, 


1A76 








1A8E, 


1ADE, 


1AE4, 


IAEA, 


1B12, 


1B16, 


1B16 








1B1C, 


1B20, 


1B7A, 


1B7E, 


1B7E, 


1B9C, 


1BD6 








1BDA, 


1BDA, 


1BF0, 


1C00, 


1C26, 


1C36, 


1C3C 








1C3C, 


1C80, 


1C8A, 


1CD6, 


1CDA, 


1CDA, 


1CE8 








1CEC, 


1CF8, 


1CF8, 


1D06, 


1D06, 


1D14* 


1D14 








1D22, 


1D22, 


1D30, 


1030, 


1D3E, 


1D42, 


1D42 








1D4C, 


1D50, 


1050, 


1D56, 


1D62, 


1062, 


1DA0 








1DB0, 


1DC0 














163E 


SCPROO 


192E, 


1A64, 


1AAA 












114D 


SIOSWS 


194A, 


199E, 


1B6A, 


1B72, 


1B8C, 


1B94 






112C 


SI0VR3 


















1134 


SI0VR4 


















11F8 


STATSV 


















18BC 


SWITCH 


1A44, 
1D74, 


1AFA, 
1D8C 


1B02, 


1B0A, 


1B56, 


1C4A, 


1C52 




10E2 


UN1ADR 


1946 
















10E6 


UN2ADR 


199A, 


1B66 
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1000 XF8051 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



001015 



001060 
001065 



0017D0 
0017D0 
0017D8 



0017E0 
0017E0 
0017E4 



0017E8 
0017F1 
0017F6 



001950 

0100000001% 
001BB18 



001000 
"002000 



001000 
001004 
001040 
001048 
0010E0 
0010E2 
0010E4 
0010E6 
00112C 
001134 
00114D 
0011F8 
0011FA 
001231 
00112C 
00114C 
0011F7 
00122D 
0016EC 
0016E6 
00179C 
001234 
00163E 
0012E8 
001060 
001714 
00171C 
000048 
000040 
001202 
00114D 

001015* 

001060 



0O17D0 



0000000000000000 
0000000000000000 



00000000 

00000000 



000000000000000000 
0000000000 

oooooooooooooooooo 



.8051 TITLE F8051 
XF8051 START 4096 

USING *,15 

USING *64096,10 

*«•«•»*«•»**»***«•*««»«*«*»*•#•««•««* »»##«»♦*♦♦#»**#**#«#«♦»#»«» 

* THIRD OVERLAY - ROUTINE 04 

♦ RESIDENT LABELS ADDRESSED BY OVERLAYS 

SECST EQU 
SNSW EQU 
CSW EQU 
CAW EQU 
UNIT1 EQU 
UN1ADR EQU 
UNIT2 EQU 
UN2ADR EQU 
SI0VR3 EQU 
SI0VR4 EQU 
SIOSWS EQU 
STATSV EQU 
CSWAG 
UAPU 

CSWSAV EQU 
CAWKEY EQU 
SENSE 
UARD 
EXIT 
EXITBY 
SCHNUM EQU 
SCPDAT EQU 
SCPROO EQU 
SIO EQU 
SVRPSW EQU 
EXIT1 EQU 
EXIT2 
HCAW 
HCSW 
MESS1 



*•*•«** 
*•««•«• 



EQU 

EQU 



EQU 
EQU 
EQU 
EQU 



SECSTS4 
SECST664 
SECST&72 
SECSTS224 
SECST6226 
SECSTS228 
SECSTS23Q 
SECST&300 
SECSTS308 
SECSTG333 
SECSTG504 
SECST&506 
SEC STC561 
5ECSTO00 
SECSTH332 
SECSTS503 
SECST£557 
SECSTS1772 
SECSTS1766 
SEC STG1948 
SECSTG564 
SECSTC1598 
SECST&744 
SECST696 
SECST&1812 
SECSTC1820 
72 
64 

SEC STS514 
SECSTG333 

ORG SECSTS21 

DC AL3 ( RTN04) 

ORG SECST&96 

DC X»010000000F« 

DC AL3(R0CRD1) 

ORG SECSTS2000 

«**•»**»*«»**••««•« *«»«»«»»*»««ft« # «* ## « ### «« ##w » tf### » ###### « ###v######v 

*»**♦#***###**»#***»♦#»#*♦*♦»**#♦##»♦♦ «««t»«#e«««»««i»««»«»t««*«««»«««» 

* VARIABLES-DOUBLE WORD BOUNDARY- * 
#**«*#«**«#**»»«#«*««***#«*«««««•###«**»** »*»»««**•««« «*«•**•**«*••»««» 

CNOP 0,8 
WKAR3 DC XL8»00« 
WKAR4 DC XL8»00» 

#*#*♦**»#***##«#*#»♦* #**♦*****#♦***#*##»###*#*»»»»**»»»♦##»*«*♦♦#»«###» 

* VARIABLES - WORD BOUNDARY- » 
••«*»««**#**«*******•**«•• **»•»»#♦##♦*#«♦♦♦♦#»♦»♦#*#♦♦##»###########»#* 

CNOP 0,4 
TSTOR DC XL4»00* 
ERNO DC XL4 f 00« 

•*»•*•*»«*#*«*«•»**»*»•««*•«**»* •««*#••«•««*•••«•»#«*««««*««*««*«»***«* 

* VARIABLES. -NO BOUNDARY- • 
**«*•»*«•»»»**«**»*«»•«*«»« #****#»•***•#♦»###**#*•#♦#«♦«##»**»#♦*#«##*# 
DRDAT DC 6XL 14*00 • 



EQU 
EQU 
EQU 
EQU 
SIOSWS EQU 



INITIAL PSW STARTING A DDR FOR RTN 04 
SVC RETURN PSW 



DATE 
EC 



15JUL65 

12426$ 



17MAR66 
125643 
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0017FF 0000000000 

001804 00000000000000*0000 

00180D 0000000000 

001812 000000000000000000 

00181B 0000000000 

001820 000000000000000000 

001829 0000000000 

00182E 000000000000000000 

001837 0000000000 

00183C 000000000000000000 

001845 0000000000 

00184A 000000000000000000 

001853 0000000000 

001858 000000000000000000 

001861 0000000000 

001866 000000000000000000 

00186F 0000000000 

001874 oooooooooooooaoooo 

00187D 0000000000 

001882 000000000000000000 

00188B 0000000000 

001890 000000000000000000 

001899 0000000000 

00189E 000000000000000000 

0018A7 OOOOOOOOOO 

0018AC 000000000000000000 

0018B5 0000000000 

0018BA 000000000000000000 

0018C3 0000000000 

0018C8 000000000000000000 

001801 0000000000 

0018D6 000000000000000000 

0018DF 0000000000 

0018E4 000000000000000000 

0018ED 00000000000000 

0018F4 000000000000000000 

0018FD OOOOOOOOOOOOOO 

001904 000000000000000000 

00190D OOOOOOOOOOOOOO 

001914 000000000000000000 

00191D OOOOOOOOOOOOOO 

001924 000000000000000000 

00192D OOOOOOOOOOOOOO 

001934 000000000000000000 

00193D OOOOOOOOOOOOOO 

001944 00 

001945 C5D9D940E7E7E7E7 



SENDAT DC 6XL14»00 t 



CKRDAT DC 



6XL14 8 00 9 



COMDAT DC 



6XL16«00» 



ERSW1 DC X«00 9 
ERRX DC C 8 ERR XXXX* 
»»##«*«#♦**#**•*»****•♦»*#* 
* ROUTINE 04 PREFIX 

*««*«»**»*•*#»*»«##***«*##»»**««»«*«*«**##*#»*#«#*«»*«»«***********»*« 



»««»***•«**** 



00194E 








CNOP 


0*4 




001 94E 


07 00 






BCR 


0,0 




001950 


04 




RTN04 


DC 


XL1«04» 


ROUTINE NUMBER 


001951 


00 






DC 


XLi'OO* 


FLAGS 


001952 


FFFE 






DC 


X 'FFFE * 


ADDRESS OF NEXT ROUTINE 


001954 


95 84 


F 


» 

79C RTOO 


CLI 


SCHNUM,X»84 8 


SEE IF SHOULD RUN THIS ROUTINE 


001958 


47 80 


F 


96E 


BC 


EQUAL tRTOl 


BRCH IF YES 


00195C 


95 00 


F 


79C 


CLI 


SCHNUM,X»00« 


SEE IF SHLD RUN THIS ROUTINE 


001960 


47 80 


F 


96E 


BC 


EQUAL tRTOl 


* , BRCH IF YES 


001964 


02 02 


F 


065 F FED RTOX 


MVC 


SVRPSWG5(3) »SCRAD 


SET UP RETURN SVC PSW ADDR 


00196A 


47 FO 


F 


714 


BC 


ALWAYS, EXIT1 


BYPASS DATA CARDS £ ROUTINE EXIT 


00196E 


91 02 


F 


004 RT01 


TM 


SNSW, X'D2» 


SEE IF WANT TITLE PRINTOUT 


001972 


47 80 


F 


97C 


BC 


ALL0FF,RT02 


, , BRCH IF NO 


001976 


OA DO 






SVC 


X'DO* 


PRINT TITLE 


001978 


8*0 






DC 


X*80« 


,, NORMAL OUTPUT 


001979 


OE 






DC 


X'OE' 


,, 14 CHARACTERS 


00197A 


F F58 






DC 


Si TITLE) 


ADDRESS OF TITLE 


DATE 


15JU165 




17MAR66 






' ID F805-1 


EC. 


124265 




125643 
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00197C 


91 


40 


F 


004 


RT02 


TM 


SNSW,X»40« 


SEE IF WANT UTILITY ROUTINE 


00X980 


47 


80 


F 


988 




BC 


ALLOFF ,RT03 


,, BRCH IF NO 


001984 


45 


80 


F 


63E 




BAL 


GR8»SCPR00 


BRCH TO UTILITY ROUTINE 












* 


DATA 


COLLECTION ROUTINE 




001988 


41 


10 


F 


E58 


• 

RT03 


LA 


GR1* INDAT 


INITIALIZE 


00198C 


41 


20 


F 


7E8 




LA 


GR2,DRDAT 




001990 


41 


30 


F 


83C 




LA 


GR3t SENDAT 




001994 


41 


40 


F 


890 .* 




LA 


GR4, CKRDAT 




001998 


IB 


66 








SR 


GR6,GR6 




00199A 


92 


00 


F 


8E4 




MVI 


* COMDAT, X» 00* 


9 , 


00199E 


02 


5E 


F 


8E5 F 8E4 




MVC 


C0MDAT&1 ( 951 , COMDAT 


* f 


0019A4 


45 


AO 


F 


BE6 


RT04 


BAL 


GRA,DWR 


GO PERFORM DI AG WRITE TO READER 


0019A8 


45 


AO 


F 


CIO 




BAL 


GRA ,DRR 


GO READ RD BUFFER 


0019AC 


D7 


03 


F 


7E0 F 7E0 




XC 


TST0R(4),TST0R 


COMBINE READ DATA 6 INVAL CARD CODE 


0019B2 


D2 


00 


F 


7E0 2 000 




MVC 


TST0R(1),0(GR2) 


* t 


0019B8 


91 


08 


3 


000 




TM 


0(GR3),X*08» 




0019BC 


47 


80 


F 


9C4 




BC 


ALLOFF, RT05 




0019C0 


92 


80 


F 


7E1 




MVI 


TST0R61,X»80« 


* » 


r\r% 1 oca 


tZQ 

!>o 


DU 


c 
r 


T Eft 


K 1 U3 




ro a _ TC-rriD 

OKD ,1^1 UK 


1 1 


0019C8 


18 


96 








LR 


GR9,GR6 


9 , 


fin i or a 

UU 1 7V»A 


cr 
7l> 


sirs 

OU 


r 






M 


GR8,NINE 


ft 


0019CE 


IB 


88 








SR 


GR8,GR8 


9 9 


00 19 DO 


5D 


80 


F 


E4C 




D 


GR8, EIGHT 


9 9 


0019D4 


88 


BO 


8 


000 




SRL 


GRB,0(GR8) 


9 9 


0019D8 


50 


BO 


F 


7E0 




ST 


GRB , TSTOR 


» » 


0019DC 


41 


99 


F 


8E4 




LA 


GR9»C0MDAT(GR9) 


9 9 


0019E0 


06 


03 


9 


000 F 7E0 




OC 


0(4, GR9J , TSTOR 


9 9 


0019E6 


41 


60 


6 


001 




LA 


GR6,1(GR0,GR6) 


SEE IF END OF DATA COLLECTION 


0019EA 


41 


80 


0 


051 




LA 


GRB,81(GR0,GR0) 


1 1 


001 9EE 


15 


6B 








CLR 


GR6,GRB 


, 9 


0019F0 


47 


80 


F 


A08 




BC 


EQUAL, RT06 




0019F4 


41 


10 


I 


002 




LA 


GR1,2(GR0,GR1) 


UPDATE ADDRESSES FOR NEXT CHARACTER 


0019F8° 


41 


20 


2 


001 




LA 


GR2,1(GR0,GR2) 


»*» . 


0019FC 


41 


30 


3 


001 




LA 


GR3,1(GR0,GR3> 


9 9 


001 AOO 


41 


40 


4 


001 




LA 


GR4,1(GR0,GR4) 


9 9 


001A04 


47 


FO 


F 


9A4 




BC 


ALWAYS, RT04 


GO COLLECT DATA FOR NEXT CHARACTER 


001A08 


41 


10 


1 


002 


RT06 


LA 


GR1,2(GR0,GR1> 




001A0C 


45 


AO 


F 


BE6 




BAL 


GRA ,DWR 


CLEAR VALIDITY CHECK 












* 
* 


ERROR DETECTION ROUTINE 




001A10 


D5 


5B 


F 


8E4 F EFC 


♦ 

RT10 


CLC 


COMDAT (92) ,OUTDAT 


SEE IF GOT ANY ERRORS 


001A16 


47 


60 


F 


A1E • 




BC 


NEQUAL »RT20 


BRCH IF YES 


001A1A 


47 


FO 


F 


C6C ' 




BC 


ALWAYS, LGOUT 


GO SEE IF WANT LOG OUT 


001A1E 


41 


10 


0 


054 


; RT20 


LA 


GR1,84(GR0,GR0) 


INITIALIZE DATA RECORD COUNT 


001A22 


92 


84 


F 


79C 




MVI 


SCHNUM,X»84» 


SET UP TO BYPASS ALL REMAINING OVLY! 


001 A26 


OA 


DB 








SVC 


X * DB • 


LOAD FIRST DATA CARO IN BUFFER 


001A28 


0234 








DC 


AL2(SCPDAT-SECST) 


i 9 


001A2A 


45 


BO 


F 


B8E 


PT051 


BAL 


GRB,RDCRD 


GO READ A DATA CARD 


001A2E 


41 


90 


F 


234 


PT06 


LA 


GR9,SCPDAT 


SET UP CURRENT DATA ADDRESS 


001A32 


92 


00 


F 


944 


PT061 


MVI 


ERSW1,X»00» 


RESET ERR SW 1 


001A36 


IB 


22 








SR 


GR2,GR2 


SET COUNT OF MASKS IN 6R 2 


001A38 


43 


20 


9 


000 




IC 


GR2,0(GR0,GR9) 


t , 


001A3C 


41 


90 


9 


001 




LA 


GR9,1(GR0,GR9) ' 


UPDATE CURRENT ADDR BY 1 


001A40 


43 


30 


9 


000 


PT062 


IC 


GR3,0(GR0,GR9) 


SET CC IN GR 3 


001 A44 


89 


30 


0 


018 




SLL 


GR3,24 




001A48 


41 


90 


9 


001 




LA 


GR9,1(GR0,GR9) 


UPDATE CURRENT ADDR BY 1 


001A4C 


41 


40 


0 


004 




LA 


GR4,4(GR0,GR0) 


SET 4 IN GR 4 


001A50 


41 


50 


F 


8E4 


PT063 


LA 


GR5, COMDAT 


SET TEST DATA ADDR 


001A54 


IB 


88 








SR 


GR8,GR8 


SET UP TEST ADDRESS 


001A56 


43 


80 


9 


000 




IC 


GR8,0(GR0,GR9) 


* * - . 


001A5A 


41 


58 


5 


000 




LA 


GR5,0(GR8,GRi;) 




001A5E 


41 


90 


9 


001 




LA. 


GR9,1(GR0,GR9) 


UPBATE CURRENT ADDR BY I 


001A62 


43 


60 


9 


000 




IC 


GR6,0(GR0,GR9) 


SET UP MASK 


001A66 


41 


90 


9 


001 




LA 


GR9,1(GR0,GR9) 


UPDATE CURRENT ADDR BY 1 


001A6A 


50 


20 


F 


7 DO 




ST 


GR2/WKAR3 


CONVERT CC 



DATE " 15JUL65 17MAR66 ID F805-1 

EG 124265 125643 PAGE 8A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



• F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 



P/N 840260 
PAGE 9A 



001 A6E 


IB 


22 












SR 


GR2 t GR2 


» * 




001A70 


41 


70 


0 


080 








LA 


GR7 t 128 


» i 




Q01A74 


8D 


20 


0 


002 








SLDL 


GR2»2 


it 




001A78 


88 


70 


2 


000 








SRL 


GR7t 0{ GR2 ) 


» t 




001A7C 


49 


70 


F 


E52 








CH 


/•> r& -t» Tun TO 

GR7, THRTZ 


I S CC 2 




001 A80 


47 


60 


F 


A88 








BC 


NEQUAL » PT0630 


nnru t c Kin 




001A84 


41 


70 


0 


050 








LA 


GR7, 80 


cct rr cno akiv no ai i 
J>t 1 L-L- rUK AIMT UK ALL 




001A88 


58 


20 


F 7 DO 






PT0630 


L 


GR2, WKAR3 


RESTORE bR Z 




001 ABC 


44 


60 


F 


87 E 








EX 


GR6tTMA 


TT C T n A T A 

TEST DATA 




001A90 


44 


70 


F 


B82 








EX 


GR7»BC0N 


BRCH Ir fc RRUR KtSULt 




001 A94 


92 


FF 


F 


944 








MVI 


ERSW1 t X , FF » 


TURN ON ERR SW 1 




001A98 


46 


20 


F 


AF8 








BCT 


GR2t PT067 


BRCH IF NOT END OF MASKS rUR 1 nib 


CC 


001A9C 


46 


40 


F 


A AO 








BCT 


GR4,«64 


UPDATE CURRENT ADDRESS 




001 A AO 


IE 


94 












ALR 


GR9,GR4 


t , 




001AA2 


IE 


94 












ALR 


GR9,GR4 


» » 




001AA4 


41 


80 


F 


27A 






PT0631 


LA 


GR8, SCPDAT670 


DOES THIS CARD CONTAIN NEXT DATA 


FLD 


001AA8 


41 


70 


9 


003 








LA . 


GR7 , 3 (GR0»GR9 J 


» » 




001 A AC 


15 


78 












CLR 


GR7, GRo 


t » 




001AAE 


47 


20 


F 


ADA 








BC 


H IGHf PT065 


nnru V C kin 

» f BRCH I r NU 




001AB2 


91 


10 


F 


004 








TM 


SNSW, X * 10* 


PRINT CORRECT RESUL lb 




001AB6 


47 


FO 


F 


AC4 








BC 


ALWAYS? PT064 


tt BRCH I F NO 




001A8A 


02 


03 


F 


949 


9 


000 




MVC 


ERRX£4(4) ,0(GR9) 


SET FAULT NO IN MESSAGE 




001AC0 


45 


BO 


F 


B86 








BAL 


GRBt PRCRES 


GO PR I NT FAULT NO. 




001AC4 


41 


90 


9 


004 






PT064 


LA 


GR9 f 4IGR0, GR9I 


UPDATE CURRENT ADDR BY 4 




001AC8 


41 


80 


F 


27A 








LA 


GR8 1 SCPDA T670 


Due o I H I 5 LARU C UiM IAIN NtA I UA 1 A 


rzt n 

rt-U 


001ACC 


41 


70 


9 


009 








LA 


GR7,9(GRU,bK9J 


» » 




001 ADO 


15 


78 












CLR 


/■* r\ ~7 f* r% q 

GR7»GR8 


9 t 




001AD2 


47 


20 


F 


A2A 








BC 


HIGHfPTOSl 


t 9 BRCH I r NU 




001 AD6 


47 


FO 


F 


A32 








BC 


ALWAYSf PT061 


CONTI NUE 




001ADA 


45 


BO 


F 


B8E 






PT065 


BAL 


GRB » RDCRD 


READ A DATA LARU 




001 ADE 


91 


10 


F 


004 








TM 


SNSWf X • 10 ' 


DDI KIT f HO DCfT n C CI II T C 




001AE2 


47 


FO 


F 


AFO 








BC 


ALWAYS » PT066 


f t BRLH I r NU 




001AE6 


D2 


03 


F 


949 


F 


234 




MVC 


ERRX&414) t SCPDAT 


St I PAULI NU IN ntbb Abe 




001AEC 


45 


BO 


F 


B86 








BAL 


GRB , PRCRE S 


GO PRINT FAULT NO. 




001AF0 


41 


90 


F 


238 






PT066 


LA 


GR9f SCPDATS4 


St 1 LURRt Nl AUUK toJ> 




001 AF4 


47 


FO 


F 


A32 








BC 


ALWAYS»PT061 


f r»MT T hit 1 c 

CUN 1 I NUt 




001 AF8 


46 


40 


F 


A50 






PT067 


BCT 


GR4, P 1 063 


a or u tc nm wnT ■ ucc a ^A^ifc 
DKLH ir UiU Nut UaC *f riAofvo 




001 AFC 


41 


80 


F 


27A 








LA 


p n n cr an* Tftn 

GR8 » SCPDA J tx 1 0 


nnc c tu i c r adi> r nwT a 1 lu ki py t data 
UUt 5 llilb UAKU UUiVI A IN N CA 1 UA 1 A 


ci n 

rL U 


00 1 BOO 


41 


70 


9 


008 








LA 


GR7 t 8 ( GRO ,bR9 J 


* ? 




001B04 


15 


78 












CLR 


r* to "v o 

GR 7»bR8 






001B06 


47 


CO 


F 


A40 








BC 


LUtU , P I yjoc 


9 f DKUn 1 r ICO 




001B0A 


45 


BO 


F 


B8E 








BAL 


f* o D nnf on 
bKb , KUtKU 


op A n a n at A r ad n 

KCftU A UA ! A L« Ar\ U 




00180E 


41 


90 


F 


234 








LA 


bR9, SCPDA T 


ccr rifODCWT Anno ccc 
5t 1 L-UKKt Ni AUUrv too 




001B12 


47 


FO 


F 


A40 








BC 


ALWAYS, P 1 Uo£ 


L-Urf 1 l ryufc 




001B16 


46 


20 


F 


AF8 






PT068 


BCT 


GR2»PTQ67 


nnru TC M riT 1 ACT UACI/ 

BKOH 1 r NU 1 LAo 1 nAof\ 




001B1A 


46 


40 


F 


B1E 








BCT 


GR4,*£4 


UPDATE CURRENT ADDRESS 




001 B1E 


IE 


94 












ALR 


no q da u 


it 




001B20 


IE 


94 












ALR 


GR9,GR4 


i f 




001B22 


91 


FF 


F 


944 








TM 


ERSW1,X 9 FF« 


SEE IF ERR SW 1 ON 




001B26 


47 


10 


F 


AA4 








BC 


ALL0N,PT0631 


, t BRCH IF YES 




001B2A 


41 


80 


F 


27A 








LA 


GR8 1 SCPDATS70 


DOES THIS CARD CONTAIN NEXT DATA 


FLD 


001B2E 


41 


70 


9 


003 








LA 


GR7,3(GR0,GR9) 


t f 




001B32 


15 


78 












CLR 


GR7,GR8 






001B34 


47 


20 


F 


B72 








BC 


HIGH,PT06A 


" BRCH IF NO 




001B38 


D2 


02 


F 


949 


9 


001 


PT069 


MVC 


ERRXG4 ( 3) , 1 (GR9) 


MOVE ERROR NO. TO ERROR MESSAGE 




001B3E 


D7 


07 


F 


7 DO 


F 


700 




XC 


WKAR3 ( 8) t WKAR3 


CONVERT ERR NO. TO BINARY .£ SAVE 




001B44 


D2 


02 


F 


7D5 


9 


001 




MVC 


WKAR3£5{3) ,1<GR9) 


1 1 




001 B4A 


F2 


22 


F 


705 


F 


7D5 




PACK 


WKAR365(3) ,WKAR365<3) 


» t 




001B50 


4F 


80 


F 


7 DO 








CVB 


GR8,WKAR3 


1 1 




001B54 


41 


80 


8 


08 C 








LA 


GR8,140(GR0,GR8) 


1 1 




001 B58 


50 


80 


F 


7E4 








ST 


GR8tERN0 


it 




001B5C 


4E 


60 


F 


7 DO 








CVD 


GR8, WKAR3 


CONVERT ERROR NO. TO PRINTABLE 




001B60 


OA 


DO 












SVC 


X»DD« 


1 1 




001 662 


0002 












DC 


AL2( 2) 


1 1 




001864 


0706 












DC 


AL2(WKAR366-SECST) 


» » 




001866 


0949 












DC 


AL2(ERRX£4-SECST) 






001 B68 


OA 


DO 












SVC 


X«D0« 


ERR XXX - SEE ERN0 £ ERR DEFINSHUN 


001 86 A 


44 














DC 


X»44« 


tt ERROR OUTPUT 





001B6B 


07 










DC 


X'07 1 


001 B6C 


F 945 








DC 


S(ERRX) 


001B6E 


47 


F0 


F 


C6C 




BC 


ALWAYStLGOUT . 


001B72 


45 


B0 


F 


B8E 


PT06A 


BAL 


GRB f RDCRD 


001B76 


41 


90 


F 


234 




LA 


GR9, SCPDAT 


001B7A 


47 


F0 


F 


B38 




BC 


ALWAYS, PT069 


001B7E 


91 


00 


5 


000 


TMA 


TM 


0(GR5),X»00* 


001B82 


47 


00 


F 


B16 


BC0N 


BC 


NA,PT068 












* * 
# 


ROUTINE TO PRINT FAULT 


001B86 


OA 


00 






» 

PRCRES 


SVC 


X«D0* 


001B88 


80 










DC 


X«80« 


001B89 


06 










DC 


X'08 1 


001B8A 


F 


945 








DC 


S«ERRXI 


001B8C 


07 


FB 








BCR 


ALWAYS, GRB 



ROUTINE TO READ DATA CARDS 



001B8E 


92 00 


F 


234 


RDCRD 


MVI 


SCPDAT, X«00 # 


001B92 


02 4E 


F 


235 F 234 




MVC 


SCPDATS1 i 795 , SCPDAT 


001B98 


OA DB 








SVC 


X«QB« 


001 B9A 


0234 








DC 


AL2 ( SCPDAT- SEC ST) 


00189C 


41 10 


1 


001 




LA 


GR1,UGR0,GR1I 


0018AO 


4E 10 


F 


7 DO 




CVD 


GR 1 » WKAR3 


001BA4 


OA DD 








SVC 


X«DD» 


0018A6 


0002 








DC 


AL2C2I 


001BA8 


0706 








DC 


AL2f WKAR3S6-SECSTI 


001 BAA 


07 D8 








DC 


AL2<WKAR4~SECST* 


001BAC 


05 02 


F 


7D8 F 281 




CLC 


WKAR4(3KSCPDAT£77 


001BB2 


47 60 


F 


BC2 




BC 


NEQUAL , ROCROX 


0OIBB6 


07 FB 








BCR 


ALWAYS, GRB 


001 BB8 


58 20 


F 


E54 


RDCRD 1 


L 


GR2,CDCNT 


001BBC 


15 21 








CLR 


GR2 ,GR 1 


0018BE 


47 80 


F 


804 




BC 


EQUAL ,R0CRD2 


001BC2 


41 30 


0 


08C 


RDCROX 


LA 


GR3,140IGR0tGR0l 


001BC6 


50 30 


F 


7E4 




ST 


GR3,ERN0 


001BCA 


OA DO 








SVC 


X«D0» 


OOLBCC 


44 








DJC 


X*44» 


001BCD 


07 








DC 


X»07» 


001BCE 


F FFO 








DC 


SCERR140) 


0018D0 " 


47 FO 


F 


C6C 




BC 


ALWAYS, LGOUT 


001 B04 


41 30 


0 


080 


RDCRD2 


LA 


GR3,141CGR0,GR0I 


0018D8 


50 30 


F 


7E4 




ST 


GR3,ERN0 


001 BDC 


OA DO 








SVC 


X»00» 


001BDE 


44 








DJC 


X 9 44« 


001 BOF 


07 








DC 


X»07» 


001BE0 


F FF7 








DC 


SIERR141) 


001BE2 


47 FO 


F 


C6C 




BC 


ALWAYS, LGOUT 



,, 7 CHARACTERS 
,V MESSAGE ADDRESS 

GO SEE IF WANT LOG OUT 

READ A DATA CARD 

SET CURRENT ADDRESS 

CONTINUE 

TEST DATA 



PRINT FAULT NO. 
,, NORMAL OUTPUT 
,, 8 CHARACTERS 
,, MESSAGE ADDRESS 

RETURN TO MAIN PROGRAM 



CLEAR READ BUFFER 
t * 

READ A DATA CARD 

READ BUFFER ADDRESS 

INCREASE CARD COUNT 

CONVERT CARD NO. TO PRINTABLE 



SEE IF DATA CARD SEQUENCE OK 

t, BRCH IF NO 
RETURN TO MAIN PROGRAM 
SEE IF CORR NO. DATA CARDS RE AO. 

II BRCH IF YES 

SET UP ERROR NO. 

ERROR 140 - MISSING DATA RECORDS OR 
f , DATA RECORDS OUT OF SEQ 

»» 7 CHARACTERS 

, , MESSAGE ADDRESS 
GO SEE IF WANT LOG OUT 
SET UP ERROR NUMBER 

ERROR 141 - CAN NOT ISOLATE FAILURE 

ERROR MESSAGE 
ff 1 CHARACTERS 

MESSAGE ADDRESS 
GO SEE IF WANT LOG OUT 



ROUTINE TO PERFORM DIAGNOSTIC WRITE TO READER 



001BE6 


48 


CO 


F 


0E6 


DWR 


LH 


GRC , UN2ADR 


SET PUNCH I/O ADDR IN GR 12 


001BEA 


02 


01 


F 


234 1 000 




MVC 


SCPDATC2) ,0CGR1 ) 


LOAD WRITE DATA 


001BF0 


02 


90 


F 


236 F 234 




MVC 


SCP0ATS2U58) , SCPDAT 




001BF6 


41 


00 


F 


E30 




LA 


GRO.RWRCCW 


LOAD ADDR OF READER WRITE CCW 


001BFA 


50 


00 


F 


048 




ST 


GR0,CAW 




001BFE 


92 


00 


F 


14D 




MVI 


SI0SWS,X»00« 


RESET SIO SWS -USE PUNCH ADDRESS- 


001C02 


45 


BO 


F 


2E8 




BAL 


GRB,SI0 


BRCH TO SIO ROUTINE 


001C06 


91 


01 


F 


140 




TM 


SI0SWS,X«01» 


SEE IF INTERVENTION REQ SW ON 


001C0A 


47 


10 


F 


BE6 




BC 


ALL0N,DWR 


,, REPEAT WRITE IF YES 


001C0E 


07 


FA 








BCR 


AL-WAY$ y GRA 


RETURN TO MAIN PROGRAM 












•■* 


ROUTINE TO REAO READER BUFFER 


001C10 


92 


00 


F 


234 


• 

DRR 


MVI 


SCPDAT, X»00» 


CLEAR READ FIELD 


001C14 


02 


9E 


F 


235 F 234 




MVC 


SCPDATG1 1 159) , SCPDAT 




001C1A 


41 


00 


F 


E38 




LA 


GRO,RRDCCW 


LOAD ADDR OF READER READ CCW 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



ID F805-1 
PAGE 9 



DATE 
EC 



15JUL65 
124265 



17MAR66 

125643 



ID F805-1 

PAGE 9A 



1 



I IBM MAINTENANCE DIAGNOSTIC PROGRAM • P/N 840260 

I ■ PAGE .10 

j * F8041 2821 SCAN/2540* READER/PUNCH 

! F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 



001C1E 


50 


00 


F 


048 








ST 


GRO»CAW 


* » 


001C22 


92 


02 


F 


14D 








MVI 


SI0SWS,X»Q2 e 


RESET SIO SWITCHES -USE REAOER 


001C26 


48 


CO 


F 


0E2 








LH 


GRCUN1ADR 


LOAD READER ADDR IN GR 12 


001C2A 


45 


BO 


F 


2E8 








BAL 


GRB, SIO 


BRCH TO SIO ROUTINE 


001C2E 


91 


01 


F 


140 








TM 


SI05WS,X 9 01 9 


SEE IF INTERVENTION REQ SW ON 


001C32 


47 


10 


F 


9A4 








BC 


ALL0N,RT04 


, , RETRY WRITE £ READ IF YES 


001C36 


D2 


00 


2 


000 


F 


234 




MVC 


0(1, GR2), SCPDAT 


SAVE READ DATA 


001C3C 


D2 


00 


3 


000 


F 


1F7 




MVC 


0(1, GR3), SENSE 


SAVE READ SENSE DATA 
















* 
* 


ROUTINE TO PERFORM READER 


DIAGNOSTIC CHECK READ 


001C42 


41 


00 


F 


E40 






DCRR 


LA 


GROfCRDCCW 


LOAD ADDR OF DI AG CK RD CCW 


001C46 


50 


00 


F 


048 








ST 


GRO, CAW 




001C4A 


92 


02 


F 


14D 








MVI 


SlOSWSf X«02" 


RESET SIO SWS -USE READER- 


001C4E 


92 


00 


F 


234 








MVI 


SCPDAT,X 9 00 9 


CLEAR READ FIELD 


001C52 


D2 


9E 


F 


235 


F 


234 




MVC 


SCPDATG1 ( 159) , SCPDAT 




001C58 


45 


BO 


F 


2E8 








BAL 


GRB t SIO 


BRCH TO SIO ROUTINE 


001C5C 


91 


01 


F 


14D 








TM 


SI0SWS,X 9 01« 


SEE IF INTERVENTION REQ SW ON 


001C60 


47 


10 


F 


9A4 








BC 


ALL0N,RT04 


, , RETRY WRITE & READ IF YES 


001C64 


02 


00 


4 


000 


F 


234 




MVC 


0(1,GR4), SCPDAT 


SAVE CHECK READ DATA 


00IC6A 


07 


FA 












BCR 


ALWAYStGRA 


RETURN TO MAIN PROGRAM 
















* 
* 

*' 


LOG 


OUT ROUTINE 




001C6C 


91 


20 


F 


004 






LGOUT 


TM 


SNSW,X 9 20 9 


SEE IF WANT LOG OUT 


001C70 


47 


80 


F 


E1C 








BC 


ALLOFF *LG0UTX 


BRCH IF NO 


001C74 


92 


60 


F 


234 








MVI 


SCPDAT, C • 


PRINT COLUMN HEADERS 


001C78 


02 


47 


F 


235 


F 


234 




MVC 


SCPDAT&1 (72) , SCPDAT 


t f 


001C7E 


45 


BO 


F 


CD8 








BAL 


GRB t LG0UT9 


9 9 


001C82 


OA 


DO 












SVC 


X'DO 9 


9 f 


001C84 


80 














DC 


X 9 80« 


9 9 


001C85 


49 














DC 


X 9 49 9 


9 9 


001C86 


F F66 












DC 


S(MSG1) 


9 9 


001C88 


45 


BO 


F 


CC4 








BAL 


GRB', LG0UT8 


9 9 


001C8C 


92 


40 


F 


234 








MVI 


SCPDAT, X 9 40 9 


9 f 


001C90 


02 


47 


F 


235 


F 


234 




MVC 


SCPDATC1 ( 72 ) t SCPDAT 


9 9 


001C96 


02 


OA 


F 


240 


F 


FAF 




MVC 


SCPDATfc25(ll),MSG2 


9 9 " ° 


001C9C 


45 


BO 


F 


CBA 








BAL 


GRB , LG0UT7 


'J 9 


OOICAO 


02 


04 


F 


236 


F 


FBA 




MVC 


SCPDA?£2C5),MSG3 


9 t 


001CA6 


D2 


OA 


F 


23E 


F 


FC7 




MVC 


SCPDATGlO(ll) f MSG4 


9 9 


001CAC 


02 


OC 


F 


24C 


F 


FBA 




MVC 


SCPDATE24C 131 «MSG3 




001CB2 


45 


BO 


F 


CBA 








BAL 


GRB , LG0UT7 


* » 


001CB6 


47 


FO 


F 


CEO 








BC 


ALWAYS, LGQUTM 




001CBA 


92 


C9 


F 


23C 






LG0UT7 


MVI 


SCPDAT£8,C 9 I * 


9 » 


001CBE 


02 


1C 


F 


25C 


F 


24C 




MVC 


SCPDAT&40C29)fSCPDAT£?4 , , 


001CC4 


92 


C9 


F 


234 






LGOUT 8 


MVI 


SCPDAT,CM* 


* 9 


001CC8 


92 


C9 


F 


24A 








MVI 


SCPDAT£22,C»1 9 


* ? 


001CCC 


92 


C9 


F 


25A 








MVI 


SCPDAT£38,C 9 I • 


9 9 


OOICOO 


92 


C9 


F 


26A 








MVI 


SCPDAT£54,C f l • 


9 9 


001CD4 


92 


C9 


F 


27C 








MVI 


SCP0AT672,C«I • 


9 9 


001CD8 


OA 


DO 










LG0UT9 


SVC 


X«D0 9 


9 9 


001C0A 


80 














DC 


X 9 80 9 


9 9 


001C0B 


49 














DC 


X»49« 


9 9 


001CDC 


F 234 












DC 


S(SCPDAT) 


9 9 


001C0E 


07 


FB 












BCR 


ALWAYS, GRB 




001CE0 


41 


10 


F 


E58 






LGOUTM 


LA 


GR 1 , INDAT 


INITIALIZE 


001CE4 


41 


20 


F 


7E8 








LA 


GR2,DRDAT 


t * 


001CE8 


41 


30 


0 


000 








LA 


GR3,0(GR0,GR0) 


9 9 


001CEC 


41 


40 


F 


83C 








LA 


GR4, SENDAT 


9 9 


001CF0 


41 


50 


F 


890 








LA 


GR5,CKRDAT 


9 9 


001CF4 


41 


60 


0 


051 








LA 


GR6,81(GR0,GR0) 


9 9 


001CF8 


OA 


DO 












SVC 


X 9 D0 9 


PRINT BLANK LINE 


OOICFA 


8*0 














DC 


X»80* 


9 9 


001CFB 


01 














DC 


X*01* 


9 9 


001CFC 


F F67 












DC 


S(MSG6) 


9 9 


001CFE 


92 


40 


F 


234 






LGOUTA 


MVI 


SCPDAT, X* 40 9 


CLEAR PRINT FIELD 


001002 


02 


4E 


F 


235 


F 


234 




MVC 


SCPDATfil I 79) i SCPDAT 


9 9 


001 008 


02 


01 


F 


TOO 


1 


000 




MVC 


WKAR3(2S ,0(GR1) 


CONVERT WRITE DATA TO PR INT ABL 


DATE 


ISJUL65 




17MAR66 








ID 


EC 


124265 




125643 








PAGE 



ooooooooo'oooooooo 



IBM .MAINTENANCE DIAGNOSTIC PROGRAM 



* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 



001 DOE 


OA DD 










SVC 


X 9 OD» 


9 9 


001010 


0002 










DC 


AL2(2) 


99 


001012 


07 DO 










DC 


AL2(WKAR3-SECST) 


t't 


001D14 


0237 










DC . 


AL2(SCPDAU3 r SECST) 




001016 


02 00 


F 


7D6 F 


7D0 




MVC 


WKAR3&6(1),WKAR3 


CONVERT WRITE DATA TO HOLLARlTH 


00101C 


41 70 


F 


23E. 






LA 


GR7,SCPDAT£10 


9 9 


001D20 


02 01 


F 


25D F 


FD2 




MVC 


SCPDAT641 (2) ,MSG5 


9 9 


001D26 


D2 11 


F 


265 F 


250 




MVC 


SCPDAT£49<18)*SCPDAT£41 


001D2.C 


41 80 


0 


001 






LA 


GRBtl (GROfGRO) 


* * 


001D30 


4}L 90 


F 


FD4 






LA 


GR9,HC0N 




001034 


43 80 


9 


000 




LGOUTB 


IC 


GR8,0( GR0,GR9) 




001D38 


44 80 


F 


D70 






EX 


GR8, LGOUTE 


ft 


001D3C 


47 80 


F 








BC 


ALLOFF , LGOUTC 


*♦ 


001D40 


02 00 


7 


1)00 9 


OOD 




MVC 


0( 1 ,GR7) ,13(GR9) 




001D46 


41 BO 


B 


001 




LGOUTC 


LA 


GRB, 1 (GRO, GRB) 


»f 


00104A 


41 80 


0 


007 






LA 


GR8,7(GR0,GR0) 




001D4E 


15 B8 










CLR 


GRB ,GR8 




001050 


47 40 


F 


D64 " 






BC 


LOW, LGOUTD 




001D54 


D2 00 


F 


706 F 


7D1 




MVC 


WKAR3&6U) ,WKAR3£1 


11 


001D5A 


41 80 


0 


OOD 






LA 


GR8,13(GR0»GR0) 


9 9 


001D5E 


15 88 










CLR 


GRB, GRB 




001D60 


47 80 


F 


074 






BC 


EOUAL, LGOUTF 


t» 


001064 


41 70 


7 


001 




LGOUTD 


LA 


GR7, 1(GR0,GR7) 


9 9 


001D68 


41 90 


9 


001 






LA 


GR9,1(GR0,GR9) 


9 9 


00106C 


47 FO 


F 


D34 






BC 


ALWAYS, LGOUTB 


9 9 


001D70 


91 00 


F 


706 




LGOUTE 


TM 


WKAR3&6,X*00 V 


9 9 


001 D74 


02 00 


F 


700 2 


000 


LGOUTF 


MVC 


WKAR3( 1) ,0(GR2) 


CONVERT READ DATA TO PRINTABLE 


001D7A 


OA DD 










SVC 


X 9 D0 9 




001D7C 


0001 










DC 


AL2(1) 




00107E 


0700 










DC 


AL2(WKAR3-SECST) 


9 9 


001080 


024D 










DC 


AL2(SCPDAT625~SECST) 




001082 


IB 88 










SR 


GR8,GR8 


CONVERT EXPECTED READ $ SENSE DATA 


001D84 


18 93 










LR 


GR9,GR3 


• • 


001D86 


5C 80 


F 


E48 






M 


GR8,NINE 


9 * 


001D8A 


50 80 


F 


E4C 






D 


GR8, EIGHT 


tt 


00108E 


41 89 


F 


EFC 






LA 


GRB,0UTDAT(GR9) 


9 1 


001D92 


D2 01 


F 


702 B 


000 




MVC 


WKAR3£2(2)t0(GRB) 




00 I 098 


58 70 


F 


700 






L 


GR7, WKAR3 


99 


00109C 


89 70 


8 


010 






SLL 


GR7,16(GR8) 


99 


06l0A0 


50 70 


F 


7D0 






ST 


GR7, WKAR3 


9 9 


001DA4 


91 80 


F 


7D1 






TM 


WKAR361,X»80« 


9 9 


001DA8 


47 80 


F 


OBO 






BC 


ALLOFF ,»G8 


9 9 


001DAC 


92 F8 


F 


266 






MVI 


SCPDATGSCX^FS 9 


9 9 


001DB0 


OA DD 










SVC 


X'DD 9 


9 9 


001DB2 


0001 










DC 


AL2(1) 


9 f 


001DB4 


07 DO 










DC 


AL2(WKAR3-SECST) 


9 9 


001DB6 


0255 










DC 


AL2(SCPDAT&33-SECST) 




001DB8 


D2 00 


F 


7D0 4 


000 




MVC 


WKAR3( 1) ,0(GR4) 


CONVERT READ SENSE DATA FOR PRINT 


001DBE 


OA DD 










SVC 


X 9 D0 9 


9 9 


0010C0 


0001 










DC 


AL2( 1) 


9 9 


001DC2 


07 DO 










DC 


AL2(WKAR3-SECST) 


9 9 


001DC4 


0250 




7D0° 5 






DC 


AL2(SCPDAT641-SECST) 


9 9 


001DC6 


D2 00 


F 


000 




MVC 


WKAR3(1),0(GR5) . 


CONVERT CHECK READ DATA FOR PRINT 


001DCC 


OA DD 










SVC 


X*D0 9 


99 


001DCE 


0001 










DC 


AL2(1) 


99 


001D00 


0700 










DC 


AL2(WKAR3-SECST) 


99 


0010D2 


0260 










DC 


AL2(SCPDAT&57-SECST) 


tt 


001DD4 


D5 01 


F 


250 F 


265 




CLC 


SCPDAT£41(2) ,SCPDAT£49 SEE IF SENSE OATA OK 


001DDA 


47 80 


F 


DE2 






BC 


EQUAL, LGOUTG 


99 BRCH IF YES 


001 DDE 


92 5C 


F 


234 






MVI 


SCPDAT, C •* • 


SET ERROR FLAG 


001DE2 


95 00 


5 


000 




LGOUTG 


CLI 


0(GR5)»X*00« 


SEE IF ANY CHECK READ OATA 


001DE6 


47 80 


F 


DEE 






BC 


EQUAL, LGOUTH 


,, BRCH IF NO 


001DEA 


92 5C 


F 


234 






MVI 


SCPDAT, C 9 * 9 


SET ERROR FLAG 


001DEE 


05 01 


F 


240 F 


255 


LGOUTH 


CLC 


SCP0AT625I2) ,SCPDAT£33 SEE IF DATA REAO OK 


001DF4 


47 80 


F 


DFC 






BC 


EQUAL, LGOUTK 


tt BRCH IF YES 


0010F8 


92 5C 


F 


234 






MVI 


SCPDAT, C»»* 


SET ERROR FLAG 


0010FC 


OA 00 








LGOUTK 


SVC 


X'DO 9 


PRINT LOG OUT DATA 


OOIDFE 


80 










DC 


X»80 9 


9 9 


DATE 


15JUL65 




17MAR66 








ID F80! 


EC 


124265 




125643 • 








PAGE 



00000000000000000 



ooooooooooooooooooooooooooooooooo 
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OOLOFF 


48 












DC 


X»48» 






t » 


001F76 


C1E3C1404040C94040 




DC 


C'ATA I READ D» 


001 EOO 


F 234 










DC 


S(SCPDAT) 








001F7F 


40D9C5C1C440C4 








001E02 


41 


10 


1 


002 






LA 


GR1,2(GR0,GR1> 






UPDATE ADDRESSES FOR NEXT LINE 


001F86 


C1E3C1404040C94040 




DC 


C • ATA I SENSE D« 


001E06 


41 


20 


2 


001 






LA 


GR2,KGR0,GR2) 






» i 


001F8F 


E2C5D5E2C540C4 








001E0A 


41 


30 


3 


001 






LA 


GR3,1(GR0,GR3) 






i t 


001F96 


C1E3C1404040C940C3 




DC 


C * ATA I CHECK RE • 


001 EOE 


41 


40 


4 


001 






LA 


GR4,1(GR0,GR4J 






1 » 


001F9F 


C8C5C3D240D9C5 








001E12 


41 


50 


5 


001 






LA 


GR5,1(GR0,GR5» 








001FA6 


C1C440C4C1E3C140C9 




DC 


C«AD DATA I« 


001E16 


46 


60 


F 


CFE 






BCT 


GR6, LGOUTA 






BRCH IF NOT END OF LOG OUT 


001FAF 


C1C3E34040C940C5E7 


MSG2 


DC 


C'ACT I EXPD» 


001E1A 


OA 


DA 










SVC 


X»DA» 






WAIT FOR ACTION 


001FB8 


D7C4 








001E1C 


91 


40 


F 


004 




LGOUTX 


TM 


SNSW,X»40» 






SEE IF WANT UTILITY ROUTINE 


OOIFBA 


60C8C5E76040C94060 


MSG3 


DC 


C«-HEX- I -HEX- • 


001E20 


47 


80 


F 


E28 






BC 


ALLOFF ,LGOUTY 






, t BRCH IF NO 


001FC3 


C8C5E760 








001E24 


45 


80 


F 


63E 






BAL 


GR8,SCPR00 






BRCH TO UTILITY ROUTINE 


001FC7 


60C8D6D303C1D9C9E3 


MSG4 


DC 


C •-HOLLAR I TH- * 


001E28 


47 


FO 


F 


964 




LGOUTY 
• 


BC 


ALWAYS, RTOX 






ROUTINE EXIT 


00 IF 00 
001FD2 


C860 
FOFO 


MSG5 


DC 


COO' 














* 


CCW,S 


USED BY READER 


XLATE.FLT 




001F67 


MSG6 


EQU 


MSGU1 














* 












001FD4 


201008040201201008 


HCON 


DC 


X«201008040201201008040201FF» 


001E30 


25 


001234 2000 


OOAO 


RWRCCW 


CCW 


X»25» f SCPDAT,X« 


20» 


,160 D I AG WRITE TO RD BUFF -SL I QN- 


001FDD 


040201FF 








001E38 


C2 


001234 200O 


0050 


RRDCCW 


CCW 


X»C2SSCPDAT,X«20« 


,80 


READ READER BUFFER -SLI ON- 


001FE1 


E3C5F0F1F2F3F4F5F6 




DC 


C»TE0123456789» 


001E40 


C6 


001234 2000* 


0050 


CRDCCW 


CCW 


X'C6»,SCPDAT,X» 


20» 


t 80 


DI AG CHECK READ CCW -SL I ON- 


001FEA 


F7F8F9 






AL3«EXIT2J 














#»»«*•*»»»****#**♦»**#*»»»•* 


•*•****»»»«•***•«*»*«»«***««**•*»«*»*»•»*«« 


001FED 


00171C 


SCRAD 


DC 



« CONSTANTS -WORD BOUNDARY- * 

*•***••*«•«•«*****«•******•**•••*«»***»•»«»•«*»***•*«»•**•••*«»•*•*•**• 



001E48 






CNOP 


0,4 


001E48 


00000009 


NINE 


DC 


XL4«09» 


001E4C 


0000000ft 


EIGHT 


DC 


XL4»08» 


001 E50 


0000 




DC 


XL2»00« 


00 IE 52 


0020 


THRT2 


DC 


XL2»20« 


00 IE 54 


O0O000D4 


CDCNT 


DC 


XL4«D4« 






•»»♦#*«#**♦*»»*♦****»*»*#»»»**»#***************» 






* 


CONSTANTS -NO BOUNDARY- 






«***»«■< 


»#*#«♦**#»»****#*»»**»**»*****»#•*»#*##*** 


001E58 


1E000F000720033001 


INDAT 


DC 


X«1EOOOF00072003300138003C001EOOOF» 


001E61 


38003C001E000F 








001E68 


38001C000E00032001 ' 




DC 


X • 38001COOOE000320013000382C032401 • 


001E71 


3000382C032401 








001E78 


220121012021201120 




DC 


X»22012101202120112009200520032403« 


001E81 


09200520032403 








001E88 


3403140114031C030C 




DC 


X« 34031401 14031C030C010A010C030A03 8 


001E91 


010A010C030A03 








001E98 


3C0300002C012A0128 




DC 


X»3C0300002C012A012803240222022000« 


001EA1 


03240222022000 








001EA8 


3401300310000C001A 




DC 


X«3401300310000C001A0130003C010202 9 


001EB1 


0130003C010202 








001EB8 


2C022A002900282028 




DC 


X , 2C022A00290028202810280828042802« 


001EC1 


10280828042802 








001EC8 


28012A022902340234 




DC 


X e 28012A02290234023400302030101C02 e 


001ED1 


00302030101C02 








001ED8 


1A022800200118000A 




DC 


X« 1A022800200118000A021C0100140018' 


001EE1 


021C0100140018 








001EE8 


002400300028020402 




DC 


X« 0024003000280204020802 1002200300 9 


001EF1 


08021002200300 








001EF8 


01082C03 




DC 


X«01082C03» 


001EFC 


A3F1FDFEFF7FBDFE7F 


OUTDAT 


DC 


X* A3F 1FDFEFF7FBDFE7F7050B8FEFF7FBC * 


001F05 


7050B8FEFF7FBC 








001F0C 


000202018100A06038 




DC 


X» 00020201 8100A06038201 21 008864402* 


001F15 


20121008864402 








001F1C 


1110A4543020104844 




DC 


X , 1110A4543020104844824928A0512C18» 


001F25 


824928A0512C18 








001F2C 


0C262351C4F4804120 




DC 


X«0C262351C4F4804120D08854321D1089 8 


001F35 


D0885432101089 








001F3C 


4522D20914A25540AA 




DC 


X»4522D20914A25540AA60325A0E070BDF» 


001F45 


60325A0E0708DF 








001F4C 


EFF7FAFDBEFF6FBFDB 




DC 


X •EFF7FAFDBEFF6FBFDBE7F780* 


001F55 


E7F780 








001F58 


09C5C1C440E703C1E3 


TITLE 


DC 


C 'READ XLATE FLT* 


001F61 


C540C603E3 








001F66 


C9404040C4C9C1C740 


MSG1 


DC 


C«I DI AG WRITE D« 




E609C9E3C540C4 








DATE 


15JUL65 17MAR66 








EC 


124.265 125643 









ID F805-1 

PAGE 11 



001FF0 



DATE 

EC 



C5D9D940F1F4F0 



***»##»•»*«♦♦*#«#•#»#*#*»#♦#«**#*•#*»»»***♦*•»*»**•**♦«»*♦•*****»****** 

* GENERAL REGISTER EQUATES * 



000000 


GRO 


EQU 


0 


000001 


GR 1 


EQU 


1 


000002 


GR2 


EQU 


2 


000003 • 


GR3 


EQU 


3 


00*0004 


GR4 


EQU 


4 


000005 


GR5 


EQU 


5 


000006 


GR6 


EQU 


6 


000007 


GR7 


EQU 


7 


000008 


GR8 


EQU 


8 


000009 


GR9 


EQU 


9 


OOOOOA 


GRA 


EQU 


10 


OOOOOB 


GRB 


EQU 


11 


OOOOOC 


GRC 


EQU 


12 


OOOOOD 


GRD 


EQU 


13 


OOOOOE 


GRE 


EQU 


14 


OOOOOF 


GRF 


EQU 


15 




###** 


••***••**» 



»*♦♦*##»*•»#♦♦**»»#•*#*♦«»»»**••♦•**«»•»*»*«*•»***•• 
* CONDITION CODE EQUATES * 

*•**#*•#»»«#*»**♦*•»«*•♦»*#••»«•*•♦*♦»**«»»*»♦*•**»***»«•****«*•*•***** 



000078 


HION 


EQU 


120 


HARDWARE I/O NEW 


PSW 


U 


000008 


ALLOFF 


EQU 


8 


ALLOFF 


0 








000005 


ANYON 


EQU 


5 


ANY ON 




1 




3 


000001 


ALLON 


EQU 


1 


ALL ON 








3 


000004 


MIXED 


EQU 


4 


MIXED 




1 






000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 






3 


000008 


EQUAL 


EQU 


8 


EQUAL 


0 








000006 


NEQUAL 


EQU 


6 


NOT EQUAL 




1 


2 




000004 


LOW 


EQU 


4 


LOW 




1 






000002 


HIGH 


EQU 


2 


HIGH 






2 




000008 


ZERO .. 


EQU 


8 


ZERO 


0 








000002 


GZERO 


EQU 


2 • 


GREATER ZERO 






2 




000008 


AVAIL 


EQU 


8 


AVAILABLE 


0 








000004 ' 


CSWST 


EQU 


4 


CSW STORED 




1 






000002 


BUSY 


EQU 


2 


BUSY 






2 




OOOOOF 


ALWAYS 


EQU 


15 


UNCONDITIONAL 


0 


1 


2 


3 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


I 




3 


000007 


NZERO 


EQU 


7 


NOT CC 0 




1 


2 


3 


000004 


NOTZRO 


EQU 


4 


NOT ZERO -AND- 




1 






OOOOOC 


MIXNON 


EQU 


12 


MI XED OR NONE 


0 


1 






OOOOOC 


LOEQ 


EQU 


12 


LOW £ EQUAL 


0 


1 






000000 


NA 


EQU 


0 













♦ ERROR DEFINITIONS 

ERR140 DC C * ERR 140* 



15JUL65 
124265 



17MAR66 
125643 



DATA RECORDS MISSING OR OUT OF SEQ 
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001FF7 



C5D9D940F1F4F1 



ERR141 DC C *ERR 141 • 

END 



CAN NOT ISOLATE FAILURE 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



DATE 
EC 



15JUL65 

124265 



17MAR66 
125643 



ID F805-1 
PAGE 12 



DATE 
EC 



1 


0 . 


NA 


1B82 














1 


1048 


CAW 


lBFAt 


1C1E, 


1C46 










1 


1040 


CSW 
















4 


1C10 


DRR 


19A8 














4 


1BE6 


DWR 


19A4, 


1A0C,„ 


1C0A 










1 


0 


GRO 


19E6, 


19EA, 


19EA, 


19F4, 


19F8, 


19FC, 


1A00 








1A08, 


1A1E, 


1A1E, 


1A38, 


1A3C, 


1A40,. 


1A48 








1A4C, 


1A4C, 


1A56, 


1A5E, 


1A62, 


1A66, 


1AA8 








1AC4, 


1ACC, 


1B00, 


1B2E, 


1B54, 


1B9C, 


1BC2 








1BC2, 


1BD4, 


1BD4, 


1BF6, 


1BFA , 


1C1A, 


1C1E 






* 


1C42, 


1C46, 


1CE8, 


1CE8, 


1CF4, 


LCF4, 


1D2C 








1D2C, 


1D34, 


1D46* 


104A, 


1D4A, 


1D5A, 


1D5A 








1D64, 


1D68, 


1E02, 


1E06, 


1E0A, 


1E0E, 


1E12 


1 


1 


GR1 


1988, 


19F4, 


19F4, 


1A08, 


1A08, 


1A1E, 


1B9C 








1B9C, 


1BA0, 


1BBC, 


1BEA, 


1CE0, 


1D08, 


1E02 








1E02 














1 


2 


GR2 


198C, 


19B2, 


19F8, 


19F8, 


1A36, 


1A36, 


1A38 








1A6A, 


1A6E, 


1A6E, 


1A74, 


1A78, 


1A88, 


1A98 








1B16, 


1BB8, 


1BBC, 


1C36, 


1CE4, 


1D74, 


1E06 








1E06 














1 


3 


GR3 


1990, 


19B8, 


19FC, 


19FC, 


1A40, 


1A44, 


1BC2 








1BC6, 


1BD4, 


1BD8, 


1C3C, 


1CE8, 


1D84, 


1E0A 








1E0A 














1 


4 


GR4 


1994, 


1A00, 


1A00, 


1A4C, 


1A9C, 


1AA0, 


1AA2 








1AF8, 


1B1A, 


1B1E, 


1B20, 


1C64, 


1CEC, 


1DB8 








1E0E, 


1E0E 












1 


5 


GR5 


1A50, 
1E12, 


1A5A, 
1E12 


1A5A, 


1B7E, 


1CF0, 


1DC6, 


1DE2 


1 


6 


GR6 


1998, 
1A8C, 


1998, 
1CF4, 


19C8, 
1E16 


19E6, . 


19E6, 


19EE, 


1A62 


1 


7 


GR7 


1A70, 


1A78, 


1A7C, 


1A84, 


1A90, 


1AA8, 


1AAC 








1ACC, 


1AD0, 


1800, 


1B04, 


1B2E, 


1B32, 


1D1C 








. 1D40, 


1D64, 


1D64, 


1098, 


ID9C, 


1DA0 




1 


8 


GR8 


1984, 


19CA, 


19CE, 


19CE, 


1900, 


19D4, 


1A54 








1A54, 


1A56, 


1A5A, 


1AA4, 


1AAC, 


1AC8, 


1AD0 








1AFC, 


1B04, 


1B2A, 


1B32, 


1B50, 


1B54, 


1B54 








1B58, 


1B5C, 


1D34, 


ID38, 


1D4A, 


1D4E, 


105A 








1D5E, 


ID82, 


1D82, 


1086, 


1D8A, 


1D9C, 


1E24 


1 


9 


GR9 


19C8, 


190C, 


19DC, 


19E0, 


1A2E, 


1A38, 


1A3C 








1A3C, 


1A40, 


1A48, 


1A48, 


1A56, 


1A5E, 


1A5E 








1A62, 


1A66, 


1A66, 


1AA0, 


1AA2, 


1AA8, 


1 ABA 








1AC4, 


1AC4, 


1ACC, 


1AF0, 


1B00, 


1B0E, 


1B1E 








1B20, 


1B2E, 


1B38, 


1844, 


1B76, 


1D30, 


1034 








1D40, 


1068, 


1D68, 


1D84, 


1D8E 






1 


A 


GRA 


19A4, 


19A8, 


1A0C, 


1C0E, 


1C6A 






1 


B 


GRB 


19C4, 


19D4, 


19D8, 


19EA, 


19EE, 


1A2A, 


1AC0 








1ADA, 


1AEC, 


1B0A, 


1B72, 


1B8C, 


1BB6, 


IC02 








1C2A, 


1C58, 


IC7E, 


1C88, 


1C9C, 


1CB2, 


1CDE 








1D2C, 


1D46, 


lD46t 


1D4E, 


105E, 


1D8E, 


1092 


1 


C 


GRC 


1BE6, 


1C26 












1 


D 


GRO 
















1 • 


E 


GRE 
















1 


F 


GRF 
















1 


4 


LOW 


1D50 














1 


12E8 


SIO 


1C02, 


1C2A, 


1C58 










4 


1B7E 


•TMA ' 


1A8C 














4 


1B82 


BCON 


1A90 














1 


2 


BUSY 
















4 


1C42 


DCRR 
















4 


17E4 


ERNO 


1B58, 


1BC6, 


1BD8 










8 


1945 


ERRX 


1ABA, 


1AE6, 


1B38, 


1B66, 


1B6C, 


1B8A 





15JUL65 
124265 



17MAR66 
125643 



10 F805-I 
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1 


16EC 


EX IT 


1 


48 


HCAW 


13 


1FD4 


HCON 


1 


40 


HCSW 


1 


2 


HIGH 


1 


78 


HI ON 


1 


C 


LOEQ 


16 


1F66 


MSG1 


11 


1FAF 


MSG2 


13 


1FBA 


MSG3 


11 


1FC7 


MSG4 


2 


1FD2 


MSGS 


16 


1F67 


MSG6 


4 


1E48 


NINE 


4 


1 A2E 


PT06 


4 


1954 


RTOO 


4 


196E 


RT01 


4 


197C 


RT02 


4 


1988 


RT03 


4 


19A4 


RT04 


4 


19C4 


RT05 


4 


1A08 


RT06 


6 


1964 


RTOX 


6 


1A10 


RT10 


4 


1A1E 


RT20 


1 


1004 


SNSW 


1 


1231 


U APU 


1 


122D 


UARD 


1 


3 


Z ERO 


1 


1 


ALLON 


I ' 


5 


ANYON 


1 


8 


AVAIL 


4 


1E54 


CDCNT 


1 


UFA 


CSWAG 


1 


4 


CSWST 


14 


17E8 


DRDAT 


4 


1E4C 


EIGHT 


1 


8 


EQUAL 


1 


1944 


ERSW1 


1 


1714 


EX IT1 


1 


1 71 C 


EX IT2 


1 


2 


GZ ERO 


16 




TWHAT 
1 ri U A 1 


4 


1C6C 


LGOUT 


1 


1202 


MESS1 


1 


4 


MIXED 


1 


7 


NZ ERO 


4 


1A2A 


PT051 


4 


1A32 


PT061 


4 


1A40 


PT062 


4 


1A50 


PT063 


4 


1AC4 


PT064 


4 


1 ADA 


PT065 


4 


1AF0 


PT066 


4 


1AF8 


PT067 


4 


1B16 


PT068 


6 


1B38 


PT069 


4 


1B72 


PT06A 


4 


1B8E 


RDCRD 


1 


1950 


RTN04 


3 


1 FED 


SCR AD 


1 


1000 


SECST 



1D30 

1AAE » 

1B06 

1C86, 

1C96 

1CA0, 

1CA6 

1D20 

1CFC 

19CA, 



1958, 

1972 

1980 

1A04, 

19BC 

19F0 

1E28 



1BB8 



198C, 
19D0, 

1958, 

1DF4 

1A32, 

196A 

1FED 

1988, 
1A1A, 



1AD2 

1AD6, 

1806, 

1AF8 

1AB6 

1AAE 

1AE2 

1A98, 

1B82 " 

1B7A 

1B34 

1A2A, 

1015 

1964 

1000, 

1000, 

1000, 

1000, 

1000, 

1BA8, 



1AD2, 1B34 

1FD4 
1CAC 

1D86 
1960 

1C32* 1C60 



1A16 

196E, 197C, 1AB2, lAOEt 1C6C* 1E1C 



1B26, 1C0A, 1C32, 1C60 



1CE4 
1D8A 
1960, 

1A94, 



1CE0 
1B6E* 



1AF4 
1B12 



1B16 



19F0, 

1B22 



1BBE, 1D60, 1DDA, 1DE6 



1BD0, 1BE2 



1ADA, 


1B0A, 


1B72 








1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1018, 


1068, 


1A28, 


1B64, 


1B66, 


1B9A 


1BAA, 


1D12, 


1D14, 


1D7E, 


1D80, 


1DB4 









1 D36 , 


1DC2, 




1DD0 , 


i nn? 






1 


1 1 F7 • 


S ENS E 


1C3C 














2 


1 E52 


THRT2 


1 A7C 














14 


1 F58 


TITLE 


197A 














4 


17 EO 


TSTOR 


19 AC , 


1 Q A c 


1 OR "5 


1 or n 


t or a 

1 V U *f , 


i one 


iVCU 


1 


1 0 EO 


UN I T 1 
















1 


1 0 E4 


UN I T2 
















8 


i 7 nn 


WKAR3 


1 A6A, 


I A 8 8 , 








1 AAA 
1 DH A , 


IUtA 








1 B50 , 


1 DDI* , 


1 RAi. 
iOO*t| 


1 ft A O 


1 DA O , 


1 DO 8 , 


1D1 2 








ID 16 , 


1D16, 




LU Df , 




i n"7A 


LU 1 tz 








1D92 , 


i now 




iUA*f , 


iUD*t , 


X uoo f 


1 DC2 








1 nr a 














8 


i 7 no 

1 1 Uo 


UX ADA 


ioAAj 


1 RAT 












1 


8 


ALLOFF 


1972, 


1980, 




1L. « U, 




1U AO , 




1 


F 


ALWAYS 


196A, 


1A04, 


1 A 1 A 
1 A i A , 


1 A » A 
1ADO, 


1 A DA 




1 ACA 








IB 1 2, 


1B6E, 


1 D7A 

id / At 


Id oU , 


1 QQ A 
loo O , 


i n nn ^ 










1C0E, 


1C6A, 


1CB6, 


1CDE , 


ID6C f 


1E28 




1 


1 14C 


CAWK EY 
















14 


1890 


CKRDAT 


1994, 














16 


18 E4 


COMDAT 


199A, 


199E» 


1 99c, 


19DC , 


1A 1 0, 


IA5U 




8 


1 E40 




1C42 














1 


1 1 2C 


r CUC Kit 

Co WS AV 
















7 


1FF0 


CKR140 


1BCE 














7 


1 FF7 


ERR141 


18E0 














1 


16 E6 


EX IT BY 
















4 


1CBA 


LG0UT7 


1C9C, 


1CB2 












4 


1CC4 


LGUU To 


1C88 














2 


1CD8 


LbUU 1 y 


1C7E 














4 


1CFE 


1 mi ! T a 
LGUU 1 A 


IE 16 , 














4. 


1 D34 


1 f ni ix 0 
LbUU 1 D 


1D6C 














4 ■■ 


1 D46 


LGOUTC 


1D3C 














4 . 


1 D64 


LbUUTU 


1D50 














4 


1 D70 


L GOUT E 


1D38 














6 


1 D74 


LGOUT F 


1UOU 














4 ■ 


1 he? 


L bUU 1 b 


i nn a 

iUUA 














6 


kutztz 




1 HP A 
1UCO 














2. 


iUrb 


! mi iTkr 


iUrt 














4 


1 r nrj 

I L. CU 


1 rniiTM 


1 r r a 

i U DO 














4 


ItiU 


LbUU 1 A 
















£l. 


1 P5fl 
A Cto 


1 rniiTv 

LbUU 1 T 


1 con 














L • 


C 


ri I A |\| U Ix 


















6 




• 1A16, 


1A80, 


1BB2 












9 


KIM TYPn 


















D 


















A 


4 


MOT? Rfl 
















16 


1 EFC 


OUT DAT 


1A10, 


1D8E 












2 


1 B86 




1AC0, 


1AEC 












4 


1 A88 


PT0630 


1A80 














4 


1AA4 


PT0631 


1B26 














4 


1BB8 


RDCRD1 


1065 














4 


1BD4 


RDCRD2 


1BBE 














4 


1BC2 


RDCRDX 


1BB2 














8 


1E38 


RRDCCW 


1C1A * 














8 


1E30 


RWRCCW 


1BF6 














1 


179C 


SCHNUM 


1954, 


195C, 


1A22 










1 


1234 


SCPDAT 


1A28, 


1A2E, 


1AA4, 


1AC8, 


1AE6, 


1AF0, 


1AFC 








1B0E, 


182A, 


1B76, 


1B8E, 


1B92, 


1B92, 


1B9A 








1BAC, 


1BEA, 


1BF0, 


1BF0, 


1C10, 


1C14^ 


1C14 








1C36, 


1C4E, 


1C52,. 


1C52, 


1C64, 


1C74, 


1C78 








1C78, 


1C8C, 


1C90, 


1C90, 


1C96, 


1CA0, 


1CA6 








1CAC, 


1CBA, 


1CBE, 


1CBE, 


1CC4, 


1CC8, 


1CCC 








1CD0, 


1CD4, 


1CDC, 


1CFE, 


1D02, 


1002, 


1D14 








lDlCt 


1D20, 


1D26, 


1D26, 


1D80, 


1DAC, 


1DB6 








1DC4, 


1DD2, 


1DD4, 


1DD4, 


1DDE, 


IDEA, 


IDEE 








IDEE, 


1DF8, 


1E00, 


1E30, 


1E38, 


1E40 




1 


163E 


SCPROO 


1984, 


1E24 












14 


183C 


SENDAT 


1990, 


1CEC 












1 


114D 


SI0SW5 
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17MAR66 
125643 
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1BFE, 1C06, 1C22, 1C2E, 1C4A, 1C5C 



1964 
1C26 
1BE6 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



} 



1 



DATE 15JUL65 17MAR66 
EC 124265 125643 



1 114D SIOSWS 

1 112C SI0VR3 

1 1134 SI0VR4 

1 11F8 STATSV 

1 1060 SVRPSW 

1 I0E2 UNI ADR 

1 10E6 UN2ADR 

1 1000 XF8051 
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3 0003000300003033 
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F804 2821 SCAN/2540 READER/PUNCH 
F805 BUFFER ADDR FLT -ROUTINE OVERLAY 3- 



PERIODS- CORRESPOND TO BLANK COLUMNS. 



COLS. 



1 THROUGH 20 



COLS, 



21 THROUGH 40 



BESD • AA. . AAXF80 

9 YQ Y9 

99 9 

BTXT.AAN..AC..AAAJH. 

9 YQ9 Y9 Y9Y89 
99 9 9 99 



BTXT.AP0..A8. 

9 Y9- Y9 
9 9 

BTXT. AQH. . A8 . 
9 Y99 Y9 
9 9 

BTXT* AQ* » • A8. 
9 Y9 Y9 
9 9 

BTXT. AQH. .A8. 

9 Y9R Y9 
9 0 9 

BTXT. AQA. . A8. 
9 Y9Q Y9 
9 0 9 

BTXT* AQY. . A8. 
9 Y9 Y9 
9 9 

BTXT. AJJ..A8. 
9 Y8Y Y9 
999 9 

BTXT.AJH..A8. 
9 Y8R Y9 
99 9 

BTXT* A J A.. A8. 
9 Y8Q Y9 
99 9 

BTXT.AJH—A8. 
9 Y8 Y9 
99 9 



, AAAAGA 
Y9YY9Y 
9 99 9 

, AAA AAA 
Y9YYYY 
9 9999 

, AAA AAA 
Y9YYYY 
9 9999 

i AAAAAA 
Y9YYYY 
9 9999 

, AAAAAA 
Y9YYYY 
9 9999 

. AAAL.C 

Y9 
9 

.AABOAP 
Y98-Y8 
9 9 9 

. AA9SKB 
Y9 - 9 

9 

» AA24EZ 
Y9 9Q 
9 Z 

• AA25EA 
Y9 9ZQ 
9 0 



BTXT. AKA. 
9 Y8Y 
999 

BTXT* AK8* 
9 Y89 
99 

BTXT.AKO. 

9 Y8S 
99- 

BTXT*AKQ. 
9 Y80 
99 



, A8. • AA24AA 
Y9 Y9 9QY 
9 9 99 

, A8. • AABDNL 
Y9 Y9Q8 Z 
9 9 Z 

, A8. . AABEAK 
Y9 Y98QY8 
9 9 999 

. A8. . AABOEA 
Y9 Y9QYZY 
9 9 Z 



51, 



. OAAA. AFC • 
YQY Y8 
999 99 



GAGAAAAAAAAAAAAAAAAA 
9Y9YYYYYYYYYYYYYYYYY 
9 99999999999999999 

AAA AAA AAA AAA A A AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
999999999999^9999999 

AAAAAAAAAAAAAA AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAA AAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAERR . 051 .DEV 

YYYYYYYYY 

999999999 

OUNT* IS.OPOO.SHLD.BE 



EBA.0DGA92EA66KA24EZ 
QY- 9ZY 9ZY 8 9 9Q 

•29. 9 Z 

2K2VB0DS2BG092KA24EZ 
9 88-Z8 9Z 9 9 9Q 
99 9 Z 

K/2625H00WBA1EEA2YA0 
9 9Z& -Y 8ZQ -G 

; 9 0 

2YA024GA90KL8£;24KG8D 
-£ 9ZQ Y Z 9 9 0 

9 ' - 

DA24KAAA24AAAAG09BEM 
-9 9 YQY 9ZQQ9Z Q-9 
999 99 Z 

8d24GACBBJ8DG0CFNL8& 
9ZYQ9-Y QZ Q8 Z 
Z 9 0 Z9 

GUB4KB8D2VKC7S8FEABF 
9 99 9 Y 8 9 8ZQQQ 
9 9 ZZO 

66AJJLGA6MF.7DG06MHA 
8-YZOZQ Y- QZ YRY 
9 9 9 9 9 9 



DATE 
EC 



15JUL65 
124265 



17MAR66 
125643 



COLS. 41 THROUGH 60 
840 



A A A A AAA A A A A A A A A A A A A A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

A AAA AAAAAAAAAAAAAA A A 
YYYYYYYYYYYYYYYYYYYY 
9 9 99 9 9 99999999999999 

AAAAAAAAAAAAA AAAAAA A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAA AAAAAA AAA AA A A A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

ice* pop. diag.ck.ro* D 



.0020AGACAGFEC7DGA9Q 
Y9Y9YQQ— 0 QZY 9 
9 9 9ZZ 

K/2625AAEA£A0HH00SBB 
9 9ZPQQ Q ZZG -9 
9Z0 9 

K/2625EA2YA024GA9KKL 
9 9ZQ -6 9ZQ 8 Z 
0 9 

24GA9FKB2K21B0DS2BG0 
9ZY Q 9 9. 98-Z8 9Z 
0 9 9 

1BAA7UA J8HEA9BAA8&A J 
QZQ ZY ZZQ QZQ ZY 
Z 9 9 Z Z 9 9 

•8GG-BQEM8CG-8BBA24KK 
8Z QY-9 QZ QQ-Y 9 Z 
Z9 0 ZZ 9 

24G-BBB0DAFCA.0DGABQ 
9Z QQ8-0QQ0- 9ZYQZ 
ZZ9 9Z- o Z 

BEAKHSB4K88D21KC7S8B 
8QY89 99 9 Y 9 9 Q 
999 9 0 

7SFA7QBEACGEGPKC847Q 
88Y 8QY99Q9 9 
9 999 9 



COLS. 61 THROUGH 80 
261. 125643.. 80510001 



». ..80510002 



AAAAA AAAA A AA80510003 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80510004 

YYYYYYYYYYYY 

999999999999 

AAAAAA A AA A A A80 5 1 0005 

YYYYYYYYYYYY 

999999999999 

AAAAA AAAA A AA80 510006 

YYYYYYYYYYYY 

999999999999 

ATA*-* RES IDU80510007 



G06MAB0DGA9W80510008 
2 Y-9 9ZY 9 

9 

1EEA2YA024GA80510009 
8ZQ -6 92Y 
0 

7U24KG8H1BKA80510010 
9 9 Z Q 9 

9FKA24EZK/2680510011 
Y 9 9Q 9 
Z 

8DAAB0NKGCKA80510012 
0ZQQ99990 Y 
- ZZ 9 

2524NL7U24GA80510013 
9 9 Z 9ZY 



EA66AJ0DGAB080510014 
ZY 8-Y 9ZYQY 
9 9 Z 

EABFBBA.0DGA80510015 
ZQQQ8Q- 9ZY 
ZZ099 

B0A.8EB0A42480510016 
8-Y 8-Y8 9 
9 9 9 
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8TXT. AKS. . A8. . AAB0A4 
9 Y88 Y9 Y98-Y8 
99 9 9 9 9 



BTXT.ALQ. «A8. 

9 Y89 Y9 
99 9 

BTXT. AL£. . A8. 
9 Y8 Y9 
99 9 

BTXT.ALH..A8. 

9 Y80 Y9 
99 9 

BTXT.AL0..A8. 
9 Y8E Y9 
99 9 

BTXT.AL8..A8. 
9 Y8 Y9 
99 9 

BTXT*AMA..A8. 
9 Y8Q Y9 
992 9 

BTXT.AMQ..A8. 

9 Y8Z Y9 

99 9 



BTXT. AM J. 
9 Y8Y 
99 



,A8. 
Y9 

9 



BTXT.AMQ..A8. 

9 Y8 Y9 
99 9 

BTXT.ANA..A8. 
9 Y8Q Y9 

999 9 

BTXT.ANH..A8. 

9 Y8Z Y9 
99 9 

BTXT. ANA.. A8. 

9 Y8Y Y9 
99 9 

BTXT. ANH..A8. 

9 Y80 Y9 
99- 9 

BTXT.AN0..A8. 

9 Y8 Y9 
99 9 

BTXT.A0Y..A8. 

9 Y89 Y9 
99 9 

BTXT*A0-..A8. 
9 Y8 Y9 
99 9 



.AA2524 
Y9 9 9 
9 

•AAOOGO 
Y9QQZ 
9 ZO 

• AAGAOH 
Y9 Q Z 
9 9 

• AAA3AA 
Y9Y9ZQ 
9 9 

• AAA&.B 
Y9Z 8 
9 9 

. AA-AGO 
Y9 9Z 
9 

• AADFAA 
Y9QRZY 

9 ZO 

. AA0G8E 
Y9Z9 Q 
9 0 

. AA24KK 
Y9 9 Z 

9 

, AAAAAH 
Y9ZQQ9 
9 9 

» AAEJED 
Y9ZYQ0 
9 9Z 

» AAGOEQ 
Y9Z QO 
9 Z 

. AAAAKY 
Y99Y9 
9 9 

► AAAAAA 
Y99999 
9 

.AAAAAA 
Y99999 
9 

.AAAAAA 
Y9YYY9 
9 999 



20B0A42MG3Et18CG~CBG0 
£8-Y8 Y9 -9 QZ Q8Z 
-9 9 0 Z9 

B A 2EN J 247UG- C6AAAAE J 
-9 Y 8 9 Z Q9ZQY0ZY 
Z 9 

DFAJ 80GACBAA EH&AOHHO 
QQ-Y QZYQOZQQO Q ZZC 
Z 9 0 Z- 9Z- 9 

BB1EEA2YAA1EGA9DNG24 
-9 8ZQ -9 8ZQ 8 8 9 
0 9 9 

A3AJ FGAAFCA . ELNCGCBA 
Y9ZYQ8ZQQ0Z QY9Z9Y-Y 
9 9Z ZZ- Z9 9 

A-.AA024NFGADBAA-AGA 
Z YZ6 99RZYQZ-9 YZY 
9 - Z 9 

0DKA24. AKG2624AA0FAA 
Q9 8 9 Y 8 8 9ZYQQZQ 

Z 9 9 9 Z 

ABAAAA-A07UEJDDNBG.DB 

Y8ZQG9ZS ZYQQ9ZZ QY 
9 - ZO Z 

G0BMB0DG8EG0BMB0DG8E 
Z 088-Z9 QZ Q88-Z9 Q 
Z 9 0 Z 9 0 

2524EJEDAAABBA24BA25 
9 9ZYQ0ZQQ9-Y 9-Y 9 
9Z 9 9 9 

K02224EJE0AAABKL2A24 
9 8 9ZYQ0ZQQ8 9 R 9 
9 9Z 99 

BA24KK2524BA24AAALEJ 
-9 9 Z 9 9-Y 9ZQQ9ZY 
9 9 9 

A0DQA-7UAA8DGAEJA00B 
Z6Q0Z -Y QZQQYZ&&8 
-Z 0 9Z — 9 

J AA&BAK4J AA&A2282 1. S 
YYY Y99YYY Y9 
999 9 999 9 

AAAAAAAAAAAAAAAAAAAA 
999Y99YYYYY99YY9YY99 
9 99999 99 99 

AAAAAAAAAAAAAAAAAAAA 
9YY9Y9YYYYY99Y99YY99 
99 9 99999 9 99 

AAAAAAAAAAAAAAAAAAAA 
99YY9YY9YYYY99Y99YY9 
^99 99 9999 9 99 



CBB . 8DG0DBB A 8DG ODB B A 
Q9- QZ QY-Y QZ QY-Y 
Z 0 19 0 Z9 9 

DDGODF AAA LWAEH8FG-C F 
QQZ QQZQYZ 9Q 8Z QR 
ZO Z 9 Z Z 

0WBA1EEA2YAA1EGA9DBA 
- Y 8ZQ -9 8ZQ 8-Y 
9 0 9 9 9 

2YG-CBAAAFE JDDGODF AA 
Z QOZQYOZYQQZ QQZQ 
Z- 9 ZO Z 

24KK2524NBG. D6A6FGNE 
9 Z 9 99ZZ Q9Z QR9Z 
Z ZO 

OSBAOA KHOAOAAAFCN. G- 
Q8-9GY 9G9GYZYQY9 Z 
Z9 -9 9 9Z 

AAA08DGADBAA8DGADSAA 
QY-& QZYQR-Y QZQQ-ZY 
99 0 ZO 0 9Z 

NG250AGOOANG240AGHAA 
8 9£YZ QQ 8 9SY90ZQ 
-9 Z ~9 9 

G0BMFA7QBEABGFHAGBE A 
Z Q88Q 8QY99Q9 9QZQ 
Z 999 9 Z 0 

E JEDAAADKA2624E JEOAA 

ZYQ0ZQQ9 9 9 9ZYQ0ZQ 
9Z 9 9Z 

E JEDAAADKK2524E JEDAA 
ZYQ0ZQQ8 Z 9 9ZYQ0ZQ 
9Z 99 9Z 

EDKG2524AAANE JEDAAAA 
QO 9 9 9ZQQ9ZYQ0ZQQQ 
Z 9 9Z 99 

A-8GAAAANL24-AGKE JDO 
Z ZQQ9 Z 9 Y9ZZYQQ 
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9Q QZ QRZY 
Z 0 Z 

24KFa524AAE080510019 
9 8 9 9Z0QC 
9Z 

A2EJDDG0DFAA80510020 
Y9ZYQQZ QQZQ 
9 ZO Z 9 

G-C8BA25G0DB80510021 
Z Q -9 9Z QZ 
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DSBA20AOO BA-80 510022 
Q8-9 ZZ6£8Z 
Z9 —9 

AMA AA BA0;8£ GO 80 5 10023 
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ACA.*BG0CKBO80510024 
Q9Z 8Z Q 8~ 
9 9 Z 9 

CF A AAXAA AX BA805 10025 

QQZQY8ZQY8-9 

ZO 99 9 

AFKA28 24E JED80 5 100 26 
Q9 9 9 9ZYQ0 
9 9Z 

AFBA24KF252480510027 

Q8-9 9 9 9 9 

99 

AA8DG0EQA A AA80 5 1 0028 
-Y QZ Q02QQ9 
0 Z 

G7 AAF AK4 J AAM805 10029 
9 YY Y99YYYZ 
99 9 999 

R. FLT A AAAAAA80 510030 
YYYY9YY 
a 9999 99 

A A A A A A A A A, A A A80 510031 
9YYYY99Y99YY 
9999 9 99 

A A A A A A A AAA A A80 510032 
Y999YY99Y99Y 

9 99 9 9 

A A A A A A A A A A A A 80 510033 

Y999YYYYY99Y 

9 99999 9 
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99 99 9 9999 

BRLD......AM....AAAA 

9 Y9 Y9Y9 

9 9 9 
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9 
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9 
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9 
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9 YQ> Y9 

99 9 
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9 YQ9 Y9 Y9Y8 
99 9 9 99 

BTXT. AA-. . AH. . AAAAAA 

9 YQ Y9 Y99YYY 
99 9 9 999 

BTXT. AP0..A8.. AAAAAA 
9 Y9- Y9 Y9YYYY 

9 9 9 9999 

BTXT. AQH. • A8. . AAAAAA 

9 Y99 Y9 Y9YYYY 
9 9 9 9999 

BTXT. AQ. * • A8. * AAAAAA 
9 Y9 Y9 Y9YYYY 
9 9 9 9999 

' BTXT-. AQH.;. A8 • .AAAAAA 

9 Y9R Y9 Y9YYYY 
9 0 9 9 9999 

BTXT. AQA. .A8.. AAAAAA 
9 Y9Q Y9 Y9YYYY 
9 0 9 9 9999 

BTXT. AQY..A8.. AAAAAA 
9 Y9 Y9 Y9YYYY 

9 9 9 9999 

BTXT.AJJ. . A8 • • AAAAAA 
9 Y8Y Y9 Y9YYYY 
999 9 9 9999 

BTXT.AJH..A8..AAGA9W 

9 Y8R Y9 Y9ZY 8 
99 9 9 

BTXT. A J A. . AS. * AAAA84 
9 Y8Q Y9 Y9ZQ 8 
99 9 9 Z 9 



AAAAAAAAAAAAAAAAAAAA 
99YY9YY99999Y9Y99YYY 
99 99 9 9 999 

A AAN AAN AA AN IHANA 
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999 999-999- 99 
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YQY Y8Q 
999 99Z 
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9 Z9 
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9 9 Z 
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Z9 9 99 Z9 
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999999999999 
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Y9Y9YQQ-0 Q 
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BTXT. AJH* . A8 . . AAQFMA FHL HNAFDHAA A£ A7SA 1 8U 

9 Y8 Y9 Y99-8Y QZ808YQ80QYY Q 8Z- 

99 99 192090 



0CAA7SA- — AAAAANTGA8H 
9QY 8Z 9ZQYR98ZYQ9 
9 09 Z 



AAABA J JAAA AA80510052 
ZQQ9ZYY9ZQQ9 
99 99 ZZ 



BTXT.AKA..AS. 

9 Y8Y Y9 
999 9 



.AAA*. A G09MAAABEJCWNL 8UFDG- 

Y9Z 9 I 0ZQQ9ZY0 8 QQZ 

9 99 Z ZZ 



B0G0DUAAADBD7DBCB4EA 
Q8Z Q8ZQYR-0 Q8Q99ZQ 
Z9 Z 99 99 0 



CFAA248A9DLS80510053 
QYZQ 9-Y Z89 

Z 9 9 



BTXT. AK8. • A3. • AACJAA AAAACAAAI AAQAAAAA« AD 

9 Y89 Y9 Y9ZYQY ZQQ9ZQQY0QY9ZQQ92 Y9 

99 9999 Z9Z9 9 



AS8ULHCAAAAH6AAAAAC- 
Z 80ZYQYZR YZQ09Z 
9 9 9 



AAAAAA£J70LS80510054 
QYZQQ9 Y -89 

9 9 9 



8TXT.AK0..A8- 
9 Y8£ Y9 
99- 9 



» AAAOAA EJABHOJ AAOF8G~BHA0A£ 

Y9Z&YY YYY90£YY8£QRZ Q0Z£Y 
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HJ70D-C6D0CBBG9DF JB8 
RY ~Z Q8Z£Q0-Q ZZYQ 
9 Z -Z Z 9Z 



F.BJODODAA2280 510055 
Z QY8-8-ZY 8 
Z 9 9 
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9 Y80 Y9 Y9Z£Q9 9RZYQQ-Q 9Z Q 9 8QY 

99 9 9 - 0 9Z9 9 Z 9 



EACFAAADAA22A0AANHGJ 
ZQQ0ZQQ9ZY 8ZGQ89RZY 

OZ -909 



BSG0B2EACFAA80510056 
Q8Z Q9ZQQY-Q 
Z9 Z OZ 9 



BTXT. AKS. . A8 . . AAODGO B0KC9A24EACFAA28G0B2 
9 Y88 Y9 Y9 92 Q 9 8 9ZQQ0ZQ 9Z Q9 

99 9 9 Z OZ Z 



F.B£AA22A0AHNHG0B.EA 
Z Q ZY 8Z£Q99RZ£Q ZQ 

Z 0 Z 0 



CFAA24G0B. FJ80510057 
QYZQ 9Z Q ZY 

Z Z 9 



BTXT.ALQ. * A8. « AAB8F. C00D0DAG9DGABMAA22A0 
9 Y89 Y9 Y9Q Z Q88-8 — Q ZZQQOZY ~8Z£ 

99 9 9 Z 299 9 Z 9Z 



ACNHGJCBK89AAAPG7070 

Q99RZYQR 9 8Q9 9 

0 9Z0 



KB7NAA2S7N7N80510058 

9 Q9 9 



BTXT. AL£. . A8. . AAGA70 AAAD&A7UFA70BEABG0AA 
9 Y8 Y9 Y98Y - ZYYY Y 8Y -8QY99 88 

99 9 9 999 9 



B0DG9EG0DUEACFAA24G0 
8-Z9 ZZ Q8ZQQYZQ 9Z 
9 Z OZ 



C8AA6AGAC0B080510059 
Q9-Y YZYQ98- 
Z 9 9 9Z 9 



BTXT. ALH. .A8.. AAAH9E GCBA24KF2524BCB4AAAA 
9 Y80 Y9 Y9Y9 Z 9Q-Y 9 8 9 98Q99ZQQ9 

99 9 9 Z 9 99 99 



FA70BEABG0GQNB7Q2AG- 
8Q -8QY99 9 9 OZ 
9 999 



CBGCHJFDN/GA805 10060 
Q 9QRYQR99ZY 
Z Z 9Z 



BTXT. ALO. . A8 . . AACMAA 
9 Y8£ Y9 Y9Q ZQ 

99 9 9 Z Z 

8TX¥.AL8«.A8..AAFA£A 
9 Y8 Y9 Y9QQ Y 
99 9 9 ZZ 9 

BTXT. AMA. . A8* * AA1 EGA 
9 Y8Q Y9 Y9 8ZQ 
99Z 9 9 9 

BT XT. AMQ. . A8 . . AA2 4GB 
9 Y8Z Y9 Y9 99 Q 
99 9 9 Z 

BTXT. AMJ. • A8« • AAKD26 
9 Y8Y Y9 Y9 9 9 
99 9 9 

BTXT. AMQ. • A8. • AABOAA 
9 Y8 Y9 Y98-Y8 
99 9 9 9 

BTXT • ANA. »A8«. AAABGO 
9 Y8Q Y9 Y9Y99- 

999 9 9 9 

BTXT. ANH* *A8** AAAAAA 
9 Y82 Y9 Y9Q9ZY 
99 9 9 0 



AD£A7UB0DGG0G0DUAAAE 
YY Q 8-Z9Q 2 Q8ZQYY 
9 Z 9 Z Z Z9 

0HBA1EEA2YAA1EGACWGB 
Z~Y 8ZQ -9 8ZQQ 9Q 
9 0 9Z Z 

9MKAJA24KAAA17AAF.£A 
0 YYY 9 YQY ZYQ Y 
999 929 9Z 9 

AJ0DGAFMB-24KG2524EA 

~Y 9ZY08- 9 2 9 9ZQ 
9 Z9 0 

GBKB26GGKD2DGBEADBG0 
QQ 8 8Q 8 8QQZQQQZ 

20 9 9Z 9 ZO OZO 

24GCAAFHAJ7YAAAAA. 84 
99QZQQRZY ZQYYZ 8 

2 92 9 299 9 

B7KA7070A026KA2NGKKJ 
99 Y -Z£ 8 9 8Q 9 
9 - 9 2 

AGNHG* EMKA707J AAAENH 
Y9902 QZ Y 2YY890 
9 - 2 9 99 - 



£A7UB0DGG7G0DUH00WKA 
Q 8-Z9Q 2 Q8Z£ 9 

Z 9 Z Z 

BA24KF2524AAF8&A0HBB 
-Y 9 Q 9 9ZYQ9 Y Z-9 
9 9Z 9 

0HB81E8A24KF2524EA2Y 
Z-9 8-Y 9 Q 9 9ZQ 
9 0 

DQB0AAG0EADDB.24KG25 

Q 8-Y8QZZQQ - 9 Z 9 
Z 9 2 02 

DSBI24KM2M2DBI24BI2B 

Q8- 8 8 8 8- 9- 8 
Z 9 9 

A&8AA-AAB0AAGPB. 24KF 
Z QZ YR8-Y9QZ- 9 8 
9 9 Z 

2N2NAAAAAAGMC AAADAEO 
Z 8ZQY9ZQQ ZYQYZYQ& 
09 Z 9 Z- 

GAEDA00AAAAAG0E4AA70 
ZYQRZ££9ZQQ9Z Q9-Y 
ZO — Z 9 



24AAKE2624AA80510061 
9QY Q 9 9ZY 

99 9 

1EH00SEA2YAA80510062 

8M ZQ -9 
0 

AA1EGA9MKA.A80510063 

-9 8ZQ 0 Y Y 
9 9 9 

24KB2EGPE ADB80510064 
9 8 8QYZQQQ 
9 Z OZO 

8I2KBI2£BI2480510065 
- 8- — 8 



2524KA70AABE80510066 

9 9 9 -QY8Q 
.9999 
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ZYQZ Y&YQ8ZQ 
Z 9-9 9 0 
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BTXT. ANA. • A8. • AABELH 
9 Y8Y Y9 Y99880 

99 9 9 9 , 

BTXT. ANH. • A8. . AAKA70 

9 Y80 Y9 Y9 Y - 
99- 9 9 9 

BTXT. ANO. • A8. . AA2E2E 
9 Y8 Y9 Y9 8 R 
99 9 9 

BTXT. AOY. . A8 . . AAG09M 
9 Y89 Y9 Y9Z Z 
99 9 9 

BTXT.A0-..A8..AAA8A4 

9 Y8 Y9 Y999Y8 
99 9 9 99 

,BTXT.A0H..A8.. AA4CAA 
9 Y8- Y9 Y989YY 

99 9 9 9 99 

BTXT. AOO. . A8. . AA4AAJ 
9 Y8- Y9 Y99YQY 

99 9 9 9Z9 

BTXT. APH. . A8 . . AAFG7D 
9 Y89 Y9 Y9QQ8Q 
99 9 9 ZZ 0 

BTXT. A P. • • A8. • AAMKE. 

9 Y8 Y9 Y990R 
99 9 9 

BTXT. APH.. A8.. AAA... 

9 Y8R Y9 Y9 
990 9 9 

BTXT. APA. • A8. .A ACT. • 

9 Y8Q Y9 Y9 
990 9 9 

BTXT. APY. . AO. . AA5678 
9 Y8 Y9 Y9 

99 9 9 

BRLD AM. ... AAAA 

9 Y8 Y9Y9 

99 9 9 

BEND .-J.... 

9 

BOAT 

9 

DOJ.U.A..A0002C4AAAJ 

9£9 8 Q 9 989QYY 
9 9 9 999 

CAHAAAAJAA0006D45AJJ 
9QZYYYYYYY 989Q8Y 
Z 9 9999 9 999 



QCMAFHNAFDA I FDKA7KAA 
9-8YQZ8YQ8Z0QQ 9 QY 
Z Z -ZZ 09 

. ABEAAG0BNKA70CABEAA 
Y8QY99-98 Y - Y8QY9 
9999 9 9999 

GAEDBM24B0AH24AAABAJ 
ZYQQ-8 98-YZ 9ZQQ9ZY 
ZZ 9 99 9 

AAAAVAK4J AAJBAK4JAA£ 
YYYY9Y99YYYY Y99YYY 
9999 9 999 9 999 

A0AG8AMAFACJAAA8UCUA 
Y8Y89Y8Y8Y9Y9QY98999 
9999 99999 9 Z9 9 

UASAYCUBSBJA4AACAADA 
8989999999YY99Q9QY8Y 

9 9 9,9 2 9999 

AAMBKBYAJAQABBMAAMAQ 
QQ89899YY99Y8989Y9Y9 
299 9 99 99 9 9 9 

A88AAAJ-8JKA-HFDBJAMD 
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AAAA0003EDL AK AMHUJAB 
YQYY 988Q8Y899YY8 
9999 9999 9 999 

GJMH0007CAD. BABAAAOO 
9Y89 9Q8 9Y8QYY 
99 29 9999 



H070I0AA£070AA7JGAEA 
R£ -0£YQ £ ~-Y 2YQQ 
- - 9 - 20 

G0BVNA2N2NGAESBM24EA 
9-98 9 8 ZZYQ -8 9-Y 
Z 9 

JAAA AAA. • AA££AF~DFBB 
Y9ZQQ9Z 9Z 92 QQ8Q 
9 2Z 2299 

FAK4JAA£AAAAAAAHAAAJ 
Y99YYY YYY8YYY9YYYY 
9 999 9999999 9999 

SA/A J/J JJA JE JCUC4CMA 
9999Y9Y9Y8Y9Y9999999 
9 9 999 9 

KAAA4ABBUBSA/AYJYAYH 

89QY8999898Y8Y9Y9Q99 
9 299 -9 9999 9 9 

AUAAA Y8DBHBAB JCAAHUC 
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9 9Z9 ° 9 9 9 9 
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B820BEAAG0BE80510069 

- Z8QY99-9R 
6999 
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YZYQY-8 9 9 
9 Z9 

A.0DGAFYEA6680510071 

- 9ZYQ9ZY 8 

Z 9 

AAAM0AGAGJCA80 510072 
YYY 8Y8Y9Y9Q 
999 9999 9 Z 
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998989898989 
99999 

YDYBYASB/B4B805100T4 

999999898999 
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D08A6BAD7A001 1E4EJBA 
968989Y989 988Y9Y 
9 9 9 9 999 



DJ FJ ALAAAAAAA0012DG6 
9Y8YY8YYYYYYY 9Y8 
9999 999999 99 



BAD8APH0013CABADABAA . AO014. 
9Y98999 9Q999YRYY Y 
9 9 Z 9 9 



.,.180510087 



G7TAJJGJAB AQB6 A3 A A AO 
989Q8Y9YY90998Q99YY 
9 999 99 Z 99 99 



070GGADAHX .7 .DAA7DAA 
9Y89Y99 9 8Q99989 
9 9 9Z 9 



AA0071EGQB/BGJKA0TAA 
YY 9Y99999Y8Y69QY 
99 9 99* 99 



AAAAA0O72.. 180510104 

YYYYY 

99999 



E0AD6BBA7A0PHAAAAAA0 
9GY9898989G99YYYYYY 
9 9 9 9 999999 

AGAAAAAAA00180GA06BB 
Y8QYYYYYY 9YY9898 
999999999 99 9 9 



015E4GHBADJ0AAGBAAAA 
98899Y9Y9YY89YYYY 
99 9 9 9999 

AQDQ019D4HBBADJHA002 
999 98999Y9Y99 
9 9 



AA0016D36BADBAPH0Q17 
YY 9 89Y98999 
99 9 9 9 

0DG6BADBAPH0021C4G J J 
9Q89Y98999 989Y8 
Z9 9 9 9 99 



E7HADAFDHB. 
98999 Q9999 
9 9 

JQBAA0022. 
Y99YY 
9 99 



180510088 



,180510089 



CA7. AAADAAO073CGXBAH 
9Q9 YY89YY 8Y89Y9 
Z 9 99 999 9 

AADBHGAVD0075B7BAAAG 
Q89999999 88ZQYY9 
Z 99 99 



X.7.0AAAA7DBBAADGAVD 
9 9 69QQ99999Y899999 
9Z 9 

J7.CA.J.LJLA05AV.AAA 
Y9 9Q 9 8Y8Q6898 YYY 
9 9 9999 9 9 999 



AA00740DUAAHX.U.07. A 
YY 8Y8QY99 8 69 Q 
99 99999 9 Z 

A0076GCGA/B JABDDHAPH 
Y 9 99998999Y9Y89 
9 9 9 9 



A7D8B«.. a .. 180510105 
99999 



VDAA0077... 180510106 
99 YY 
99 



C4X. BAAAAA0023EGQB/B 
989 9YQ9YY 9Y9999 
9 Z 99 9 

DAAAAJAAB00027E4. AAA 
9Q9QYYYQ99 98 999 
Z 99999 9 



GJKAATAAAAAAA0024C47 
9Y8YY9QY YYYYY 989 
99 9 9999999 9 

ABJ • AUAAAAAAA0028F0A 
Y99 Y9QYYYYYY 9 9 
9 9 9999999 



. AAADAA0025CDA. U.J. A 
YY89YY 9YQ 8 9 Y 

9 99 99 9 9 

HHAA.KAALJB.AAAA0029 
9ZYQ 8YY8Y8 YYYY 
9 9 9999 9999 



A0026 

Y 
9 

FDLJU.5AKA 
9Y8Y8 9Q8Y 
9999 99 



.180510090 



.180510&91 



BOSA/BJAU.OAAQJBBHGAA 
869999898 Y9Q999999Y 
9 9 9 9 9 9 

A76AAA7.HAGA.J.5AAHA 
889YYY9 ZY8Q 9 8989Y 
99 9 - 99 9 9 



PHJDAAAA0078D3QAGJU. 
89Y9YYYY 8 999Y8 
9 9 9999 9 99 

A J AAAAAA0080D0GA/BJA 
ZYYYYYYY 96999989 
9999999 9 



5A6QBKAMHBHCGAHAUA/D 
9Q8998Y89999999Y8089 
99 9 9 999 

BD0081 ADPH/BD. U. AWBB 
99 8Y89998 8 0999 
999 9 9 Z 



0079 •.180 510107 



HGAWJ. 

9999Y 
9 



.180510108 



AAHB. AAAA0030EDBHU. A 
Y998 YYYY 98998 9 
9 9 9999 9 9 



AKA0PHAAAAAA0031EDLA 
Q8Y689YYYYYY 988Q 
99 9 999999 999 



KAMHUJOB. AAAAAA0032C DU.A.J.AA. 

8Y899Y68 YYYYYY 9 Q8 Q 9 YY 

9 9 9 9 999999 Z9 9 99 



.180510092 



AM* AAAAAA0082DDM./B0 
Y8 YYYYYY 8Y8 998 
99 999999 999 9 



. J AC5AQBWBMHAGAWJVAP 
89 9Q999989Y999Y8Y8 
9 9 9 9 99 9 



HQ083H4B. AAHAL JDLAAH A.EB0084 
9 988 YYZY8YY8Q99 8 89' 

99 9 99999 



...180510109 



0033C4HAAAAJAA0034E3 
98ZYYYYYYY 99 

9 9 9999 



MH5AKAL AA5DAAAAAA003 
899Q8Y8QY99Y YYYYY 

9 99 999 999999 



5F4A JHAAAKAAUJAAAAAA 
98YYZY9Q8YY9Y8QYYYY 

999 99 9 9999999 



0036. .180510093 



FCGA/BJABDOHAPHAAAAO 
9 99998999 9Y89YYYY 
9 9 9999 



085H7.DJJ/AGJ7J.6A.A 

98 98Y8Y9Y89 8Q 9 
9 999 99 99 



HH0086G7HH J J/AG JDLA6 A.DAA0Q87. 
Z9 98Z98Y8Y9YQ8Q8 Q 9YY 

9 999 9Z999 9 99 



.180510110 



D75A JJGJMH0037C4D.BA 

989Q8Y9Y89 988 9Y 
9 999 99 99 



BAAA0038D3TB/A6B8A00 
8QYY 9 998Y899Y 
9999 9 9 



39G7BAD.HAAA4KAA JD JA 
988Q8 ZY9Q88 YYYZYY 
9999 999 99 99 



A0040. . . . ..180510094 

Y 

9 



H4SJJJGJU .0AA6 AAHS 00 
989Y8Y9Y8 9Q8Q9999 
9 999 99 999 



088H7.DJJ/AGJ4J.6A.A 
98 98Y8Y9Y89 8Q 9 

9 999 99 99 



HH0089BDQ. AHX. AAD7DB BHBWB*.* 
Z9 8Y9 Y99 098999 99999 
99 9 Z 9 



...180510111 



F76A J J/AG JOT AA. AAAAO 
988Q8Y8Y9Y&9Q8 YYYY 
999999 9 9 9999 



041D4ABAACJTA0042ECB 
98Y9998Y9Q 9 8 
99 99 9 9 



A6BAD7A0PHAAAAAA0043 
989Y989699YYYYYY 
9 9 9 999999 



H7AADAB.D. .180510095 

989Y9Q9 8 
9 9 9 



OAA/. AAAA0090BDFJ AHX 
69Y9 YYYY 8YZYY99 

' 9999 99 99 



. AAA7DGHWBDA0AA/.AAA 

09Q9989992Y69Y9 YYY 
Z Z 9 999 



A0091BDE. AHX. AAA70BA WBDA. 
Y 8YZ Y99 Q9Q9999 99ZY 
9 99 9 Z I 



.180510112 



GABCA/. YJ0044A4SJ JJG 
QY99Q9 9Y 889Y8Y9 
Z9 9 9 99 999 



JU.3AA6AAHSDA7AAAAAA 
Y8 9Q8Q9999Y89YYYYY 
99 999 99 99999 



A0045H7LADAB. DAGHAEJ 
Y 988Y9Q9 9YQ998Y 
9 9 9 Z 99 



GAP. 0046. . . 180510096 

8Q9 

99 



0AA/.AAAA0092BDLDAHX 
S9Y9 YYYY 8Y99Y99 



9999 



99 



• AAD7DBBEJWB0AA/ .AAA 
Q9899998Y9969Y9 YYY 
Z 9 99 999 



A0093H7AA0AB.0.DA8CA /.YJ0094. 
Y 989Y9Q9 8 QY99Q 9 9Y 

9 9 9 9 Z9 9 9 



..180510113 



CDPHBA/A6BAADBATBLA0 
8Y998Y8Y89YY989999Y 
99 9 9 9 99 9 



QDNJM. AA0047E4EJBADJ 
999Y9 YY 988Y9Y9Y 
9 99 999 9 



FJ0LAAAAAAA0048DD6BA 
8Y68YYYYYYY 9Y89Y 
99 999999 99 9 



DBAPH0049.. 180510097 
98999 

9 



CDPAAHX. AAG70BBHAGAA 
8Y9YY99 Q989999998QQ 
99 9 Z 9 99Z 



WBAA/. AA0095H0C. BA6B 
999Y9 YY 968 8Y89 

99 9 9 9 



AD4BAS JGB7H0096G7AAD AB.D. 
Y98899Y8989 989Y9 Q9 8 

9 99 99 9 9 9 9 



.180510114 



F7BADAFDBA0HBC. AAAAO 
98RY9Q9999699R YYYY 
9 9 9999 



050CDPHBA/A6BAADBATB 
8Y998Y8Y89YY98999 
99 9 9 9 99 9 



LADQDNJ0AAA005 1D4BAD 
9YY999Y9QYY 98999 
9 9 999 9 



ABAHB0052.. 180510098 
YRYR9 



DABCA/. AA0097D4T0AAA 
YY99Q9 YY 989999Y 
99 9 99 9 9 



BQB0098E75DAAAB5A0MH 
999 989999Y99Q&89 

9 9 9 9 



AAAAAA0099E4. AAAABJ. 
YYYYYY 98 999Y99 
999999 9 9 



OUAAAAAAA. 
69QYYYYYY 
9999999 



.180510115 



E0AD6BBA7AAPHAAAAAA0 
9SY9898989Y99YYYYYY 
9 9 9 9 9 999999 



053F7GBDAFDHB0GH6AAA 
98899Q9999689 9YY 
9 9 9 99 



AA0054CDPHBA/A6BAADB 
YY 8Y998Y8Y89YY98 
99 99 9 9 9 99 9 



ATBLA 180510099 

9999Y 



0100D7HBAAABLA0101E7 
98Z999Y98Q 98 

9 9 99 9 



DAAAX • ABAAAAAAAAA010 
8Y999 Y9YQ9YYYYYY 
9 9 9Z 999999 



2B3E JG JU« 7. OH A A A6 BAH AADBAAAAA. 

8 8Y9Y8 9 ZY9Q8999 YY989YYYY 

9 9 99 99 99 9 9999 



♦180510116 



0Q0NJ0AAA0055E4GHBAD 
6999Y9QYY 98899Y9 
9 999 99 



J0A0GBAAAAAA0056D06B 
Y9Y689YYYYYY 9 89 
9 999999 9 



ADBAPH0057E7HADAFDHB 
Y98999 98999Q9999 
9 9 9 9 



OGAAAAAAA. .180510100 

68 QY YYYYY 
99999999 



010307 ABAACJTA0104FD 
98Y9998Y9Q 9Q 

99 99 9 Z 



N./ABA6BATB8AAAAA010 
9 8Y9989Y999YYYYY 
9 9 9 9999 



5GDYJ/AAB6B0AATB8 AAA 

9Q9Y8YY98969Y999YYY 
Z 99 9 9 99 



0106. ......180510117 



0058ADQDBA/ A6BAADBAT 
8Y998Y8Y89YY9899 
99 9 9 9 99 9 



BLAAPHAAAAAA0059E7GA 
99YY99YYYYYY 988Q 
9 999999 999 



AAE JHAAP. AAAAAA00600 
999Y99Y9 YYYYYY 9 
9 9 999999 



DAD6&B AQD. . 180 510101 

YY9898999 

99 9 9 



GGPA/AHAGAA6BTB8AAA0 
9Q9Q8Y9980Y89999YYY 
Z 99 9999 99 



107D0/AGJQB6B0108G0A 
9 8Q9Y9989 908 
99 9 9 Z9 



A /A7. 6BAADTB8AAA01 09 
98Y9 89Y89999YYY 
9 9 9 99 



H47AB AX .08.180510118 
98899Y9 99 
99 



0061 ADPHBA/A6BAADBAT 
8Y998Y8Y89YY9899 
99 9 9 9 99 9 



BLAA0DAAAAAAO063E7HB 
99YY99YYYYYY 9899 
9 999999 9 



BADJHAAQ JAAAAAA0064D 
9Y9Y99Y9 YYYY YYY 9 
9 9 9999999 



D6BADBAPH. .180510102 

Q89Y98999 

Z9 9 9 



CT AADBAS J0110C06BADB 
9QY9899Y 9S89Y98 
99 9 9 9 9 9 



A A AO 1 11JCEAAHU.7.GHA 
9YY 9 8YY98 9 QZY 

99 9 9 Z 



ABAAAJGADAHAAA JOAAS J 

Y990YY8B9999Y8Y 8Q9Y 
9 9999 99 99 9 



6.GA*. 180510119 

9 ZY 



0065CAGJJJQBAA0066DG 
9Q9Y8Y99YY 9Y 
Z 999 99 9 



AAAHX ^700067EDQB/BGJ 
Q9Y99 99 9Y99999Y 
Z 9 9 9 



KAO/AA AAAAA0068CAX. 8 
8Y6&QYYYYYY 909 9 
9 99999999 Z 



AAAAA0069. .180510103 

YQ9YY 
Z 99 



A6HAAAAAA01 12B0UHAHD 
Y99 YYYYYY 8Y99Y98 
9 999999 99 9 9 



•WBDAJ AABABA0.D6HAAA 
99Q8Y8Q8Q896 999YYY 
Z9999999 999 



A0113HG/. AHX. ABOAAWB 
Y 9Y9 Y99 Y98Q999 

9 9 9 9 9Z 



AAE. 0114. . a 1805l0120 
9YZ 
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A0AHAAAAAA01 15G7T AJ J 
9&Y9YYYYYY 989Q8Y 
9 999999 9 999 

D08A/ A6BTB01 1807AABA 
9 9Y8Y8999 98Y99Y 
9 9 99 

0P.AAAAAA0123FCBA6BA 
£9 YYYYYY 9 8989Y 

999999 9 9 9 

A6. 2 AAAAA0126B3GAHAK 
Q9 99YYYY 8 ZYZY8 
I 9999 9 9 

F7AAHAAJLA0UA6. AAAAO 
988QZYYY8Q 9Q9 YYYY 
999 9999 9 9999 

Go AAJAA. DAS. 2 AAAAAO 1 
0 98Y8Q 9Y9 99YYYY 
Z 9999 9 9999 

OOFB/BGJJACQBHBGAAAC 
8Y99999Y8999999999Y9 
99 99 

CDJA/BGAAAQ137GG7 J7» 
9Y899999YY 8Q9Y9 
99 99 9Z 9 

CJ« QBKAAJG* AADAJAAO* 
99 998YYYY 9898Y8QG 
9 999 9999 

0140FGDAU.8A5AAKALJA 
9YZ98 999QY8Y8YY 
9 9 . 999 999 

0I43GG3B7.HAHACGAJ.& 
8Q899 ZY99 8Q9 8 
9Z9 99 9 

7ADAJAA«DA6« A« AAAA01 
8898Y8Q 9Y9 Y YYYY 
9 9999 9 9 9999 

4BAS JXD2 A0147DCK AQ8A 

8899Y8999 9 8Y99Y 
99 99 9 9 

C7. AAJ. LAA68. AADGACA 
9 099 80089 989999Y 
Z 99Z9 9 

APHVDFBAA015IAO/BAAA 
Y899999YY 9699YYY 
99 99 999 

O7GH8ADJOA0155E7HBBA 
98899Y9Y9Y 98999Y 
99 9 9 

01 59EGWBAHD* OAA/ • AAA 
9Y99Y9S ZYY9 YYY 
9 9 9 9 999 



GJAB4QB6A3AAA0116A0U 

9YY98998099YY 8 9 
99 9 99 99 9 

0.X.0119D7FJAAEJEJ01 

8 9 988Y999Y8Y 

9 999 999 

D7AAPHEJAAAA0124BAEJ 
989Q998YYYYY 9Q9Y 
9 Z 99999 1 9 

AAJGLAAJAA*D0HH6. AAA 
YYYQ8Q8Y8Q 9SZ99 YYY 
99Z999999 999 

129B06.HAJ.KAGAJ.AAJ 

8 9 ZY9 8YQYY 98Y 

9 9 Z99 99 

31F4KAJJGJU.05AKBAAA 
988Q8Y9Y8 S9Q89YYY 
99999 99 99 999 

/•PHVD/D0134GDVA/BD. 
9 899989 9Y8Y998 
9 9 99 " 9 

HAABGJ.KAAJ • A7ADAAA J 
ZYY989 8YYY 98899Y8Y 
9 9 9 99 9 99 

D6..JAA0139FG8A7.HAE 
99 YYY 80909 ZY8 

999 9Z 9 9 

AAA0141G7BAD.HAAAAKA 
YYY 988Q8 ZY9QQ8Y 
999 9999 9Z9 

AAJG.AADAJAA0.D6.A.A 

YYYY 9898Y80& 99 Y Y 
999 9999 9 9 

45H0BDU.A.J.AKBKALJJ 
96898 Q 9 Y998Y8Y9 
9 9 9 9 99 

JLJ0I48DCJD/8JAABAQB 
Y8Y 8 Y99989Y9Y99 
999 9 9 9 9 9 

DBATBSJDC *2DAAAA0150 
989999Y88 99Q0YY 
9 999 Z999 

AAA01S2F7DHAA7.HAOAB 
YYY 9889YY9 ZY Y9 
999 9 9 9 

0JHA0QJAAAAAA0156BA0 
9Y9969Y YYYYYY 90 9 
9 9999999 Z 

AAA0160D3AAAJ AAB0016 
YYY 999QYYYQ99 • 
999 99999 



AG JQB683A JAA/A. DA6. A 
99Y9989 8Y8Q8Q 9Y9 Y 
9 9 999999 9 9 

21D7QAAAE JHB0122E7GA 
989Q999Y99 988Q 
9 9 9 999 

AAAAAA01258CBHJ.KALA 
99YYYY 8 Z99 8Y8Q 
9999 9 9 99 

A0127G7NB JJG JAA05 AAH 

Y 98898Y9Y9QG9Q99 
9 99 99 9 9 9 

A AO* 0BHAAAA0130BCBH J 
80S 9Z9YYYY 8 Z99 

99 9999 9 

A0132G3AJAAJ.LADUJ.A 

Y 998Y9Q9 8QQ9Y 9 
9 99 9 99Z 9 

JAAQBWBWJAA0135D78 JA 
89Y99999YYY 989YY 

9 9 999 9 99 

AA0.D6.A.AA013BGG6AG 
80S 99 Y YY 8Q8Y9 
99 9 99 9Z9 

JGJ.KAAJ.A7ADAJAA.DA 
Y89 8YYY 98898Y8Q 9Y 
99 9 99 9 9999 9 

AJDJAAQ142FGFAU.GH5A 
YYZYYY 9YZY8 899Q 
99 999 9 9 9 9 

A0144FG4A7.HAHBGJ.KA 

Y 80899 ZY9989 8Y 
9 9Z9 9 9 

J0i46D7AJVJNAX.0 7.6A 

Y 888Y9Y8Y9 9 8Q 

9 99 9 99 99 

WBGAWJCAA/.VA1H0149L 

99999Y 9Y9 8Y99 9 
9 * 9 

GD4A/BG J JA0AB5AQBW8D 
8Y99999Y89 Y99Q9999Y 

99 99 9 9 9 

A* AAAA01 53D7E JBAD JF J 
9 YYYY 988Y9Y9Y8Y 
9999 999 999 

JBAAAAA0158F75AAAGJ7 
Y9YYYYY 9889YY9Y9 
9 9999 99 9 9 

1E7UJHAAAA JOLAAAAAAA 
989YZY9QYY68QYYYYYY 
9 9 999 99999999 



AAAAAO 117 • 
YYYYY 

99999 



.180510121 



AAEJHA • • • • 
999Y99 

9 

G. AAJAA. D. 

Q 98Y8Q 9 
Z 9999 

0.AA0128.. 

8 YY 

9 99 



.180510122 



.180510123 



.180510124 



• KALA. • • « 
8Y8Q 
9 99 

6.AA0133, 

9 YY 

99 

AX* 7.0136* 
Y9 9 



.180510125 



..180510126 



.180510127 



J7.HA 

Y9 ZY 

9 

6. A. A AAA.. 
9 Y YYYY 
9 9999 

AKALJAAAA. 
Y8Y8YYYYY 
99 999999 

AJ.A..C. 
YY 9 

99 « 



.180510128 



, .180510129 



.180510130 



►.180510131 



6BAD 

89Y9 

9 9 

GAA/B/AX. 
Y8Y998Y9 
99 9 

MHGAAA/.« 
89999Y9 

9 



.180510132 



. .180510133 



. . .180510134 



0154 180510135 



.06A7HAAAA. 180510136 
69Y89YYYY 
9 9999 

0162 180510137 
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BAAAAJAAAA0163DCJ.U. 
9Y9QYYYYYY 9 9 8 

9 9999999 9 

* D7BADABAHB0168ECAD6B 
98999YRYR9 9 Y989 
9 9 9 

0171F7GBDAFDHB0GH6AA 
98899Q9999 89 9Y 
9 9 9 9 

0GHBAAAAA0175G7DJDAF 
89RYYYYY 98RY9Q9 
9 9999 9 9 9 

AADBATBLAAPHAAAAAA01 
YY989999YY99YYYYYY 
99 9 9 999999 

0HBFHAAAA0185G7FHDAB 
| - 99 R9 YYYY 98R99Q9 
1 9999 9 9 

OGHE AAAAAO 1 88 GDL ABA/ 
89RQYYYY 9Y9Y8Y8 
9 99999 r 9 9 9 

CA. J.LJLA05AV.3AAA01 

9Q 9 8Y8Q 898 9QYY 
9 9999 9 9 999 

GA. J.5AAH0AJAAAAAA01 
8Q 9 8989 6Z YYYY YYY 

99 9 99.99999 

BDPH/BD* U* AWBBHGAWJO 

8Y89998 8 Q9999999Y 
999 9 9 Z 9 

DUA6. 6HAA0198G4KAJ JG 
Y9Q9 99YY 988Q8Y9 

9 9 99 99999 

7J.AJ. AAJDAABA.D6.AE 

89 YY 98YQ8Q8Q 99 Y8 
9 99 99Z9999 9 

I FCBA6BAD7 AAPHE J AAAAO 
I 9 8989Y989Y998YYYYY 
I 9 9 9 9 9 99999 

35 AF AAHN80KBAAAAAA02 
9Q899989689YYYYYY 
9 9 9 999999 

D.DBHUAAA021304FAVJ7 
? Q 9Z999YY 98899Y9 
: Z 99 9 9 

$ ' 

I CA. A. J. AA03 A6AW AAA02 

; 9 Q 9 9Y 999Y9QYY 

j 9 999 

| 0HAPHVDAA0218G73AVJD 
I E9Y8999YY 98999Y8 

1 9 99 9 99 



A. • A0164C4QJDAHBAA01 
Q 9 989Y9Y99YY 
9 9 9 . 99 

BA7A0M. AAAAAA0169BAD 
898969 YYYYYY 9Y9 
9 9 999999 9 

AAA0172AD0ABA/A6BAAD 
YYY 8Y9Q8Y8Y89YY9 
999 99 99 9 9 99 

DBADHAGABAAA0176F7BA 
999Q998QRYYY 98RY 
Z 99 99 9 

78A0BAAAAAAA0182F7JA 
9&8YYYYYYY 9889 
9 999999 9 

« ABDHAGAEAAAO 1.86F7HB 
Y9Q998QRQYY • 98R9 
9 Z 99 999 9 

A6BAA0TBPHAA0189F7EA 
Y89YY99999YY 98RQ 
9 99° 99 9 9 

91AGVDAHX«7* AAABBADG 
8Y99Y99 9 YQ999899 
99 9 9Z 

93H4BDAA5AKA3LAMHGA/ 
98999Q9Q8Y 8Q89998 
9 9 99 999 9 

M.FBAAAA0196H7NBJJGJ 

8 99YYYY. 98898Y9Y 

9 9999 99 99 9 

JU.D5AKBVAAA0199H3AJ 

Y8 Q9Q899QYY .998Y 
99 Z 99 999 99 

AAAAAAA0201DD7DAMX. A 
YYYYYYY 9Y99Y99 Q 

999999 9 9 Z 

206A4SDBAD.U. 3AAFAAH 
88999Y8 8 9Q8999 
99 9 9 9 

11H4KBBAD.U.G5AFAKA0 
98899Y8 8 Q9Q898Q8 
99 9 9 Z 9 999 

*KB0214C7E8VJD*X.CHA 

89 88899Y8 9 ZY 
9 99 99 

16D7V.VJD.X.AA.J*QBL 
888 9Y8 9 YQ 9 998 
999 99 99 9 

•X* AQBTAAJAA0219A4SJ 
9 Q999QZYYY 889Y 
Z 9 999 99 9 



65D7P. DAHAGA0166C40A 
989 9Y998Q 989Y 

9 99. 9 

ALAAAAA0170G7GADAFDH 
Y8YYYYY 98 99Q999 
9999 9 9 

BATBLAAPHAAAAAA0173F 
89999 YY99 YYYYYY 9 
9 9 999999 

DAFDBAOMBC* AAAA0177 A 
909999 99R YYYY 8 
9 9999 9 

DAB„ ABOE JE AAAAAO 184 F 
909 Y9 8YRQYYYY 9 
9 9 99 99999 

DAB. AB0BAEAAAAA0187F 
9Q9 Y9 99RQYYYY 9 
9 9 99999 

DAB.AB0HBFHAAAA0190C 
909 Y9699R9YYYY . 8 
9 9 . 9999 9 

A0VAAAAAAA0192 A76 AAA 
9&99YYYYYY 889YYY 
999999 99 9 

D0194H4B. AAHALJGLAAH 
9 988 YYZY8YY8Q99 
99 9 99999 

AAG5AAH0* VH0197G7 AAH 

9QY9Q998 99 988QZ 
99 9 9 999 

AAJ.LA3UJ.A6.6H0200E 

9Q9 8Q 9Y 99 99 8 
9 99 . 9 9 

A0203F76A JJ/AG JOTAA* 

9 988Q8Y8Y9Y 908 
999999 9 9 

KBOSJ AAAAAA0210A70. B 
8969YYYYYYY 888 9 
9 9999999 999 

* 0212C06.MA J* KAGAJ. A 

8 9 ZY9 8YQYY 9 

9 9 Z99 

OBLJLADB. TA3AAA0215C 
998Y8QQ8 9Q99YY . 8 
9999Z9 9 99 9 

JGLATA3ABA0217GCG A/B 
Y08Q9099Z0 9 9999 
. 9Z99 9 9 

JJGJIJ.3AA6AAHSD07AAA 
8Y9Y8 9Q8Q9999G89YY 
99 99 999 9 99 



DAGHAA0167 .180510138 
9Y89YY 
9 99 

ADGAGHGBA A . 180510 1 39 
9Q808989YY 
Z999 99 

7C.DAFDBA*. 180510140 
8R 9Q9999 
9 9 

DNJBA/A6B. .180510141 

Y9Y8Y8Y89 

9 99 9 9 

7EADAB.AB. . 180510142 
8RQ9Q9 Y9 
9 9 9 9 

7GDDAB. AB. . 180510143 
8R99Q9 Y9 
9 9 9 

7 BAAAGJ7 •••180510144 

8ZQYY9Y9 
9 99 9 

7. HA ••180510145 

9 ZY 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8060 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 



8060 TITLE F8060 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 
**************************************************************** 



******* 



MODIFICATIONS 

1. PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 

THIS IS A NEW ADDITION TO THIS PROGRAM PACKAGE. 

ENGINEERING CHANGE PREREQUISITES 

1. HARDWARE 

2821 CONTROL UNIT WITH 2540 ATTACHMENT AT MINIMUM 
E.C. LEVEL 124265 

2. PROGRAM 
NONE 



001015 



001060 
001065 



0017D0 
0017D0 



0019F4 



010000000F 
001DCA 



001000 
002000 



001000 
001004 
001040 
001048 
0010E0 
0010E2 
0010E4 
0010E6 
00112C 
001134 
00114D 
0011F8 
00 11 FA 
001231 
00112C 
00114C 
0011F7 
00122D 
0016EC 
001714 
00171C 
001060 
0016E6 
00179C 
001234 
00163E 
0012E8 
00"0048 
000040 
001202 
00114D 

001015 

001060 



0017D0 



OOOOOOOOOOOOOOOO 



XF8060 START 4096 
USING *,15 
USING *&4096,10 

*********************************************************** ************ 

* FOURTH OVERLAY - ROUTINE 05 * 
*********************************************************************** 

* RESIDENT LABELS ADDRESSED BY OVERLAYS * 
***************************************************************** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
****** 

ORG 
DC 
ORG 
DC 
DC 
ORG 
****** 
VAR1A 
***** 
CNOP 
DC 



****** 

SECST 

SNSW 

CSW 

CAW 

UNIT1 

UN1ADR 

UNIT2 

UN2ADR 

SI0VR3 

SI0VR4 

SI0SW5 

STATSV 

CSWAG 

UAPU 

CSWSAV 

CAWKEY 

SENSE 

UARD 

EXIT 

EXIT1 

EXIT2 

SVRPSW 

EXITBY 

SCHNUM 

SCPDAT 

SCPROO 

SIO 

HCAW 

HCSW 

MESS1 

SIOSWS 

****** 



SEC ST&4 

SECSTC64 

SECST&72 

SECST&224 

SECST&226 

SECST&228 

SECST&230 

SECST&300 

SECST&308 

SECSTC333 

SECST&504 

SECST&506 

SECST&561 

SECSTS300 

SECST£332 

SECST&503 

SECST£557 

SECSTS1772 

SECSTE1812 

SEC STE1820 

SECST&96 

SECSTS1766 

SECST&1948 

SECST&564 

SECST&1598 

SECST&744 

72 

64 

SECSTC514 
SECSTS333 



******* 



************************************************ 



INITIAL PSW STARTING ADDR FOR RTN 05 
SVC RETURN PSW 



****** 
* 

****** 

WKAR3 



SECSTG21 
AL3 { RTN05 ) 
SECST&96 
X*0100QOOOOF« 
AL3 ( RDCRD1 ) 
SECSTS2000 

*********************************************************** 
BLES - DOUBLE WORD BOUNDARY * 
*********************************************************** 
0,8 

XL8»00" 



DATE 
EC 
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125643 
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* F8041 


2821 SCAN/254a READER/PUNCH 










F806a 


Dl IMfU TDAMCI ATflO' CI T 
rUNUn 1 KANoLA I UK- l*L 1 


-ROUTINE OVERLAY 


05- 






0017D8 


rvn nnnnnrmnnn rvn c\ r\ 
uuuuuuuuuuuuuuuu 


WKAR4 


DC 


XL8«00» 










* 
* 


VARIABLES - WORD 80UNDARY 






0017E0 




* 


CNOP 


0,4 






0017E0 


OUOOOOOO 


ERNO 


DC 


XL4 , 00« 










*************************************************** ********** ******** 


** 






* 


VARIABLES - NO BOUNDARY 




* 






********************************************************************* 


** 


0017E4 


000102030405060708 


INDAT 


DC 


X , 000102030405060708090A1011191A20 , 




0017ED 


U90A1U11191A20 












0017F4 


2122292A3040414248 




DC 


X*2122292A3040414248494A5051585960« 




0017FD 


494 A505 1585960 












001804 


616263686 A6B6E7072 




DC 


X , 616263686A6B6E7072787A8081628889« 




00180D 


787A8081828889 












001814 


8B91A1A9C0C1C2C8CA 




DC 


X«8B91A1A9C0C1C2C8CAD0D2D8DAE0E1E2« 




00181D 


D0D2D8DAE0E1E2 












001824 


E3E8E9EAEBF0FA 




DC 


X 1 E3E8E9EAEBF0FA 1 






00182B 




WRSNS 


DS 


CL71 






001872 




WRCKRD 


DS 


CL71 






0018B9 




RDAT 


DS 


CL71 






001900 




RDSNS 


DS 


CL71 






001947 




RDCKRD 


DS 


CL71 






00198E 




COMDAT 


DS 


CL90 






0019E8 


00 


ERSW1 


DC 


X«00« 






0019E9 


C5D9D940E7E7E7E7E7 


ERRX 


DC 


C •ERR XXXXX 8 










********************************************************************* 


** 






* 


ROUTINE 05 PREFIX 




* 






ft*************************************** *************** ****** ********** 


0019F2 






CNOP 


0,4 






0019F2 


07 00 


BCR 


0,0 






0019F4 


05 


RTN05 


DC 


XL1«05» 


ROUTINE NUMBER 




0019F5 


00 




DC 


XL1 , 00» 


FLAGS 




0019F6 


FFFF 




DC 


X "FFFF • 


LAST ROUTINE 




0019F8 


95 85 F 79C 


* 

RTOO 


CLI 


SCHNUM , X • 85 • 


SEE IF SHOULD RUN THIS ROUTINE 




0019FC 


47 80 F A12 




BC 


EQUAL, RT01 


,, BRCH IF YES 




001A00 


95 00 F 79C 




CLI 


SCHNUM, X 1 00* 


SEE IF SHOULD RUN THIS ROUTINE 




UU 1 AU*t 


1 ~~t O fX C All 

hi ou r A1Z 




BC 


EQUAL, RT01 


, , BRCH IF YES 




001A08 


Ud. Vc. r USD r tfU 


RTOX 


MVC 


SVRPSW£5(3) ,SCRAD 


SET UP RETURN SVC PSW ADDR 




001A0E 


H I ru r f LH 




BC 


ALWAYS, EXIT1 


BYPASS DATA CARDS ROUTINE EXIT 




001A12 


oi no c nn a 


RT01 


TM 


SNSW,X»02 » 


SEE IF WANT TITLE PRINTOUT 




001A16 


l.~t O A C Alrt 

Hi qu r AZU 




BC 


ALLOFF ,RT02 


,, BRCH IF NO 




001A1A 


OA DO 




SVC 


X«DO« 


PRINT TITLE 




001A1C 


80 




DC 


X«80« 


, , NORMAL OUTPUT 




001A1D 


OF 




DC 


X'OF • 


,, 15 CHARACTERS 




001A1E 


F E73 




DC 


S ( TITLE ) 


ADDRESS OF TITLE 




001A20 


91 40 r 004 


RT02 


TM 


SNSW,X'40» 


SEE IF WANT UTILITY ROUTINE 




001A24 


47 80 r AZC 




BC 


ALLOFF, RT03 


, , BRCH IF NO 




001A28 


HO ou r ooc. 




BAL 


GR8, SCPROO 


BRCH TO UTILITY ROUTINE 








*. 
* 


DATA 


COLLECTION ROUTINE 






001A2C 


41 10 F 7E4 


* 

RT03 


LA 


GR1, INDAT 


INITIALIZE 




001A30 


41 20 F 8B9 




LA 


GR2,RDAT 






001A34 


41 30 F 98E 




LA 


GR3, COMDAT 






001A38 


1 B 66 




SR 


GR6,GR6 






001A3A 


92 00 F 98E 




MVI 


COMDAT, X ' 00* 






001A3E 


D2 58 F 98F F 98E 




MVC 


COMDAT&l ( 895 , COMDAT 






001A44 


45 AO F D18 


RT04 


BAL 


GRA, DWR 


GO WRITE PUNCH BUFFER 




001A48 


D2 00 1 08E F 234 




MVC 


142(1, GR1), SCPDAT 


SAVE WRITE CHECK READ DATA 




001A4E 


45 AO F D4A 




BAL 


GRA , PRD 


GO READ PUNCH BUFFER 




001A52 


D2 00 2 08E F 234 




MVC 


142(1,GR2>, SCPDAT 


SAVE READ CHECK READ DATA 




001A58 


D7 Q7 F 7 DO F 7D0 




XC 


WKAR3(8) ,WKAR3 


COMBINE INV CD CODE READ DATA 




001A5E 


D7 07 F 7D8 F 7D8 




XC 


WKAR4( 8) ,WKAR4 


» t 




001A64 


D2 00 F 7D8 2 000 




MVC 


WKAR4(1),0(GR2) 


1 1 




001A6A 


58 BO F 7D8 




L 


GRB, WKAR4 


* t 




001A6E 


IB 00 




SR 


GRO,GRO 


1 1 




DATE' 


17MAR66 
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EC 
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PAGE 


1A 
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P/N 840474 
PAGE 2A 



j 001A70 


88 


B0 


0 


001 




SRL 


GRB,1 (GRO) 




001 B5C 


47 


20 


F 


B88 








BC 


HIGH,PT065 


,, BRCH IF NO 




001A74 


50 


B0 


F 


7 DO 




ST 


GRB t WKAR3 


* » 


nn i n / n 

00 1 B60 


91 


10 


F 


004 








TM 


SNSW, X * 10 • 


PRINT CORRECT RESULTS 




j 001A78 


91 


08 


2 


047 




TM 


7KGR2) rX'QB* 


» t 


001 B64 


47 


FO 


F 


B72 








BC 


ALWAYS,PT064 


, , BRCH IF NO 




| 001A7C 


47 


80 


F 


A84 




BC 


ALLOFF , RT05 


T » 


001 B68 


D2 


03 


F 


9ED 


9 


000 




MVC 


ERRX&4(4) ,0(GR9) 


SET FAULT NO. IN MESSAGE 




] 001A80 


96 


80 


F 


7 DO 




01 


WKAR3,X«80« 


9 » 


001B6E 


45 


BO 


F 


C46 








BAL 


GRB, PRCRES 


GO PRINT FAULT NO. 




; 001A84 


58 


B0 


F 


7 DO 


RT05 


L 


GRB f WKAR3 


9 » 


001B72 


41 


90 


9 


004 






PT064 


LA 


GR9,4(GR0,GR9J 


UPDATE CURRENT ADDR BY 4 




| 001A88 


18 


96 








LR 


GR9,GR6 


t f 


001 B76 


41 


80 


F 


27A 








LA 


GR8, SCPDAT&70 


DOES THIS CARD CONTAIN NEXT DATA 


FLD 


| 001A8A 


5C 


80 


F 


E10 




M 


GR8,NINE 


t 9 


001B7A 


41 


70 


9 


009 








LA 


GR7, 9(GR0,GR9) 


9 9 


i 001A8E 


IB 


88 








SR 


GR8 t GR8 


9 9 


001B7E 


15 


78 












CLR 


GR7, GR8 


9 9' 




i 001A90 


5D 


80 


F 


E14 




D 


GR8, EIGHT 


9 9 


001B80 


47 


20 


F 


AD8 








BC 


HIGH,PT051 


, , BRCH IF NO 




001A94 


88 


B0 


8 


000 




SRL 


GRB $ 0 ( GR8 ) 


9 9 


001B84 


47 


FO 


F 


AEO 








BC 


ALWAYS, PT061 


CONTINUE 


! 


001A98 


50 


B0 


F 


7 DO 




ST 


GRB , WKAR3 


9 9 


001B88 


45 


BO 


F 


DAO 






PT065 


BAL 


GRB,RDCRD 


READ A DATA CARD 




001A9C 


41 


99 


F 


98E 




LA 


GR9,C0MDAT(GR9) 


9 9 


001B8C 


91 


10 


F 


004 








TM 


SNSW,X«10« 


PRINT CORRECT RESULTS 


j 


001 A AO 


D6 


03 


9 


000 F 7 DO 




0C 


0(4,GR9) ,WKAR3 


9 > 


001B90 


47 


FO 


F 


B9E 








BC 


ALWAYS, PT066 


BRCH IF NO 




001AA6 


41 


B0 


F 


82B 




LA 


GRB, WRSNS 


SEE IF END OF DATA COLLECTION 


001 B94 


D2 


03 


F 


9ED 


F 


234 




MVC 


ERRXG4(4) , SCPDAT 


SET FAULT NO. IN MESSAGE 




001AAA 


41 


10 


1 


001 




LA 


GR 1 1 1 ( GROt GR1 ) 


9 9 


001B9A 


45 


BO 


F 


C46 








BAL 


GRB, PRCRES 


GO PRINT FAULT NO. 




001AAE 


15 


IB 








CLR 


GR1,GRB 


9 9 


001B9E 


41 


90 


F 


238 






PT066 


LA 


GR9, SCPDAT64 


SET CURRENT ADDRESS 




001AB0 


47 


80 


F 


AC0 




BC 


EQUAL, RT10 


99 BRCH IF YES 


001BA2 


47 


FO 


F 


AEO 








BC 


ALWAYS, PT061 


CONTINUE 


| 


001AB4 


41 


20 


2 


001 




LA 


GR2,1(GR0,GR2> 


9 * 


001BA6 


46 


40 


F 


AFE 






PT067 


BCT 


GR4.PT063 


BRCH IF DID NOT USE 4 MASKS 




001AB8 


41 


60 


6 


001 




LA 


GR6,1(GR0,GR6) 


9 9 


001BAA 


41 


80 


F 


27A 








LA 


GR8,SCPDATG70 


DOES THIS CARD CONTAIN NEXT DATA 


FLD ! 


001 ABC 


47 


F0 


F 


A44 




BC 


ALWAYS, RT04 


CONTINUE COLLECTING DATA 


001BAE 


41 


70 


9 


008 








LA 


GR7,8(GR0,GR9) 


f 9 


j 












• 








001BB2 


15 


78 












CLR 


GR7,GR8 
















* 


ERROR 


DEFINITION ROUTINE 




001BB4 


47 


CO 


F 


AEE 








BC 


L0EQ,PT062 


\\ BRCH IF YES 














» 








001 BB8 


45 


BO 


F 


DAO 








BAL 


GRB,RDCRD 


READ A DATA CARD 




001AC0 


D5 


4F 


F 


98E F E20 


RT10 


CLC 


C0MDAT( 80) »0UTDAT 


SEE IF GOT ANY ERRORS 


001BBC 


41 


90 


F 


234 








LA 


GR9, SCPDAT 


SET CURRENT ADDRESS 




001 AC6 


47 


60 


F 


AD4 




BC 


NEQUAL,RT20 


,, BRCH IF YES 


001 BCO 


47 


FO 


F 


AEE 








BC 


ALWAYS, PT062 


CONTINUE 




001 ACA 


OA 


DO 








SVC 


X*D0» 


PRI NT NO ERRORS DETECTED 


001BC4 


46 


20 


F 


BA6 






PT068 


BCT 


GR2,PT067 


BRCH IF NOT LAST MASK 




001 ACC 


80 










DC 


X» 80» 


, , NORMAL OUTPUT 


001BC8 


46 


40 


F 


BCC 








BCT 


GR4,*£4 


UPDATE CURRENT ADDRESS 




001 ACD 


10 










DC 


X 1 10* 


, , 16 CHARACTERS 


001 BCC 


It 


94 












ALR 


GR9,GR4 


9 9 




001 ACE 


F E82 








DC 


S (NERDET) 


, , ADDRESS OF MESSAGE 


00 1 BCE 


IE 


94 












ALR 


r« n r\ /» n / 

GR9 , GR4 






r\r\ i Ann 
UU 1 AUU 


47 


F0 


F 


C4E , 




BC 


AL WAYS,LGOUT 


GO SEE IF WANT LOG OUT 


nn i cx nn 
UU 1 DUU 


91 


FF 


F 


9 E8 








TM 


cRSWl , X ■ FF * 


SEE IF ERR SW 1 ON 




nn i a nA. 

UUlAUt- 


41 


10 


A 

u 




RT20 


LA 


GR 1 , 30 ( GRO, GRO) 


INITIALIZE DATA RECORD COUNT 


nn i r ha 

UU I D Uf 


47 


10 


r 


Rt? o 








BC 


At 1 OM nTAZ.O 1 

ALLUN , r I U631 


,, BRCH IF YES 




nn i a no 
UU lAUO 


45 


B0 


F 


DA0 


PT051 


BAL 


GRB ,RDCRD 


GO READ A DATA CARD 


nn i unji 
uu i duo 


41 


80 


F 


27 A 








LA 


bR8,5CPDATc»70 


DOES THIS CARD CONTAIN NEXT DATA 


FLD 


UU1 AUu 


41 


90 


F 


234 


PT06 


LA 


GR9, SCPDAT 


SET UP CURRENT DATA ADDRESS 


nn l nnr 

UU 1 DUU 


41 


70 


9 


003 








LA 


GR7,3lGKO,GR93 


9 9 




UUlAfcU 


92 


00 


F 


9E8 


PT061 


MVI 


ERSW1 , X • 00 • 


RESET ERR SW 1 


nn i ncn 
UU I o tu 


15 


78 












CLR 


a* r> ~y r* o o 

GR 7 , GRo 






UU iACt 


IB 


22 








SR 


bR*: , bK2 


SET COUNT OF MASKS IN GR2 


00 1 B E 2 


47 


20 


c 
r 










BC 


n 1 bn , r 1 UoA 


\\ BRCH IF NO 




nn i aca 

UU 1 A CO 


43 


20 


Q 


nnn 
uuu 




IC 


hKc , 0 { bRU ,bR9) 


t ? 


.nm rpa 

4JU 1 D CO 


D2 


02 


c 
r 


o pn 


Q 


nn i 

UU x 




M\/r 

r\ VV# 


CDDVf A/H 1 1 f O Q\ 
CKKAOHl 5j tllbKVJ 


MOVE ERROR NO. TO ERROR MESSAGE 




nn i aca 

UU 1 A C A 


41 


90 


Q 


nn i 

UU 1 




LA 


bK9 , 1 i GRO , GR9 1 


UPDATE CURRENT ADDR BY 1 


om Rpf 


D7 


07 


p 


7 DO 


p 


7D0 




vr 
AU 


WNAK3 VOl , WNAKJ 


CONVERT ERROR NO. TO BINARY SAVE 


nm app 

UU i AC c 


43 


30 


Q 


nnn 

UUU 


r l yJoc. 


t r 
lb 


bK3 , UlbROf GR93 


SET CC I N GR 3 


00 1 BF2 


. D2 


02 


c 
r 


7D5 


Q 


nn i 

UU 1 




rl Vb 


UtfAD'aps^/'aik 1 (TDOl 
WNAKJCiDlJ J ,1 IbKVJ 


9 9 




nn 1 AC5 

UU lArt 


89 


30 


ft 

u 


n i o 
U 1 o 




SLL 


GR3 , 24 




nn i rp r 
uu l d r o 


F2 


22 


c 
r 


l UD 


r 


r UD 




D a r V 


Lll/ AD7f K 1 54 1.11/ A D 1 f K f 11 


9 9 




nn i a pa 
uu i a r o 


41 


90 


o 


nn i 

UU 1 




LA, 


bRVtl(bR0,bK9) 


UPDATE CURRENT ADDR BY 1 


nn i r p p 

UU lore 


4F 


80 


c 
r 


i nn 

i UU 








CVB 


D O Ul/ AO 5 

bKo , Wt\ AK 5 


9 9 


j 


nn i aca 

UU X A r A 


41 


40 


n 
u 


UU*fr 




LA 


bK4,4lGR0,GR0) 


SET 4 I N GR 4 


nn i rn5 

UU i UU£ 


41 


80 


8 


28 A 








LA 


bKo,65ulbRU,GKol 


9 9 




nn i a p c 
uu 1 Arc 


41 


50 


c 
r 


98 E 


PT063 


LA 


one r d y n a t 

GR5 , COMDAT 


SET TEST DATA ADDR 


00 1 C06 


50 


80 


F 


7 EO 








ST 


O o o c n m A 

GRo , cRNU 






nn l on? 

UU 1 OKJc. 


IB 


88 








SR 


f f> o f r> o 

bRo,GR8 


SET UP TEST ADDRESS 


nn i r n a 

UU I UU A 


4E 


80 


n 
r 


~t nn 

1 UU 








CVD 


bKo , WKAKi 


CONVERT ERROR NO. TO PRINTABLE 




on 1 

UU 1 OUT 


43 


80 


9 


000 




t r 
l b 


bKo,UlbRU,bR9} 


9 9 


nm rnp 

\JyJ X u u c 


OA 


DD 












o vu 


v » nn i 

A UU 


1 1 


[ 


nm Rna 


41 


58 


c 
D 


nnn 

UUU 




LA 


bKt>,OlbKo,bK5) 


9 y 


nn inn 


0003 












nr 

Ub 


AL c. \ D ) 


9 9 




nm nnr 

UU i DU 


41 


90 


9 


00 1 




LA 


GR9, 1 ( GR0,GR9) 


UPDATE CURRENT ADDR BY 1 


1 nn i c i o 

\ UU LI. Lc. 


07D5 












DC 


AL2(WKAR3£5-SECST) 


9 9 




nn i mn 

UU 1 O 1 u 


43 


60 


Q 


nnn 
uuu 




I c 


bKo t 0(bR0,GR9) 


SET UP MASK 


S nn i c i l. 

j UU 1 U 1 1 


07D8 












DC 


AL2(WKAR4-SECST) 






001 B14 


41 


90 


g 


nm 

UU 1 




LA 


bKV , i I bRO ,bR9 ) 


UPDATE CURRENT ADDR BY 1 


! nm r i a 


D2 


03 


p 


o pn 


F 


~/ no 




MVC 


ERRX£4(4) ,WKAR4C1 


SET ERROR NO. IN ERROR MESSAGE 




nm ri a 


50 


20 


p 


7 nn 
1 uu 




C T 


bK£?WKAR3 


CONVERT CC 


i nn i n r 

i UU JL U 1 U 


95 


FO 


c 
r 


q pn 








CLI 


ERRX&4,X«F0« 


SEE IF FIRST CHAR IS 0 




001B1C 


IB 


22 








SR 


GR2 » GR2 


9 9 


| 001C20 


47 


60 


F 


C28 








BC 


NEQUAL,PT06X 


,, BRCH IF NO 




nn trip 

UU 1 D 1 1 


41 


70 


n 
u 


080 




LA 


GR7, 128 


1 9 


j 001C24 


92 


40 


F 


9ED 








MVI 


ERRXa4 f X , 40« 


BLANK OUT 0 




001B22 


8D 


20 


0 


002 




SLDL 


GR2,2 


9 9 


j 001C28 


OA 


DO 










PT06X 


SVC 


X«D0« 


ERR XXX - SEE ERNO PGM DESCRIPTION 


001B26 


88 


70 


2 


000 




SRL 


GR7.0(GR2) 




\ 001C2A 


44 














DC 


X»44« 


ERROR OUTPUT 




001B2A 


49 


70 


F 


E1E 




CH 


GR7, THRT2 


is'cc 2 


| 001C2B 


08 














DC 


X»08« 


,, 8 CHARACTERS 


| 


001B2E 


47 


60 


F 


B36 




BC 


NEQUAL,PT0630 


,, BRCH IF NO 


j 001C2C 


F 9E9 












DC 


S(ERRX) 


,, MESSAGE ADDRESS 




001B32 


41 


70 


0 


050 




LA 


GR7,80 


SET CC FOR ANY OR ALL 


: 001C2E 


47 


FO 


F 


C4E 








BC 


ALWAYS, LG0UT 


GO SEE IF WANT LOG OUT 




001B36 


58 


20 


F 


7 DO 


PT0630 


L 


GR2 , WKAR3 


RESTORE GR 2 


: 001C32 


45 


BO 


F 


DAO 






PT06A 


BAL 


GRB ,RDCRD 


READ A DATA CARD 




001B3A 


44 


60 


F 


C3E 




EX 


GR6, TMA 


TEST DATA 


3 001C36 


41 


90 


F 


234 








LA- 


GR9, SCPDAT 


SET CURRENT ADDRESS 




001B3E 


44 


70 


F 


C42 




EX 


GR7,BC0N 


BRCH IF ERROR RESULT 


1 001C3A 


47 


FO 


F 


BE6 








BC 


ALWAYS,PT069 


CONTINUE 


j 


001B42 


92 


FF 


F 


9E8 




MVI 


ERSW1,X«FF« 


TURN ON ERR SW 1 


001C3E 


91 


00 


5 


000 






TMA 


TM 


0(GR5),X«00» 


TEST DATA 




001B46 


46 


20 


F 


BA6 




BCT 


GR2,PT067 


BRCH IF NOT END OF MASKS FOR THIS CC 


\ 001C42 


47 


00 


F 


BC4 






BCON 


BC 


NA,PT068 






001B4A 


46 


40 


F 


B4E 




BCT 


GR4,*£4 


UPDATE CURRENT ADDR 
















» 










00184E 


IE 


94 








ALR 


GR9,GR4 


9 9 


i 














* 


ROUTINE TO PRINT FAULT NUMBERS 


i 

» 


001B50 


IE 


94 








ALR 


GR9,GR4 


9 9 
















* 










001B52 


41 


80 


F 


27A 


PT0631 


LA 


GR8,SCPDAT£70 


DOES THIS CARD CONTAIN NEXT DATA FLD 


^ 001C46 


OA 


DO 










PRCRES 


SVC 


X«D0« 


PRINT FAULT NO. 




: 001B56 


41 


70 


9 


003 




LA 


GR7,3(GR0,GR9) 


9 9 


* 001C48 


80 














DC 


X«80» 


, , NORMAL OUTPUT 




001B5A 


15 


78 








CLR 


GR7,GR8 


9 9 


\ 001C49 


08 














DC 


X«08« 


8 CHARACTERS 




: DATE 


17MAR66 












ID F806-0 


jj 

! DATE 


17MAR66 
















ID F806-0 



EC 



125643 



PAGE 



EC 



125643 



PAGE 



2A 



30000000000000000000 0 0000000000 0 0 



cccccccccccc 



c c c c c cccccccoocccccco c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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* F8041 2821 SCAN/2540- READER/PUNCH 

F8060 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 



* F8041 2821 SCAN/2540 READER/PUNCH 

F8060 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 



001C4A 


F 9E9 












DC 


S(ERRX) 


,, MESSAGE ADDRESS ! 














* 


ROUTINE TO WRITE PUNCH BUFFER 


001C4C 


07 FB 












BCR 


ALWAYS»GRB 


RETURN TO MAIN PROGRAM 














« 




















* 








t>01D18 


48 CO 


F 


0E6 






DWR 


LH 


GRC , UN2ADR 


• SET PUNCH I/O ADDR IN GR 12 














* 


LOG 


OUT ROUTINE 




mi D1C 


D2 00 


F 


234 


1 


000 




MVC 


SCPDAT(i) ,0(GR1) 


LOAD WRITE DATA . 














* 








001D22 


D2 4E 


F 


235 


F 


234 




MVC 


SCPDAT&K79) ,SCPDAT 




001C4E 


91 20 


F 


004 






LGOUT 


TM 


SNSV^X^O 1 


SEE IF WANT LOG OUT 


001D28 


41 00 


F 


DF8 








LA 


GRO,PWRCCW 


LOAD ADDR OF PUNCH WRITE CCW 


001C52 


47 80 


F 


D08 








BC 


ALLOFF, LGOUTX 


,, BRCH IF NO 


001D2C 


50 00 


F 


048 








ST 


GRO,CAW 




001C56 


41 10 


F 


7E4 








LA 


GR1 , INDAT 


INITIALIZE LOG OUT ROUTINE 


001D30 


92 00 


F 


14D 








MVI 


SIOSWS,X«00« 


. RESET SIO SWITCHES -USE PUNCH ADDR- 


001C5A 


41 20 


F 


8B9 








LA 


GR2,RDAT 


» t 


001D34 


45 BO 


F 


2E8 








BAL 


GRB,SIO 


BRCH TO SIO ROUTINE 


001C5E 


92 40 


F 


234 






LG0UT1 


MVI 


SCPDATtX^O* 


CLEAR PRINT FIELD 


001D38 


91 01 


F 


14D 








TM 


SIOSWSjX'Ol 1 


SEE IF INTERVENTION REQ SW ON 


001C62 


D2 7C 


F 


235 


F 


234 




MVC 


SCPDAT6K 125) ,SCPDAT 


T 1 


001D3C 


47 10 


F 


D18 








BC 


ALLON,DWR 


,, REPEAT WRITE IF YES 


001C68 


02 00 


F 


7D0 


1 


000 




MVC 


WKAR3( 1) ,0(GR1) 


SET UP TO PRINT WRITE DATA 


001D40 


D2 00 


1 


047 


F 


1F7 




MVC 


71 ( 1, GR1 ) , SENSE 


SAVE WRITE SENSE DATA 


001C6E 


OA DD 












SVC 


X'DD' 




001D46 


47 FO 


F 


D7C 








BC 


ALWAYS, DCK 


GO DO DIAGNOSTIC CHECK READ 


001C70 


0001 












DC 


AL2(1) 
















* 








001C72 


07D0 












DC 


AL2(WKAR3-SECST) 
















* 


ROUTINE TO PERFORM PUNCH DIAGNOSTIC READ 


001C74 


0237 












DQ 


AL2(SCPDAT£3~SECST) 


1 1 














* 








001C76 


D2 00 


F 


7D0 


1 


047 




MVC 


WKAR3(l),7l(GRl) 


SET UP TO PRINT WRITE SENSE DATA \ 


001 D4 A 


92 00 


F 


14D 






PRO 


MVI 


SIOSWS^OO" 


RESET SIO SWITCHES -USE PUNCH ADDR- 


001C7C 


OA DD 












SVC 


X^DD 1 


v » | 


001D4E 


41 00 


F 


EOO 








LA 


GRO,PRDCCW 


LOAD ADDR OF PUNCH READ CCW 


001C7E 


0001 












DQ 


AL2U) 


» t ! 


001D52 


50 00 


F 


048 








ST 


GRO,CAW 




001C80 


07D0 












DC 


AL2CWKAR3-SECST) 




001D56 


92 00 


F 


234 








MVI 


SCPDAT,X'00« 


; CLEAR READ FIELD 


001C82 


023A 












DC 


AL2(SCPDAT£6-SECST) 




001D5A 


D2 4E 


F 


235 


F 


234 




MVC 


SCPDAT£l(79> f SCPDAT 




001C84 


D2 00 


F 


7 DO 


1 


08E 




MVC 


WKAR3(1) , 142(GR1) 


SET UP TO PRINT WRITE CK READ DATA 


001D60 


45 BO 


F 


2E8 








BAL 


GRB t SIO 


BRCH TO SIO ROUTINE 


001C8A 


OA DD 












SVC 


X»DD» 


* » 


001D64 


91 01 


F 


14D 








TM 


SIOSWSiX'Ol" 


SEE IF INTERVENTION REQ SW ON 


001C8C 


0001 












DC 


AL2U) 


» ? 


001D68 


47 10 


F 


A44 








BC 


ALL0N,RT04 


,, RE-RUN WRITE READ IF YES 


001C8E 


07 DO 












DC 


AL2(WKAR3-SECST) 


1 1 


001D6C 


D2 00 


2 


000 


F 


234 




MVC 


0(1,GR2),SCPDAT 


SAVE READ DATA 


001C90 


0230 












DC, 


AL2(SCPDAT£9-SECST> 


1 1 


001D72 


D2 00 


2 


047 


F 


1F7 




MVC 


71 ( 1, GR2) * SENSE 


SAVE READ SENSE DATA 


001C92 


D2 00 


F 


7D0 


2 


000 




MVC 


WKAR3U) ,0(GR2) 


SET UP TO PRINT READ DATA 


001D78 


47 FO 


F 


D7C 








BC 


ALWAYS, DCK 


GO DO DIAGNOSTIC CHECK READ 


001C98 


OA DD 












SVC 


X*DD» 


t » 














* 








001C9A 


0001 












DC 


AL2(1) 


f 9 














« 


ROUTINE TO PERFORM DIAGNOSTIC CHECK READ 


001C9C 


07 DO 












DC 


AL2(WKAR3-SECST) 


J 1 














* 








001C9E 


0240 












DC 


AL2(SCPDAT£12-SECST) 


t 1 


001D7C 


41 00 


F 


E08 






DCK 


LA 


GRO,CRDCCW 


LOAD ADDR OF DI AG CK RD CCW 


001CA0 


D2 00 


F 


7 DO 


2 


047 




MVC 


WKAR3Q) ,71(GR2) 


SET UP TO PRINT READ SENSE DATA 


001D80 


50 00 


F 


048 








ST 


GRO,CAW 




001CA6 


OA DD 












SVC 


X'DD'. 




001D84 


92 00 


F 


14D 








MVI 


SIOSWS,X«00« 


RESET SIO SWITCHES -USE PUNCH ADDR- 


001CA8 


0001 












DC 


AL2(1) 


t , 


001D88 


92 00 


F 


234 








MVI 


SCPDAT,X»00» 


CLEAR READ FIELD 


001CAA 


07D0 












DC 


AL2 ( WKAR3-SECST) 


» t 


001D8C 


D2 4E 


F 


235 


F 


234 




MVC 


SCPDAT&l ( 79) ,SCPDAT 




001CAC 


0243 












DC 


AL2 ( SCPDAT&15-SECST) 


t » 


001D92 


45 BO 


F 


2E8 








BAL 


GRB,SIO 


BRCH TO SIO ROUTINE 


001CAE 


D2 00 


F 


7 DO 


2 


08E 




MVC 


WKAR3( 13 ,142(GR2) 


SET UP TO PRINT READ CK RD DATA 


001D96 


91 01 


F 


14D 








TM 


SI0SWS,X«01« 


SEE IF INTERVENTION REQ SW ON 


001CB4 


OA DD 












SVC 


X'DD' 


t f 


001D9A 


47 10 


F 


A44 








BC ! 


ALLON , RT04 


RE-RUN WRITE READ IF YES 


001CB6 


0001 












DC 


AL2(1) 




001D9E 


07 FA 












BCR 


ALWAYS, GRA 


RETURN TO MAIN PROGRAM 


001CB8 


07 DO 












DC 


AL2(WKAR3-SECST» 
























001CBA 


0246 












DC 


AL2 { SC PDA TCI 8- SEC ST) 


» » 














» 


ROUTINE TO READ DATA CARDS 




001CBC 


92 5C 


F 


235 








MVI 


SCPDATaifC'*' 


SET ERROR FLAG 














* 








001CC0 


D5 01 


F 


237 


F 


240 




CLC 


SCPDAT&3 ( 2 ) , SCPDATS12 


SEE IF READ DATA OK 


001DA0 


92 00 


F 


234 






RDCRD 


MVI 


SCPDAT,X»00« 


CLEAR READ FIELD 


001CC6 


47 60 


F 


CEE 








BO 


NEQUAL, LGOUTA 


,, BRCH IF NO 


001DA4 


D2 4E 


F 


235 


F 


234 




MVC 


SCPDAT&l ( 79) ,SCPDAT 


t 7 


001CCA 


95 00 


1 


047 








CLI 


71 { GR1 ) » X 1 00 • 


SEE IF ANY WRITE SENSE DATA 


001DAA 


OA DB 












SVC 


X«DB' 


1READ A DATA CARD 


001CCE 


47 60 


F 


CEE 








BO 


NEQUAL, LGOUTA 


,, BRCH IF YES 


001DAC 


« 0234 












DC 


AL2(SCPDAT-SECST) 


READ DATA FIELD ADDRESS 


001CD2 


95 00 


1 


08E 








CLI 


142{GR1) ,X*00» 


SEE IF ANY WRITE CK READ DATA 


001DAE 


41 10 


1 


001 








LA 


GR1 , 1 ( GRO ,GR1 ) 


INCREASE CARD COUNT 


001CD6 


47 60 


F 


CEE 








BC ; 


NEQUAL, LGOUTA 


,, BRCH IF YES 


001DB2 


4E 10 


F 


7D0 








CVD 


GR 1 , WKAR3 


CONVERT CARD NO TO PRINTABLE 


001CDA 


95 00 


2 


047 








cm 


7KGR2) ,X'00» 


SEE IF ANY READ SENSE DATA 


001DB6 


OA DD 












SVC 


X*DD» 


» » 


001CDE 


47 60 


F 


CEE 








BC 


NEQUAL, LGOUTA 


BRCH IF YES 


001DB8 ~ 


0002 












DC 


AL2(2) 




001CE2 


95 00 


2 


08E 








CLI 


142(GR2) ,X«00» 


SEE IF ANY READ CK READ DATA 


001DBA 


07D6 












dc ; 


AL2(WKAR3£6-SECST) 


t » 


001CE6 


47 60 


F 


CEE 








BQ; 


NEQUAL, LGOUTA 


,, BRCH IF YES 


001DBC 


07D8 












DC 


AL2 ( WKAR4-SECST) 




001CEA 


92 40 


F 


235 








mi 


SCPDAT&l, X»40« 


REMOVE ERROR FLAG 


001DBE 


D5 02 


F 


7D8 


F 


281 




CLC 


WKAR4(3) ,SCPDAT£77 


SEE IF DATA CARD SEQUENCE OK 


001CEE 


OA DO 










LGOUTA 


SVC 


X'DO 1 


PRINT LOG OUT DATA 


001DC4 


4? 60 


F 


DD4 








BC 


NEQUAL, RDCRDX 


,, BRCH IF NO 


001CFO 


80 












DC 


X*80» 


» » 


001DC8 


0? FB 












bcr; 


ALWAYS, GRB 


RETURN TO MAIN PROGRAM 


001CF1 


14 












DC 


X»14* 


i » 


001DCA 


58 20 


F 


E18 






RDCRD1 


l ; 


GR2,CDCNT 


SEE IF CORRECT NO. DATA CARDS READ 


001CF2 


F 234 












DC r ; 


S(SCPDAT) 




001DCE 


15 21 












CLR 


GR2,GR1 


» f 


001CF4 


41 90 


F 


82B 








LA- ; 


GR9,WRSNS 


SEE IF END OF LOG OUT 


001DD0 


47 80 


F 


DE6 








BC 


EQUAL, RDCRD2 


,, BRCH IF YES 


001CF8 


41 10 


1 


001 








LA 


GR1,1(GR0,GR11 


1 1 


001DD4 


41 30 


0 


28A 






RDCRDX 


LA n 


GR3,650<GR0,GR0) 


^SET UP ERROR NO. 


001CFC 


41 20 


2 


001 








LA 


GR2,1(GR0,GR2) 


• f » 


001DD8 


50 30 


F 


7E0 








ST 


GR3, ERNO 




001D00 


15 19 












CLR 


GR1 , GR9 


* i 


001DDC 


OA DO 












SVC 


X»DO« 


ERROR 650 - MISSING DATA RECORDS OR 


001D02 


47 60 


F 


C5E 








BO' 


NEQUAL, LG0UT1 


,, BRCH IF NO a 


001DDE 


44) 












DC 


X»44« 


,, DATA RECORDS OUT OF SEQUENCE 


001D06 


OA DA 












SVC 


X«DA» 


HALT - WAIT FOR ACTION 


001DDF 


07 












DC 


X«07* 


7 CHARACTERS 


001D08 


91 40 


F 


004 






LGOUTX 


TM, 


SNSW,X«40» 


SEE IF WANT UTILITY ROUTINE 


001DE0 


F »E92 












DC 


S(ERR650) 


,, MESSAGE ADDRESS 


001D0C 


47 80 


F 


D14 








BC 


ALLOFF, LGOUTY 


,, BRCH IF NO 


00 IDE 2 


47 FO 


F 


C4E 








BC 


ALWAYS, LGOUT 


GO SEE IF WANT LOG OUT 


001D10 


45 80 


F 


63E 








BAL 


GR8,SCPR00 


BRCH TO UTILITY ROUTINE 


001DE6 


4k 30 


0 


28B 






RDCRD2 


LA 


GR3,651CGR0,GR0) 


SET UP ERROR NO. 


001D14 


47 FO 


F 


AO 8 






LGOUTY 


BC 


ALWAYS, RTOX 


ROUTINE EXIT 


001DEA 


50 30 


F 


7E0 








ST 


GR3,ERN0 
















* 








001DEE 

; 


OA DO 












SVC 


X'DO« 


ERROR 651 - CAN NOT ISOLATE FAILURE 


DATE 


17MAR66 
















ID F806-G 


DATE 


17MAR66 












'l 




ID F806-0 


EC 


125643 
















PAGE 3 


EC 


125643 














PAGE 3A 
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* F8041 
F8060 



001DF0 
001DF1 
001DF2 
001DF4 



001DF8 
001E00 
001E08 



DATE 
EC 



2821 SCAN/2540 READER/PUNCH 
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P/N 840474 
PAGE 4A 



44 
07 

F E99 

47 FO F C4E 



01 001234 2000 0050 
C2 001234 2000 0050 
C6 001234 2000 0050 



DC X»44» 

DC X»07» 

DC SIERR651) 

BC ALWAYS, LGOUT 



,, ERROR MESSAGE 
,, 7 CHARACTERS 
, , MESSAGE ADDRESS 
GO SEE IF WANT LOG OUT 



CCW«S - DOUBLE WORD BOUNDARY 



PWRCCW CCW 
PRDCCW CCW 
CRDCCW CCW 



X'Ql'iSCPDAT.X^O'fSO 
X'C2« tSCPDAT.X^O* ,80 
X«C6»,SCPDAT, X»20« ,80 



WRITE PUNCH BUFFER -SLI ON v 
READ PUNCH BUFFER -SLI ON- 
DIAGNOSTIC CHECK READ' -SLI ON- 



CONSTANTS - WORD BOUNDARY 



001E10 


00000009 


NINE 


DC 


XL4»09« 


001E14 


00000008 


EIGHT 


DC 


XL4«08» 


001E18 


000000A5 


CDCNT 


DC 


XL4«A5» 


001E1C 


0000 




DC 


XL2»00« 


001E1E 


0020 


THRT2 


DC 


XL2»20» 






* 
* 


CONSTANTS - NO BOUNDARY 


001E20 


000040403020140C07 


* 

OUTDAT 


DC 


X»Q00040403020140C0704024141008864» 


001E29 


04024141008864 








001E30 


342010888522A18100 




DC 


X«342010888522A1810082422412494502* 


001E39 


82422412494502 








001E40 


8960B26030988C6683 




DC 


X'8960B26030988C668351ACDC70391E0F» 


001E49 


51ACDC70391E0F 






001E50 


48040 A09108945A454 




DC 


X»48040A09108945A4542A96030584C865« 


001E59 


2A96030584C865 








001E60 


341A4D86D381C2E271 




DC 


X«341A4D86D381C2E271BA1D2EA75BC1F4» 


001E69 


BA1D2EA75BC1F4 








001E70 


•00171C 


SCRAD 


DC 


AL3(EXIT2> 


001E73 


D7E4D5C3C840E7D3C1 


TITLE 


DC 


C 'PUNCH XLATE FLT* 


001E7C 


E3C540C6D3E3 








001E82 


D5D640C5D9D9E240C4 


NERDET 


DC 


C'NO ERRS DETECTED* 


001E8B 


C5E3C5C3E3C5C4 









000008 


ZERO 


EQU 


8 


ZERO 


0 








000002 


GZERO 


EQU 


2 


GREATER ZERO 






2 




000008 


AVAIL 


EQU 


8 


AVAILABLE 


0 








000004 


CSWST 


EQU 


4 


CSW STORED 




1 






000002 


BUSY 


EQU 


2 


BUSY 






2 




OOOOOF 


ALWAYS 


EQU 


15 


UNCONDITIONAL 


0 


1 


2 


3 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


1 




3 


000007 


NZERO 


EQU 


7 


NOT CC 0 




1 


2 


3 


000004 


NOTZRO 


EQU 


4 


NOT ZERO -AND- 




1 






OOOOOC 


MIXNON 


EQU 


12 


MIXED OR NONE 


0 


1 






O0OOOC 


LOEQ 


EQU 


12 


LOW £ EQUAL 


0 


1 






000000 


NA 


EQU 


0 














* 

* 


ERROR 


NUMBER DEFINITION 













001E92 
001E99 



C5D9D940F6F5F0 
C5D9D940F6F5F1 



ERR650 DC 
ERR651 DC 
END 



C'ERR 650 • 
C'ERR 651* 



DATA RECORDS MISSING OR OUT OF SEQ 
CAN NOT ISOLATE PCH XLATE FAILURE 





* 


GENERAL REGISTER EQUATES 












* 




********************************** 


******************* 


******** 


*•**•**«*• 


000000 


GRO 


EQU 


0 














000001 


GR1 


EQU 


1 














000002 


GR2 


EQU 


2 














000003 


GR3 


EQU 


3 














000004 


GR4 


EQU 


4 














000005 


GR5 


EQU 


5 














000006 


GR6 


EQU 


6 














000007 


GR7 


EQU 


7 














000008 


GR8 


EQU 


8 














000009 


GR9 


EQU 


9 














OOOOOA 


GRA 


EQU 


10 














O0OOOB 


GRB 


EQU 


11 














OOOOOC 


GRC 


EQU 


12 














O0OOOD 


GRD 


EQU 


13 














OOOOOE 


GRE 


EQU 


14 K 














OOOOOF 


GRF 


EQU 


15 
















*«**«*«*>* ******* ****««**«***«*•**»«**•* «***«*«« ****** 


««****«* 


********** 




* 


CONDITION CODE EQUATES 












* 




**«****»«*********«•******«•**•*#***** ****** ********* 


******** 


********** 


000078 


HION 


EQU 


120 


HARDWARE I/O 


NEW 


PSW 


LOCAT 


ION 


000008 


ALLOFF 


EQU 


8 1 


ALLOFF 


0 










000005 


ANYON 


EQU 


5 


ANY ON 




1 








000001 


ALLON 


EQU 


1 


ALLON 








3 




000004 


MIXED 


EQU 


4 


MIXED 




1 








000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 






3 




000008 


EQUAL 


EQU 


8 


EQUAL 


0 










000006 


NEQUAL 


EQU 


6 


NOT EQUAL 




1 


2 






000004 


LOW 


EQU 


4 


LOW 




1 








000002 


HIGH 


EQU 


2 


HIGH 






2 
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POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



1 


0 


NA 


1C42 














1 


1048 


CAW 


1D2C, 


1D52, 


1D80 










1 


1040 


CSW 


















1D7C 


DCK 


1D46, 


1D78 














1D18 


DWR 


1A44, 


1D3C 












1 


0 


GRO 


1A6E, 


1A6E, 


1A70, 


1AAA, 


1AB4-, 


1AB8, 


1 AD4 








1AD4, 


1AE6, 


IAEA, 


1AEE, 


1AF6, 


1AFA, 


1AFA 








1B04, 


lBOCt 


1B10, 


1B14, 


1B56, 


1B72, 


1B7A 








1BAE, 


1BDC, 


1C02, 


1CF8, 


1CFC, 


1DZ8, 


1D2C 








lD4Et 


1D52, 


1D7C, 


1D80, 


1DAE, 


1DD4, 


1DD4 








1DE6, 


1DE6 












1 


1 


GR1 


, 1A2C, 


1A48, 


1AAA, 


1AAA, 


1AAE, 


1AD4, 


1C56 








1C68, 


1C76, 


1C84, 


1CCA, 


1CD2, 


1CF8, 


1CF8 








IDOOt 


lDlCt 


1D40, 


1DAE, 


1DAE, 


1DB2, 


1DCE 


1 


2 


GR2 


1A30, 


1A52, 


1A64, 


1A78, 


1AB4, 


1AB4, 


1 AE4 








1AE4, 


lAE6 t 


1B18, 


1B1C, 


1B1C, 


1B22 , 


1B26 








1B36 T 


1B46, 


1BC4, 


1C5A, 


1C92, 


1CA0, 


1CAE 








lCDAt 


1CE2, 


1CFC, 


1CFC, 


1D6C , 


1D72, 


1DCA 








1DCE 














1 


3 


GR3 


1A34, 


lAEEt 


IAF2, 


1DD4, 


1DD8, 


1DE6, 


IDEA 


1 


4 


GR4 


1AFA, 

IBCB 


1B4A, 


1B4E, 


1B50, 


1BA6, 


1BC8, 


1BCC 


1 


5 


GR5 


lAFEt 


1B08, 


1B08, 


1C3E 








1 


6 


GR6 


1A38, 


1A38, 


1A88, 


1AB8, 


1AB8, 


1B10, 


1B3A 


1 


7 


GR7 


1B1E. 


1B26, 


1B2A, 


1B32, 


1B3E, 


1B56, 


1B5A 








1B7A, 


1B7E, 


1BAE, 


1BB2, 


1BDC, 


1BE0 




1 


8 


GR8 


1A28, 


1A8A, 


1A8E, 


1A8E, 


1A90, 


1A94, 


1B02 








1B02, 


1B04, 


1B08, 


1B52, 


1B5A, 


IB 76, 


1B7E 








IBAAf 


1BB2, 


1BD8, 


1BE0, 


1BFE, 


1C02, 


1C02 








1C06, 


1C0A, 


1D10 










1 


9 


GR9 


1A88, 


1A9C, 


1A9C, 


1AA0, 


1ADC, 


1AE6, 


IAEA 








IAEA, 


1AEE, 


1AF6, 


1AF6, 


1B04, 


1B0C, 


1B0C 








1B10, 


1B14, 


1B14, 


1B4E, 


1B50, 


1B56, 


1B68 








1B72, 


1B72, 


1B7A, 


1B9E, 


1BAE, 


1BBC, 


1BCC 








1BCE, 


1BDC, 


1BE6, 


1BF2, 


1C36, 


1CF4, 


1D00 


1 


A 


GRA 


1A44, 


1A4E, 


1D9E 










1 


B 


GRB 


1A6A, 


1A70, 


1A74, 


1A84, 


1A94, 


1A98, 


1AA6 








1AAE, 


1AD8, 


1B6E, 


1B88, 


1B9A, 


1BBS, 


1C32 








lC4C t 


1D34, 


1D60, 


1D92, 


1DC8 






1 


C 


GRC 


1018 














1 


D 


GRD 
















1 


E 


GRE 
















1 


F 


GRF 
















1 


4 


LOW 
















4 


1D4A 


PRD 


1A4E 














1 


12E8 


SIO 


1D34, 


1D60, 


1D92 










4 


1C3E 


TMA 


1B3A 














4 


1C42 


BCON 


1B3E 














1 


2 


BUSY 
















4 


17E0 


ERNO 


1C06, 


1DD8, 


IDEA 










9 


19E9 


ERRX 


1B68, 
1C4A 


1B94, 


1BE6, 


1C16, 


1C1C, 


1C24, 


1C2C 


1 


16EC 


EXIT 
















1 


48 


HCAW 
















1 


40 


HCSW 
















1 


2 


HIGH 


1B5C, 


1B80, 


1BE2 










1 


78 


HION 
















1 


C 


LOEQ 


1BB4 














4 


1110 


NINE 


1A8A 










i 




4 


1ADC 


PT06 
















71 


18B9 


RDAT 


1A30, 


1C5A 













4 


19F8 


RTOO 




4 


1 A12 


RTO 1 




4 


1A20 


RT02 


1A16 


4 


1A2C 


RT03 


1A24 


4 


1 A44 


RT04 


1ABC, 


4 


1 A84 


RT05 


1A7C 


6 


1 A08 


RTOX 


ID 14 


6 


1 ACO 


RT 10 


1 ABO 


4 


1 AD4 


RT 20 


1AC6 


1 


1004 


SNS W 


1 A 1 o 


1 


1.231 


U APU 




1 


122D 


iiAon 
U AKU 




i 
l 


8 


7 CD n 
L t rsU 




1 


l 


Al 1 DM 
ALL UN 




X 


c 


AOtT UIM 




l 


a 
O 


AV AIL 




A 


1 CI ft 


rnrWT 


1DCA 


1 


1 1 FA 






1 


A 

*t 


rcuCT 
IjWj I 




A 


1 CIA 

1 Cit 


Clunl 


1A90 


1 

1 


o 
o 


EQU AL 


19FC, 


1 


IV CO 




1AE0, 


i. 


1 I L*r 


EX IT 1 


1A0E 


X. 


1 71 C 


EX IT2 


1E70 


1 


2 


GZ ERO 




it) 




I ND AT 


1A2C, 


A 


1 u*frC 


i finiiT 

LuUU 1 


1AD0, 


1 








1 


4 


MTV cn 
MIA tU 




1 


7 


NZ ERO 




4 


1AD8 


PT051 


1B80 


4 


1AE0 


PT061 


1B84, 


4 


1AEE 


PT062 


1BB4, 


4 


1AFE 


PT063 


1BA6 


4 


1B72 


PT064 


1B64 


4 


1B88 


PT065 


1B5C 


4 


1B9E 


PT066 


1B90 


4 


1BA6 


PT067 


1B46, 


4 


1BC4 


PT068 


1C42 


6 


1BE6 


PT069 


1C3A 


4 


1C32 


PT06A 


1BE2 


2 


1C28 


PT06X 


1C20 


4 


ID AO 


RDCRD 


1AD8, 


71 


1900 


RDSNS 




1 


19F4 


RTN05 


1015 


3 


1E70 


SCRAD 


1A08 


1 


1000 


SECST 


1000, 



1 

2 
15 
1 
1 



11F7 

1E1E 



SENSE 
THRT2 



1E73 TITLE 
10E0 UNIT1 
10E4 UNIT2 



1BD4, 1D3C, ID68, 1D9A 



1000, 

1000, 

1000, 

1000, 

1C80, 

1CAC, 

1D40, 

1B2A 

1A1E 



1BA2 
1BC0 



1BC4 



1B88, 


1BB8, 


1C32 








1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1000, 


1000, 


1000, 


1000, 


1000, 


1000 


1018, 


1068, 


1C12, 


1C14, 


1C72, 


1C74 


1C82, 


1C8.E, 


1C90, 


1C9C, 


1C9E, 


1CAA 


1CB8, 


1CBA, 


1DAC, 


1DBA, 


1DBC 




1D72 















17D0 


WKAR3 


1A58, 


1A58, 


1A74, 


1A80, 


1A84, 


1A98, 


1AA0 








1B18, 


1B36, 


1BEC, 


1BEC, 


1BF2, 


1BF8, 


1BF8 








1BFE, 


1COA, 


1C12, 


1C68, 


1C72, 


1C76, 


1C80 








1C84, 


1C8E, 


1C92, 


1C9C, 


1CA0, 


1CAA, 


1CAE 








1CB8, 


1DB2, 


1DBA 












17 D8 


WKAR4 


1A5E, 

IDBE 


1A5E, 


1A64, 


1A6A, 


1C14, 


1C16, 


1DBC 


71 


182B 


WRSNS 


1AA6, 


1CF4 












a 


8 


ALLOFF 


1A16, 


1A24, 


1A7C, 


1C52, 


1D0C 






A 


F 


ALWAYS 


1A0E, 


1ABC, 


1AD0, 


1B64, 


1B84, 


1B90, 


1BA2 
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1BC0, 


1C2E, 


1C3A, 


1C4C, 


1014, 


1046, 


1078 








1D9E, 


1DC8, 


1DE2, 


1DF4 








1 


114C 


CAW KEY 
















90 


198E 


COMDAT 


1A34, 


1A3A, 


1A3E, 


1A3E, 


1A9C, 


1AC0, 


1AFE 


8 


1E08 


CRDCCW 


1D7C 














1 


112C 


CSWSAV 
















7 


1E92 


ERR650 


1DE0 














7 


1E99 


ERR651 


1DF2 














1 


16E6 


EX IT BY 
















4 


1C5E 


LG0UT1 


1D02 














2 


1CEE 


LGOUTA 


1CC6, 


1CCE, 


1CD6, 


1CDE, 


1CE6 






4 


1008 


LGOUTX 


1C52 














1 * 


1014 


LGOUTY 


1D0C 














\ ■ 1 


C 


MIXNON 
















j ■ 1 


6 


NEQUAL 


1AC6, 


1B2E, 


1C20, 


1CC6, 


1CCE, 


1CD6, 


1C0E 








1CE6, 


1002, 


10C4 










1 16 


1E82 


NERDET 


1ACE 














1 


9 


NMIXED 
















J 1 


0 


NOTBSY 
















\ ■ ' 1 ' 


4 


NOTZRO 
















16 


1E20 


OUT DAT 


1AC0 














! 2 


1C46 


PRCRES 


1B6E, 


1B9A 












8 


1E00 


PRDCCW 


1D4E 














4 


1B36 


PT0630 


1B2E 














! '4 


1B52 


PT0631 


1BD4 














1 • 8 


1DF8 


PWRCCW 


1028 














71 


1947 


RDCKRD 
















1 4 


10CA 


RDCRD1 


1065 














4 


1DE6 


R0CRD2 


1DD0 














4 


1DD4 


RDCRDX 


1DC4 














1 


179C 


SCHNUM 


19F8 t 


1A00 












1 


1234 


SCPDAT 


lA48f 


1A52, 


1ADC, 


lB52f 


1B76, 


1B94, 


1B9E 








1BAA, 


1BBC, 


1BD8, 


1C36, 


1C5E, 


1C62, 


1C62 








1C74, 


1C82, 


1C90, 


1C9E, 


1CAC, 


1CBA, 


1CBC 








1CC0, 


1CC0, 


1CEA, 


1CF2, 


1D1C, 


1022, 


1D22 








1D56, 


1D5A, 


1D5A, 


1D6C, 


1088, 


108C, 


1D8C 








1DA0, 


1DA4, 


1DA4, 


1DAC, 


1DBE, 


1DF8, 


1E00 








1E08 
















163E 


SCPROO 


1A28, 


1P10 














1140 


SI0SW5 


















1140 


SIOSWS 


1D30, 


1038, 


1D4A, 


1064, 


1084, 


1096 






112C 


SI0VR3 


















1134 


SI0VR4 


















11F8 


STATSV 


















1060 


SVRPSW 


1A08 
















10E2 


UNI ADR 


















10E6 


UN2ADR 


1D18 














71 ' 


1872 


WRCKRD 

















1000 XF8060 
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PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 

BESD. ..... AA. . AAX F80 60. .OAAA. AFJ 

9 YQ Y9 YQY Y8Y 

99 9 999 99 

BTXT. AAN. • AC. • AAAJ4. < 

9 YQ9 Y9 Y9Y8 
99 9 9 99 

BTXT. AA— . • AH. • AAAAAA GANB 

9 YQ Y9 Y99YYY 8Y8Y 

99 9 9 999 9999 

BTXT. AP0..A8-. AAAAAA A AAAAAAAAAA AAAAAA ABC 

9 Y9- Y9 Y9YYYY YYYYYYYYYYYYYYYYY999 

9 9 9 9999 99999999999999999 

BTXT. AQH. • AT. • AACTWO BH2AABHICAJR0ABHB0KQ 

9 Y99 Y9 Y9-88& RR8Y0000Y-00& Y- 

9 9 9 - 00 9 

BTXT • A JY. • A8 • • AAA ERR .XXXXXGAE AGGEE7DGABK 
9 Y8 Y9 Y9Y 9Y9YQQ-0 QZYQ9 

99 9 9 9 9 9ZZ Z 

BTXT. AKJ. . A8. . AAA. 00 GABUEA66AA7UAJ8IAA9F 

9 Y8Y Y9 Y9- 9 ZYQ8ZY 8ZQ ZY OZQ Y 
999 9 9 Z9 9 9 9 - Z 

BTXT. AKH. . A8. . AAPG70 70PG7Q7QKA7QJAHA7QLA 
9 Y8R Y9 Y9 9 - - 9 Y YYRQ 8Y 

99 9 9 % 9 99 0 99 

BTXT. AKA. • A8. • AANAFM HAAA&A70A I9FOCAA70AA 

9 Y8Q Y9 Y98YQ9 OQYY Q -Z- Y 9QY -ZQ 
99 9 9 Z 090 9 .0 

BTXT. AKH.. A8..AABMB0 AAFBGODFAAAOEAEJ AA24 

9 Y8 Y9 Y9Q 8- YQQOZ Q8ZQY8ZQQYZQ 9 
99 9 9 Z 9 9Z Z 999 OZ , 

BTXT. ALA. . A8 . . AA9FLH CAAAAH& AAAAAC-AAAAAA 

9 Y8Y Y9 Y9 Y80 ZYQYZR YZQQ9Z QYZQQ9 
999 .9 9 9 9 9 9 

BTXT.AL8..A8..AA70D- D6D0DBBG9YFJC0F.CF0D 

9 Y89 Y9 Y9 -Z Q8Z&QZ-Q ZYQOZ Q88- 

99 9 9 Z9 -Z Z 9Z Z 9 

BTXT. ALO. • A8 • • AADFAA ADAA22A0A ANHGJ BQGOB S 

9 Y8& Y9 Y9QZZQ Q9ZY 8ZCQ89RZYQ Z Q8 
99- ,9 9 Z - 9 0 9Z \l 

BTXT. ALQ. . A8.. AABFAA 22A0 AHNHGOBOEAEJ AA24 
9 Y80 Y9 Y9QQZY 8Z£Q99RZ£QYZQQYZQ 9 

99 9 9 ZZ - 0 Z9 0Z i 

BTXT. ALS. . A8 . . AANHGJ D2KB9NAAPG7070KB7NAA 

9 Y88 Y9 Y99RZY Q9 9 YQ9 9 9 Q9 

99 ,9 9 0 9 Z 9 < 

BTXT. AMQ. . A8 . . AA9N7R E09NG-DYB.9NB0DH9ZG0 

9 Y89 Y9 Y9 Y - YZ Q9- Y8-Z9 Z 
99 ,9 9 9 9 Z 99 C 



COLS. 41 THROUGH 60 
840 

DEFGHABA J JKJ/S/SA. AB 
9999988Q988Y9988Q ZZ 
999 999 99Z 

BSJSTYZKLOB 

Q8Z YY Q 
9 99 Z 

EA7DGABKKB0NF0G07MAB 
-Y QZYQ9 9 ZQ£Z 9-9 
9 Z Z- 

L0BA9FKH9G9FE JEQKAAF 
8Z-Y Y R Y YZYQ9 YQY 
9 9 Z 99 

HAAA&A70AH JGGABDFA70 
0QY9 Q — 9YZZYQ0-Y - 
09 0 9 Z 

8TAAAANLGAB0A J JAA — A 
8ZQQ998ZYQSZYY9Z 9 
9 99 9 Z 99 

BA9YLSCJAAAAAACAAAI A 
-Y 89ZYQYZQQ9ZQQY0Q 
9 9 9 9 Z 9 Z 

£J70LSA0AAEJABH0JAA0 
Y -89Z£YYYYY90£YY8£ 
9 9 -9 99 -99 - 

0DAA22A0ACNHG JCHAAOD 
8-ZY 8ZSQ99RZYQ0-Q 9 
9 - 0, 9Z 9 

EAEJAA0DG0CFKC9N24EA 
ZQQY-Q 9Z QQ 9 Y 9ZQ 
OZ 9 Z r 9 0 

o 

G0BOFJCOF.CDODODAG9Y 
Z QYZYQOZ QY8-8— Q 
Z9 9Z Z9I9 9 Z 

2S7N7NGA70AABB&A7SFA 
9 8Y -ZYOY Y 88Y 

n 

DFEAE JAA24G0CWAACAGA 
Q8ZQQYZQ 9Z Q -Y YZY 
Z OZ 2 9 9 9 



COLS. 61 THROUGH 80 
475. 125643.. 80600001 



•80600002 



.80600003 



HABGAHJ-/KLQ80600004 
Z88 RR8 ZZZ 



•80600005 



0DGABJB0AGFC8060O006 
9ZYQY8-Y8QR 
Z99 9Z0 

24EJEBKAJF2480600007 
9ZYQ8 YYY 9 
Z 99 

HA70QFMAFALH80600008 
RQ -9-8YQQ80 

0 Z99 

G0BDNG9FFJG-80 600009 

Z QZ 8 YQY 2 
Z Z9 

AQAAAAA.ADA&80600010 
Y9ZQQ9Z Y9Z 
9 9 

F0G-C6A0A&HJ80600011 

Q8Z Q9Z&Y RY 
Z9 Z -9 9 

G0CBKC9NAAEA80600012 
Z QR 9 YQYZQ 
ZO 9 9 0 

OF AA28G0BS F* S06000 13 
QZZQ 9Z Q8Z 
Z Z 

GACBAA22A0AC80600014 
ZQQRZY 8Z&Q9 
9Z 

70BEACGNGQKC80600015 
-8QY99 9 9 
999 

C0B0AH9ZGCAJ80600016 
Q 8-Y9 9Q-Y 
Z 9 Z 9 



DATE 
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BTXT.AM£. 

9 Y8 
99 



. A8. . AAODGA 
Y9 Y9 9ZY 
9 9 



EHAA7UAJ8IB.24K42524 
Q9ZQ ZY 0* 9 8 9 9 
Z 9 9 - 



KA70AABEAAG0B7KA70AG 
Y -QY8QY99-99 Y -QZ 
9 99999 9 9 



BEAAGOB2KA70806Q0017 
8QY99-98 Y - 
999 9 9 



BTXT.AMH. 

9 Y80 
99 



> A8. • AAAFBE 
Y9 Y9QY8Q 
9 9 9 99 



AAG0B5K A70J ABEAAGOB • 
Y99-98 Y -YY8QY99-9 
9 9 9 99999 



KA70JGBEAAG0BCKA70JF 
Y -YZ8QY99-9Z Y -YY 
9 9 999 9 9 



BEAAG0BFBM2580600018 
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DESCRIPTION 
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PURPOSE 
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5.1 ROUTINE DESCRIPTIONS * f 

6. APPENDIX • « 8 

1. PURPOSE 

1.1 INTENT 

TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/1403 
UNIVERSAL CHARACTER SET ATTACHMENT. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

THE PROGRAM IS RUN WITH A DIAGNOSTIC MONITOR. 

THE PROGRAM ASSUMES THAT THE CPU £ CHANNEL ARE OPERABLE. 
THE PROGRAM IS RELOCATABLE. 

THE UNIT DEFINITION TA3LE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 



2.3 2821 REQUIREMENTS 

CONTROL CIRCUITS FUNCTION PROPERLY. 

ERROR CHECKING CIRCUITS FUNCTION PROPERLY. 

PRINTER CAN BE MADE READY. 

DATA MODE SWITCH MUST BE SET TO BYTE MODE. 

2.4 PROGRAM IDENTIFICATION NUMBERS 

TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS 
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING ID NUMBERS 
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE. 



I ID NUMBER I 


ASSIGNMENT I 


I F80C* I 


DESCRIPTION OF COMPLETE PROGRAM I 
WHICH INCLUDES ALL ROUTINE OVERLAYS. I 


I F80C I 


OBJECT DECKS AND ASSEMBLER PROGRAM I 
LISTINGS FOR ROUTINE OVERLAYS I 
01 AND 02. . I 


I F80D I 


OBJECT DECKS AND ASSEMBLER PROGRAM I 
LISTINGS FOR ROUTINE OVERLAYS I 
03 AND 04. I 



**N0TE** 



THE SEARCH NUMBER FOR THIS PROGRAM IS 80C- 
800 CAN NOT BE USED. 



* UNIT CODE 



* UNIT 



* * * 

* OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * * * 
_ : . — - . — * 

*ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* #HEX 8* HEX 4* HEX 2- HEX 1* HEX 8* HEX 4* HEX 2* HEX I * 

* _--.t{c . # * * — * * * — -* 

*UNIV. * HI- * 120 * * 2821 * 

*CHAR. *SPEED *PRINT * *2 CH.ML * 

*3UFF. *P7R« *POS. * *SWITCH * 

* * * * * * 

* * * * * * 



* 1403 PRINT ER*83*ASCII*SEL * 

* OR * * *TAP£ * 

* 1404 PRINTER* * *L1STER* 

* CONTINUOUS * * * * 

* FORMS * * * * 



3. USE PROCEDURE 

3.1 LOADING 

STANDARD VIA DM AS DESCRIBED IN THE USERS GUIDE. 

SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY 
CONCEPT, ALL ROUTINES MUST BE LOADED AND RUN IN ID NUMBER 
SEQUENCE. 

3.2 OPERATING 

3.2.1 GENERAL OPERATING 

THE PRINTER MUST BE MADE READY BEFORE RUNNING PROGRAM. 

** IMPORTANT** THE ORIGINAL CONTENTS OF THE UCS BUFFER ARE 

DESTROYED 8Y F80C AND F80D. THESE PROGRAMS NO 
LONGER PROVIDE THE FACILITY TO RESTORE THE UCS 
BUFFER — THEREFORE , DO NOT ADD ANY CHAIN 
CONFIGURATION DATA CARDS TO F80C OR 
F80D. USE PROGRAM F837 TO RESTORE 
UCS BUFFERS. 



2.2 EQUIPMENT REQUIREMENTS 

PROGRAM LOADING DEVICE 

HARD COPY OUTPUT DEVICE * 

CPU - OP EH ABLE 

CHANNEL - OPERABLE 

8K MINIMUM STORAGE 

2821 INTEGRATED CONTROL UNIT 



* THE OUTPUT DEVICE CANNOT BE THE DEVICE UNDER TEST. 
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3.2.2 SENSE SWITCH USAGE — COMMON TO ALL ROUTINES — 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE 
OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS 
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. 
THE SWITCH BITS ARE ZERO WHEN OFF , AND ONE WHEN ON. 



SENSE I 
SW. I 
# I 



FUNCTION 



I OFF— PROCEED NORMALLY 

I ON — SHORT LOOP ON START I/O - TEST I/O 

. J. — — . 

I OFF — PROCEED NORMALLY 

I ON — ENTER UTILITY SCOPE ROUTINE 

I REFER TO SECTION 3.2.3 FOR DETAILS 

. .„ — . 

I OFF — PROCEED NORMALLY 

I ON—LOG OUT DATA ACCUMULATION TABLE 

I REFER TO SECTION 4.4 FOR DETAILS 

I OFF— PROCEED NORMALLY 
I ON— PRINT SECTION TITLE 



SECTION I BYTE 

OR I AND 
ROUTINE I BIT 



-I- 



ENTIRE I X004 
SECTION I 0 

I X004 
,, I 1 

I 

I X004 
n I 2 
I 

I X004 
,, I 6 



CAW — X048 THRU X04B 
CCW — X570 THRU X577 
DATA FIELD — X57C THRU X675 

AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD 

SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING CONSOLE 

START. 

1. SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTED 
OP IN A TIGHT START I/O - TEST I/O LOOP. 

2. SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE 
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE 
WILL PERFORM THE SELECTED OP ONCE, THEN REQUEST NEW 
SCOPING DATA. 

3. SET SECTION SENSE SWITCHES 0 AND 1 TO ZERO. IN 
THIS CASE, THE SELECTED OP WILL NOT BE PERFORMED, 
AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR. 

THE C.E. CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING 
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0 
AND 1 TO ZERO, THEN PRESS CONSOLE START. 



3.3 HALTS 



3.2.3 UTILITY ROUTINE SET-UP PROCEDURES 

THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT 
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS 
RESULTS AND LOG OUT PRINTOUT OF EACH ROUTINE. THIS 
ROUTINE WILL BE ENTERED AT THESE TIMES IF SECTION 
SENSE SWITCH 01 IS SET TO 1. 

WHEN THIS ROUTINE IS ENTERED, AN OUTPUT MESSAGE WILL 
INFORM THE C.E. TO PRESS CONSOLE STOP, THEN ENTER THE 
SCOPING DATA. THIS DATA IS TO BE ENTERED, IN HEX, VIA 
THE CONSOLE SWITCHES AS INDICATED BELOW. 



3.3.1 NORMAL HALTS 

NONE 

3.3.2 ERROR HALTS — COMMON TO ALL ROUTINES— 

THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE 
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR. 

3.3.3 SPECIAL HALTS — COMMON TO ALL ROUTINES— 

THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS 
IF THE CORRESPONDING SENSE SWITCHES ARE SET. 



BYTE 
BIT 



GRA 



GRB 



0 12 3 

01234567 01234567 0123456? 01234567 



I I 
I-QP CCDEI 
I SEE I 
I ■ 6.1 I 
-I X- 



GRC 



CONTENTS OF DATA FIELD- 1 

I 

I II I 

I— CCW COUNT— I II/O ADDRESS- 1 
I II I 



<— SLI FLAG, BIT 2 
♦--SKIP FLAG, BIT 3 



NOTES— THE FOUR BYTES OF DATA ENTERED IN GRB WILL BE 
RIPPLED THROUGHOUT THE CCW DATA FIELD. 

— IF THE CCW COUNT EXCEEDS 250 BYTES, THE ROUTINE 
WILL FORCE IT TO 250. 

— THE MAIN STORAGE LOCATIONS OF PERTINENT FIELDS 
USEP BY THIS ROUTINE ARE LISTED BELOW. X DENOTES 
THE RELOCATION FACTOR CONTAINED IN 

REGISTER 15 DURING RUN TIME. 

SIO INSTRUCTION — X700 THRU X703 



HALT AFTER LOG OUT OF THE DATA ACCUMULATION TABLE. 

IF THE OPERATOR REQUESTS THE LOG OUT OF THE DATA 
TABLE, THE PROGRAM WILL HALT AFTER THE LOG OUT. 
IN ORDER TO CONTINUE, THE INTERRUPT KEY ON THE 
CONSOLE MUST BE DEPRESSED. 

HALT TO SET UP INFORMATION FOR UTILITY ROUTINE. 

IF THE OPERATOR REQUESTS TO USE THE BUILT IN UTILITY 
ROUTINE, THE PROGRAM WILL HALT TO ALLOW THE ENTERING 
OF NECESSARY INFORMATION. AFTER THE INFORMATION IS 
ENTERED, THE CONSOLE START KEY MUST BE DEPRESSED TO 
CONTINUE. 

3.4 TERMINATION 

THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA 
MONITOR CALL SVC D6. 

PRINTOUTS 

4.1 TITLE PRINTOUTS 

THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE 
SWITCH 06 IS SET TO 1. 

-2821 SCAN/1403 UCS, CONTROL PROG- 
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ABOVE PRINTOUT IS THE TITLE FOR ROUTINES 01 AND 02. 



-2821 SCAN/1403 UCS, PRINT BUFFER DATA REG FLT- 
ABOVE PRINTOUT IS ROUTINE 03 TITLE. 



-2821 SCAN/1403 UCS, UCB DATA REG FLT- 
ABOVE PRINTOUT IS ROUTINE 04 TITLE. 

4.2 INSTRUCTIONS TO THE OPERATOR — COMMON TO ALL ROUTINES— 
-NOTE-DO NOT USE DEVICE UNDER TESt FOR OUTPUT- 
ABOVE MESSAGE IS PRINTED TO REMIND THE C.E. NOT TO USE THE 
DEVICE UNDER TEST AS THE OUTPUT DEVICE. THIS IS NECESSARY 
BECAUSE THE TEST PROGRAM DESTROYS THE ORIGINAL DATA IN THE 
UCS BUFFER. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC1 CSW STATUS 0200 SNS 40 

MAKE PRINTER ROY- 
ABOVE MESSAGE WILL BE PRINTED IF INTERVENTION REQUIRED IS 
ENCOUNTERED WHEN TRYING TO EXECUTE AN I/O OPERATION. 

XXX DEFINES THE UNIT ADDRESS AND Y— Y DEFINES THE CHANNEL 
ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO 
ALLOW THE UNIT TO BE MADE READY. THE MESSAGE WILL BE REPEATED 
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED. 

-ORIGINAL CONTENTS OF UCS BUFFER FOR PRINTER- 
-XXX DESTROYED, RESTORE WITH PROGRAM F837 

ABOVE MESSAGE IS INDICATED BY ROUTINE OVERLAY 04. XXX 
INDICATES THE ADDRESS OF THE PRINTER WHICH REQUIRES ITS 
UCS BUFFER TO BE RESTORED. THIS MESSAGE IS INDICATED FOR 
EACH PRINTER TESTED BY F80C AND F80D. 

4.3 ERROR MESSAGES 

4.3.1 ERROR MESSAGES COMMON TO ALL ROUTINES. 
-BYPASSED-UCS NOT DEFINED- 

ABOVE MESSAGE WILL BE PRINTED IF THE TESTS ARE NOT RUN._ THIS 
WILL OCCUR IF THE UDT ENTRY FOR THE PRINTER DOES NOT SPECIFY UCS. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC 0 BUT NO INTERRUPT- 
ABOVE MESSAGE WILL BE PRINTED IF NO INTERRUPT OCCURS WITHIN 
10 SECONDS OF RECEIVING CONDITION CODE 0 TO AN I/O OPERATION. 
XXX DEFINES THE UNIT ADDRESS AND Y— Y DEFINES THE CHANNEL 
ADDRESS WORD DATA. THE PROGRAM WILL RETRY THE I/O OPERATION. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC U CSW STATUS WW SNS ZZ- 

ABOVE MESSAGE WILL SE PRINTED WHEN CONDITION CODES 1, 2, OR 3 
ARE RECEIVED IN RESPONSE TO AN I/O OPERATI OM. XXX DEFINES THE 
UNIT ADDRESS, Y — Y DEFINES THE CHANNEL ADDRESS .WORD DATA, 
U DEFINES THE CONDITION CODE — I, 2, OR 3—, WW DEFINES THE 
DEVICE AND CHANNEL STATUS, AND ZZ DEFINES THE SENSE DATA. 
THE PROGRAM WILL RETRY THE I/O OPERATION. 

4.3.2 ERROR MESSAGES COMMON ONLY TO ROUTINE 01 —CONTROL PROGRAM— 
—ERR 001- 
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SYNC CHECK PROBLEM - PROBABLY AN ADVANCE BY 2 PROBLEM OR A 
BAR UNITS ENCODE ADVANCE BY 3 PROBLEM 

-ERR 002- 

WRONG CSW RESIDUAL COUNT - PROBABLY A BAR ADVANCE BY 1 PROBLEM 

-ERR 003- 
*** RESERVED *** 

-ERR 004- 

PRINT BUFFER DATA REGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM 
-ERR 005- 

FALSE UNIT CHECK - COULD BE HAMMER CHECK ON SOLID 

-ERR 006- 
PRINT BUFFER PROBLEM 

-ERR 007- 

FALSE PRINT CHECK - COULD BE COMPARE CIRCUITS 

-ERR 008- . 
FALSE EQUIPMENT CHECK 

—ERR 009- 
*** RESERVED *** 

-ERR 010- 
INTERMITTENT BUS- IN PROBLEM 

—ERR 011- 
BUS-IN — 1— BIT PROBLEM 

-ERR 012- 

BUS-IN CIRCUITS PROBLEM. - PICKED UP BITS 

-ERR 013- 
FALSE DATA CHECKS 

—ERR 014- ' 
PROBLEM SETTING PLC BITS FOR BLANK CHARACTERS 

-ERR 015- 
PRINT DATA REGISTER - LOST BITS 

-ERR 016- 
PRINT BUFFER - LOST BITS 

—ERR 017- 
BUS-1N CIRCUITS PROBLEM - LOST BITS 

-ERR 018- 
INTERMITTANT HOT BITS OCCURRING 

-ERR 019- 

PRINT BUFFER PROBLEM ABOVE POSITION 1 

-ERR 020- 
PRINT BUFFER INSERT BLANK PROBLEM 

4*3.3 ERROR MESSAGES COMMON ONLY TO ROUTINE 02 —-CONTROL PROGRAM— 

-ERR 021- 
FALSE UNUSUAL COMMAND SEQUENCE 

—ERR 022- 

UCS DATA REGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM 
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—ERR 023- 
UCS BUFFER PROBLEM 

—ERR 024- 

INTERMITTANT PRINT BUFFER PARITY ERROR 
—ERR 025- 

COMPARE PROBLEMS AND ASSOCIATED SET PLC CIRCUITS 
—ERR 026- 

UNDEFINED INTERMITTANT ERROR —COULD BE FALSE UNIT CHECK 

—ERR 027— 

INTERMITTENT UCB DATA REGISTER PROBLEM* OR INTERMITTENT 
UCB PARITY CHECK CIRCUITS PROBLEM 

—ERR 028- 
INTERMITTANT OR FALSE ERROR 

—ERR 029- 
INTERMITTANT OR FALSE PARITY CHECK 

—ERR 030- 
HAMMER FIRE PROBLEM 

—ERR 031- 

BAD UCS BUFFER CORE ABOVE POSITION 81 

—ERR 032- 
FALSE DATA CHECK 

—ERR 033- 
FALSE UNIT CHECK 

-ERR 034- 
FALSE PRINT CHECK 

—ERR 035- 
FALSE EQUIPMENT CHECK 

—ERR 036- 

WRONG CCW RESIDUAL COUNT - PROBABLE BAR ADVANCE PROBLEM - UCB 
—ERR 037- 

SYNC CHECK PROBLEM - PROBABLE ADVANCE BY 2 PR03LEM OR 

BAR UNITS ENCODE ADVANCE BY 3 PROBLEM 

-ERR 033- 
PLC INHIBIT CIRCUITS PROBLEM 



4*3.4 ERROR MESSAGES COMMON ONLY TO ROUTINE 03 
DATA REG FLT — 



PRINT BUFFER 



-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXX- 

THE ABOVE PRINTOUT INDICATES A DIAGNOSTIC CHECK READ FAILURE. 
XXX WILL INDICATE THE DEVICE I/O ADDRESS. 

-ERR 050- 

ALL PRINT BUFFER DATA REG TRIGGERS NEVER ACTIVE - PROBLEM MAY 
BE IN FOLLOWING AREAS. 

1. PRINT BUFFER DATA REG RESET ALWAYS ACTIVE, CLOCK 0-2. 
LOGIC PAGE 33,33.44.1 

CIRCUITS - A4C09, A4C11, A4C06, A4E19 

2. BUFFER ENTRY ON LINE NEVER ACTIVE. ' ' 
■ LOGIC PAGE 33.^3.^4.1 

CIRCUITS - A4C10, A4C06 



-ERR 051- 

ALL PRINT BUFFER DATA REG TRIGGERS ALWAYS ACTIVE — PRINT BUFFER 
DATA REG RESET NEVER ACTIVE, CLOCK 0-2. 
LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C09, A4C11, A4C06 

-ERR 052- ' . 

PRINT BUFFER DATA REG 0 TRIGGER NEVER ACTIVE —BUS OUT Or— 
LOGIC PAGE 43.34.18.1 . 
CIRCUITS - A4F02, A4G0U A4F01 

-ERR 053- 

PRINT BUFFER DATA REG 0 TRIGGER ALWAYS ACTIVE —BUS OUT Or— 
LOGIC PAGE 43.34.18.1 

CIRCUITS - A4F02, A4G01, A4F01, A4H02 



-ERR 054- 

PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE 
LOGIC PAGE 43.34.18.1 
CIRCUITS - A4G02, A4G01, A4F01 



-BUS OUT li— 



-ERR 055- 

PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE —BUS OUT 1— 
LOGIC PAGE 43.34.18.1 

CIRCUITS - A4G02, A4G01, A4F01, A4H02 



-BUS OUT 2*~ 



-ERR 056- 

PRINT BUFFER DATA REG B TRIGGER NEVER ACTIVE 
LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E07, A4G06, A4F09, A4F11 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F13, A1H12 



-ERR 057- 

PRINT BUFFER DATA REG B TRIGGER ALWAYS ACTIVE — BUS OUT 2r 
LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E07, A4G06, A4F09, A4F11, A4H06 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F13, A1H12 

-ERR 058- 

PRINT BUFFER DATA REG A TRIGGER NEVER ACTIVE —BUS OUT 3— 
LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4F06, A4F09, A4F11 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F14, A1H15, A1H12 



-ERR 059- 

PRINT BUFFER DATA REG A TRIGGER ALWAYS ACTIVE 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4F06, A4F09, A4F11, A4H06 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F14, A1H15, A1H12 

-ERR 060- 

PRINT BUFFER DATA REG 8 TRIGGER NEVER ACTIVE 
LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4G07, A4F10, A4F11 



-BUS OUT 3— 



—BUS OUT 4— 



-ERR 061- 

PR INT BUFFER DATA REG 8 TRIGGER ALWAYS ACTIVE — BUS OUT 4-- 
LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4G07, A4F10, A4F11, A4H07 

-ERR 062- 

PRINT BUFFER DATA REG 4 TRIGGER NEVER ACTIVE — BUS OUT 5— 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4F07, A4F10, A4F11 
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LOGIC PAGE 31. 11. 32,1 
CIRCUITS - A1F14, A1F13 

—ERR 063- 

PRINT BUFFER DATA REG 4 TRIGGER ALWAYS ACTIVE —BUS OUT 5- 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4F07, A4F10, A4F11. A4H07 
LOGIC PAGE 31. 11*32. 1 
CIRCUITS - A1F14, A1F13 



-ERR 064- 

PRINT BUFFER DATA REG 2 TRIGGER NEVER ACTIVE 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4G08, A4F10, A4F12 



-BUS OUT 6— 



-ERR 065- 

PRINT BUFFER DATA REG 2 TRIGGER ALWAYS ACTIVE —BUS OUT 6— 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4G08, A4F10, A4F12, A4H08 
—ERR 066- 

PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE —BUS OUT 7r~ 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E10, A4F08, A4FI0, A4F12 
LOGIC PAGE 31.11.33.1 
CIRCUITS - A1F13, A1H14, A1H13 

—ERR 067- 

PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE — BUS OUT 7— 
LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E10, A4F08, A4F10, A4F12, A4H08 
LOGIC PAGE 31.11.33.1 
CIRCUITS - A1F13, A1H14, A1H13 

—ERR 068- 

PRINT BUFFER DATA REG C TRIGGER NEVER ACTIVE — BUS OUT P— 
LOGIC PAGE 33.23.07.1 

CIRCUITS - A4E07, A4FG5, A4F09, A4F12, A4C11 
LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C05, A4C08 
LOGIC PAGE 31.11.33.1 
CIRCUITS - A1B18, A1G14, A1H14 

-ERR 069- 

PRINT BUFFER DATA REG C TRIGGER ALWAYS ACTIVE — BUS OUT P— 
LOGIC PAGE 33.23.C7.1 

CIRCUITS - A4E07, A4F05, A4F09, A4F12, A4Cllt A4H05 
LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C05, A4CC8 
LOGIC PAGE 31.11.33.1 
CIRCUITS - A1B1S, A1G14, A1H14 

-ERR 070- 

FALSE PRINT BUFFER DATA REG PARITY ERRORS 

LOGIC PAGE 33.23.10.1 

CIRCUITS - ALL ON ABOVE LOGIC PAGE 

LOGIC PAGE 43.34.18.1 

CIRCUITS - A4B09, A4A10, A4B08 

4.3.5 ERROR MESSAGES COMMON ONLY TO ROUTINE 04 — UCB DATA REG FLT- 

-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXX- 

THE A30VE PRINTOUT INDICATES A DIAGNOSTIC CHECK READ FAILURE. 
XXX WILL INDICATE THE DEVICE I/O ADDRESS. 

-ERR 080- 
FALSE UCS DATA REG PARITY ERRORS 



LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D06, A2D08, A2D07 
LGGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2D16, A2H22, A2F24, A2D08, A2E22 
-ERR 081- 

UCB DATA REG PARITY BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G05, A2E05, A2H05 

-ERR 082- 

UCB DATA REG PARITY BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G05t A2E05 

-ERR 083- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 0 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

-ERR 084 

FALSE UCB PARITY ERROR WITH UCB DATA REG 2 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

-ERR 085- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 3 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

-ERR 086- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 4 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

—ERR 087- 

FALSE UCS PARITY ERROR WITH UCB DATA REG 5 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D03, A2DC6 
LOGIC PAGE 43.34.37. 1 
CIRCUITS - A2D05, A2E22 

-ERR 088- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 6 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

—ERR 089- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 7 BIT ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

-ERR 090- 

FALSE UCB PARITY ERROR WITH UCB DATA REG P BIT ACTIVE 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 
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-ERR 091- 

FALSE UCB PARITY ERROR WITH UCB DATA-REG 1 BIT ACTIVE 
LOGIC PAGE 43.34.36,1 
CIRCUITS - A2D07, A2D08, A2D06 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05, A2E22 

-ERR 092- 
NEVER GETTING UCB DATA REG RESET 
LOGIC PAGE 43.34.11.1 
CIRCUITS - A2G21, A2E22, A2E23 
LOGIC PAGE 43.34.12.1 
CIRCUITS - A2D21 

-ERR 093- 
UCB DATA REG 0 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2G04, A2E08, A2H04 

-ERR 094- 
UCB DATA REG 1 BIT ALWAYS ACTIVE* 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2F04, A2E08, A2K04 

-ERR 095- 
UC3 DATA REG 2 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34*35.1 
CIRCUITS - A2G03, A2E07, A2H03 

—ERR 096- 
UCB DATA REG 3 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2F03, A2E07, A2H03 

-ERR 097- 
UCB DATA REG 4 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.34*1 
CIRCUITS - A2G02, A2E06, A2H02 

—ERR 098- 
UCB DATA REG 5 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2FC2, A2EQ6, A2H02 

-ERR 099- 
UCB DATA REG 6 BIT ALWAYS ACTIVE 
LOGIC PAGE 43,34.33- 1 
CIRCUITS - A2G0I, A2E05, A2HC1 

-ERR 100- 
UCB DATA REG 7 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.33. 1 
CIRCUITS - A2F01, A2E19, A2H01 

—ERR 101- 

MOT GETTING UCB DATA REG SET OR UCB DATA REG RESET ALWAYS ACTIVE 
LOGIC PAGE 43.34.33. 1 

CIRCUITS - A2G21, A2F24, A2G24, A2E24 
LOGIC PAGE 43.34.11. 1 

CIRCUITS - A2G21, A2E22, A2E23 

-ERR 102- 
UCB DATA REG 0 BIT NEVER ACTIVE 

LOGIC PAGE 43*34*35*1 
CIRCUITS - A2GC4, A2E08 • 

-ERR 103- 



UCB DATA REG 2 B.IT NEVER ACTIVE 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2G03, A2E07 

—ERR 104- 
UCB DATA REG 3 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2F03, A2E07 

—ERR 105- 
UCB DATA REG 4 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2GG2, A2E06 

-ERR 106- 
UCB DATA REG 5 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2F02, A2E06 

-ERR 107- 
UCB DATA REG 6 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G01, A2E05 

-ERR 108- 
UCB DATA REG 7 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2F01, A2E05, A2E19 

-ERR 109- 
UCB DATA REG 1 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2F04, A2E08 

-ERR 110- 

PLC OR COMPARE PROBLEM - PRESS INTERRUPT TO SELECT REQUIRED FLT 
-ERR 111- 

FALSE UCB PARITY ERROR WITH ALL UCB DATA REG BITS ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D06, A2D08, A2D07 
LOGIC PAGE 43.34.37.1 
. CIRCUITS - A2D05, A2D16, A2H22, A2F24, A2D08, A2E22 

4.4 LOG OUT OF ACCUMULATED DATA BY ROUTINE 

4.4.1 ROUTINES 01 AND 02 — CONTROL PROGRAM- 
LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THE 
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH A HOT DATA 
REG 6 BIT. 

THE FIRST FOUR ROWS SHOW THE DATA IN THE WRITE AREA-ALL NULLS. 
THE FIFTH ROW SHOWS THE CHANNEL END STATUS, DEVICE END 
STATUS* COMBINATION OF CHANNEL END AND DEVICE END STATUS, 
AND THE SENSE DATA. ROWS 6,7,8, £ 9 SHOW THE CHECK READ DATA. 
THE 7 BITS — 01— SHOW ALL PARITY ERRORS OCCURRED. THE LAST 
FOUR LINES SHOW DATA READ BACK FROM BUFFER — ALL 6 BITS — • 

000000000000000000000000000000000000000000000000000000000000000000 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
00000000000000000000000000000000 COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
000000000000000000000000000000000000000000000000000000000000000000 
0A161E10 

010101010101010101010101010101010101010101010101010101010101010101 
010101010101010101010101010101010101010101010101010101010101010101 
010101010101010101010101010101010101010101010101010101010101010101 
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010101010101010101010101010101010101010101010101010101010101010101 
020202020202020202020202020202020202020202020202020202020202020202 
020202020202020202020202020202020202020202020202020202020202020202 
020202020202020202020202020202020202020202020202020202020202020202 
020202020202020202020202020202020202020202020202020202020202020202 

**NOTE** AT TIMES LINES 6 THRU 13 OF THE ABOVE LOG OUT 
WILL NOT BE PRINTED* THIS OCCURS BECAUSE 
THIS DATA HAS NOT BEEN COLLECTED. 

4.4.2 ROUTINE 03 — PRINT BUFFER DATA REG FLT — 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION FOR 
ROUTINE 03. THE DATA IS PRESENTED IN HEX FORM, 4 BITS 
PER CHARACTER. THIS SAMPLE REPRESENTS THE DATA 
ACCUMULATED FOR ERROR 062 — PRINT BUFFER DATA REG TRIG 
4, BUS OUT 5 BIT, NEVER ACTIVE — • 

COL 



— ERROR DETECTED THIS ROW — ■ 



THE ABOVE TABLE IS DEFINED BELOW. 

COLUMN 1 - DATA WRITTEN BY DIAGNOSTIC WRITE 

COLUMN 2 - DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS 

COLUMN 3 - DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS 

COLUMN 4 - SENSE DATA AFTER DIAGNOSTIC WRITE 

COLUMN 5 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 

DATA - OBTAINED AFTER DIAGNOSTIC WRITE 
COLUMN 6 - FIRST BYTE OF DIAGNOSTIC READ DATA 
COLUMN 7 - DIAGNOSTIC READ DEVICE-END DEVICE STATUS 
COLUMN 8 - SENSE DATA AFTER DIAGNOSTIC READ 
COLUMN 9 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 

DATA - OBTAINED AFTER DIAGNOSTIC READ 

4.4.3 ROUTINE 04 — UCB DATA REG FLT— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION FOR 
ROUTINE 04. THE DATA IS PRESENTED IN HEX FORM, 4 BITS 
PER CHARACTER. THIS DATA REPRESENTS THE DATA ACCUMULATED 
TO DETECT ERROR 097 — UCB DATA REG 4 BIT ALWAYS ACTIVE—. 
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— ERROR DETECTED THIS ROW. — - 



THE ABOVE TABLE IS DEFINED BELOW. 

COLUMN 1 - DATA WRITTEN BY LOAD UCB COMMAND 

COLUMN 2 - LOAD UCB COMMAND DEVICE-END DEVICE STATUS 

COLUMN 3 - SENSE DATA AFTER LOAD UCB COMMAND 
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FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 
DATA - OBTAINED AFTER LOAD UCB COMMAND 
DATA WRITTEN BY DIAGNOSTIC WRITE 
DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS 
DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS 
SENSE DATA AFTER DIAGNOSTIC WRITE 
FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 
DATA - OBTAINED AFTER DIAGNOSTIC WRITE 

5. COMMENTS 

5.1 PROGRAM PHILOSOPHY AND ASSOCIATED COMMENTS 

THE BASIC PHILOSOPHY EMPLOYED BY THIS PROGRAM IS TO --FIRST- 
AREA ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/1403 UCS 
ATTACHMENT, AND — SECOND— FURTHER ISOLATE THE FAILURE TO 
PARTICULAR CIRCUIT- S-. IN ORDER TO UTILIZE THIS PHILOSOPHY WITH 
THE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS NECESSARY TO 
EMPLOY THE PROGRAM OVERLAY CONCEPT. EACH OVERLAY .^-ROUTINE- 
IS DESCRIBED IN DETAIL BELOW 

5.2 DESCRIPTION — ROUTINES 01 AND 02, CONTROL PROGRAM. — 

THE PRIMARY OBJECTIVE OF THESE ROUTINES IS TO AREA ISOLATE A 
SOLID FAILURE IN THE 1403 UNIVERSAL CHARACTER SET DATA PATHS 
• ■ WITHIN THE 2821. THESE AREAS ARE DEFINED BELOW— ' 

1. PRINT BUFFER DATA REGISTER 

2. PRINT BUFFER 

3. PRINT BUFFER ADDRESS REGISTER 

4. UCS BUFFER DATA REGISTER 

5. UCS BUFFER 

6. UCS BUFFER ADDRESS REGISTER 

7. COMPARE CIRCUITS 

8. PLC CIRCUITS 

9. ERROR CHECKING CIRCUITS WHEN FALSE 

ROUTINE 01 IS CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED 
WITH THE PRINT BUFFER . THIS OBJECTIVE IS ACCOMPLISHED 
BY INVESTIGATING THE NINE COMMON DATA LINES — P, 0, 1, 2, 3. 4, 
5, 6, 7— IN THE 1403 UNIVERSAL CHARACTER SET DATA PATH, WITHOUT 
ATTEMPTING TO USE THE UNIVERSAL CHARACTER BUFFER. WITH EACH OF 
THESE LINES MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS 
IS PERFORMED— 

1. WRITE PRINT BUFFER 

A. SAVE STATUS 

B. SAVE SENSE DATA 

2. DIAGNOSTIC CHECK READ 

3. READ PRINT BUFFER 

THE DATA IS INTERROGATED AS ACCUMULATED BY AN ANALYSIS ROUTINE. 
AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS 
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS 
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION, 
OR THE PROGRAM LISTING TO DETERMINE THE ANALYSIS RESULTS. 
IF THE CORRESPONDING CARD ISOLATION OVERLAY IS AVAILABLE, THE 
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTE IT IN 
ORDER TO OBTAIN FURTHER ISOLATION. 

ROUTINE 02 IS CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED 
WITH THE UNIVERSAL CHARACTER BUFFER. THIS OBJECTIVE IS 
ACCOMPLISHED BY INVESTIGATING THE 9 COMMON DATA LINES — P, 0, 
1,2,3,4,5,6,7 — IN THE UCS BUFFER, ASSUMING THE PRINT DATA 
BUFFER CIRCUITS ARE OPERATIONAL. WITH EACH OF THESE LINES 
MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED?—* 

1. LOAD UCS BUFFER 
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2821 - 1403 UCS SCAN 



2821 



1403 UCS SCAN 



A. SAVE STATUS 

8. SAVE SENSE DATA 

2. DIAGNOSTIC WRITE 

A. SAVE STATUS 

B« SAVE SENSE DATA 

3. DIAGNOSTIC CHECK READ 

THE DATA IS INTERROGATED AS ACCUMULATED BY AN ANALYSIS ROUTINE* 
AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS 
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS 
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION, 
OR THE PROGRAM L ISTING TO DETERMINE THE ANALYSIS RESULTS. 
IF THE CORRESPONDING CARD ISOLATION OVERLAY IS AVAILABLE, THE 
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTE IT IN 
ORDER TO OBTAIN FURTHER ISOLATION. IT IS TO BE NOTED THAT IF 
ROUTINE 01 DETECTS A SOLID FAILURE IN THE PRINT BUFFER AND 
ASSOCIATED CIRCUITS, ROUTINE 02 WILL BE BYPASSED — ROUTINE 02 
WILL BE RUN ONLY WHEN NO FAILURES ARE DETECTED BY ROUTINE 01. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 
' PRINTOUT OF THE ACCUMULATED DATA LAST USED CAN BE MADE BY SETTING 
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR 
AFTER THE ANALYSIS PRINTOUT. THIS OPTION IS ONLY AVAILABLE WHEN 
AN ERROR IS DETECTED BY THE ROUTINE. 

5.3 DESCRIPTION — ROUTINE 03, PRINT BUFFER DATA REG FLT — 

*** NOTE *** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 01 
DETECTS A FAILURE WITHIN THE PRINT BUFFER DATA 
REGISTER AREA — OTHERWISE, IT WILL BE BYPASSED. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE PRINT BUFFER DATA REGISTER COMPLEX — 2821 
UCS ATTACHMENT — * THIS OBJECTIVE IS ACCOMPLISHED BY ATTEMPTING 
TO SEPARATELY ACTIVATE EACH OF THE DATA REGISTER TRIGGERS — P, 
0, 1,2 THROUGH 9 — . THIS IS DONE BY USING THE APPROPRIATE 
WRITE DATA — I.E, HEX WRITE DATA 00 IS USED TO ACTIVATE ONLY THE 
P TRIGGER, HEX WRITE DATA 80 IS USED TO ACTIVATE ONLY THE 0 
TRIGGER — ETC. FOR EACH PRINT BUFFER DATA REGISTER TRIGGER, 
THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED, AND ALL 
' ASSOCIATED DATA IS SAVED IN MAIN STORAGE. 

1. DIAGNOSTIC WRITE - CCW COUNT EQUAL TWO 

A. SENSE I/O IF GOT UNIT CHECK 

2. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 

OF SECOND READ ONLY IS SAVED 

3. DIAGNOSTIC READ OF PRINT BUFFER - CCW COUNT EQUAL ONE 

A. SENSE I/O IF GOT UNIT CHECK 

4. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 

OF SECOND READ ONLY IS SAVED 

AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN 
ANALYSIS ROUTINE. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE 
PRINT BUFFER DATA REGISTER CIRCUITS WHEN THE FOLLOWING CONDITIONS 
EXIST. 

1. GOT UNIT CHECK WITH CHANNEL END FOR DIAGNOSTIC WRITE. 

2. GOT PRINT SUFFER DATA REG PARITY FOR DIAGNOSTIC CHECK 
READ AFTER DIAGNOSTIC WRITE. 

3. GOT ADDITIONAL SITS OR MISSING BITS WITH 
DIAGNOSTIC READ. 

' AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THE ANALYSIS 
ROUTINE AS AM ERROR NUMBER OR NO ERRORS DETECTED. IF AN ERROR 
NUMBER IS INDICATED, THE C.E. MUST REFER TO THE PRINTOUT 
SECTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 



PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING 
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR 
AFTER THE ANALYSIS PRINTOUT. 

5.4 DESCRIPTION — ROUTINE 04, UCB DATA REG FLT — 

*** NOTE *** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 
DETECTS A FAILURE WITHIN THE UCB DATA REGISTER 
AREA —OTHERWISE, IT WILL BE BYPASSED. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE UCB DATA REGISTER AREA. THIS OBJECTIVE IS 
ACCOMPLISHED BY ATTEMPTING TO SEPARATELY ACTIVATE EACH UCB DATA 
REGISTER TRIGGER — THEN, PERFORM A DIAGNOSTIC WRITE TO DETERMINE 
THE STATE — ON OR OFF — OF THE TRIGGER. THE ATTEMPT TO 
ACTIVATE EACH TRIGGER IS ACCOMPLISHED BY PERFORMING A LOAD UCB 
COMMAND WITH THE APPROPRIATE WRITE DATA — IE, HEX WRITE DATA 00 
IS USED TO ACTIVATE ONLY THE P TRIGGER, HEX WRITE DATA 80 IS 
USED TO ACTIVATE ONLY THE 0 TRIGGER — ETC. FOR EACH UCB DATA 
REGISTER TRIGGER THE FOLLOWING SEQUENCE OF OPERATIONS IS 
PERFORMED, AND ALL ASSOCIATED DATA IS SAVED IN MAIN STORAGE. 

1. GATE UCS LOAD CCW COMMAND-CHAINED TO A LOAD UCB CCW 

A. SENSE I/O IF GOT UNIT CHECK 

2. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 
OF SECOND READ ONLY IS SAVED 

3. DIAGNOSTIC WRITE 

A. SENSE I/O IF GOT UNIT CHECK 

4. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE OF 
SECOND READ ONLY IS SAVED 

AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AH 
ANALYSIS ROUTINE.. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE 
UCB DATA REGISTER CIRCUITS WHEN THE FOLLOWING CONDITIONS EXIST, 

1. GOT UNIT CHECK WITH CHANNEL END FOR LOAD UCB CCW 

2. GOT UCB PARITY DURING LOAD UCB COMMAND 

3. DID NOT GET PLC DURING DIAGNOSTIC WRITE 

AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THE ANALYSIS 
ROUTINE AS AN ERROR NUMBER OR AS NO ERRORS DETECTED. IF AN 
ERROR NUMBER IS INDICATED, THE C.E. MUST REFER TO THE PRINTOUT 
SECTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 
PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING SECTION 
SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR AFTER THE 
ANALYSIS PRINTOUT. 

6. APPENDIX 

6.1 UCS PRINTER COMMAND CODES 



VALID COMMANDS TO THE UCS PRINTER. NOT SHOWING SPACE, SKIP, 
OR OTHER VARIOUS OPTIONS THAT ARE AVAILABLE. 



FUNCTION COMMAND CODE BITS 

0 1 2 3 4 5 6 7 

TEST I/O ... 0 0 0 0 0 0 0 0 

SENSE . 0 0 0 0 0 1 0 0 

WRITE ....... . . 0 0 0 0 0 0 0 1 

GATE UCS LOAD .....1110 1011 

LOAD UCS NO FOLDING ..1111 1011 

LOAD UCS WITH FOLDING .1111 0 0 11 

DIAGNOSTIC WRITE ... . -101 

DIAGNOSTIC READ . ... 0 0 0 0 0010 



HEX CODE 

• . 00 

. . 04 4 

. . 01 

. . EB 

. . F3 

. . F3 

. . 05 

. . 02 



DATE 

EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 

124265 



15DEC65 

125601 



15MAR66 
125632 



15N0V66 
125655 
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* DIAGNOSTIC CHECK READ .0000 0110 06 

* WHERE - FORMS VARIATIONS ON MODIFIERS WHICH MAY BE COMBINED. 
♦ 

6.2 SENSE BYTE INFORMATION 

* ONE SENSE BYTE 

* BIT MEANING 

* 0 COMMAND REJECT ■» 

* 1 INTERVENTION REQUIRED 

* 2 BUSS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK 

* 5 UCB PARITY CHECK 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 CHANNEL 9 HOLE SENSED 

* 



—UNIT CHECK IN STATUS 



6-3 DIAGNOSTIC CHECK READ INFORMATION 



* THE DIAGNOSTIC CHECK READ COMMAND TRANSFERS CHECK INFORMATION 

* TO THE CPU. ONE BYTE OF DATA IS TRANSFERRED FOR EACH PRINT 

* BUFFER POSITION. THE SIGNALS RETURNED ARE AS FOLLOWS— 
* 



* 


BIT 


SIGNAL 


* 


0 


NOT USED 




1 


NOT USED 


* 


2 


NOT USED 


* 


3 


NOT USED 


* 


4 


NOT USED 


* 


5 


PRINT LINE COMPLETE 




6 


PRINT CHECK 




7 


PRINT BUFFER PARITY CHECK 



LAST PAGE 
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80C3 TITLE F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY I 



MODIFICATIONS 



REVISION LEVEL 
FOLLOWS. 



5. THIS REVISION DIFFERS FROM VERSION 4 AS 



* 
* 

1. CONTROL PROGRAM -ROUTINE OVERLAY 01- * 
THIS ROUTINE WAS NOT MODIFIED* * 

2. CONTROL PROGRAM -ROUTINE OVERLAY 02- * 
DESCRIPTIONS OF ERROR NUMBERS 027 AND 038 WERE MODIFIED. * 

* 

ENGINEERING CHANGE PREREQUISITES * 
1. MACHINE * 
2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 

* 
♦ 

USE DESCRIPTION F80C* AT E.C. 125655* DATED 15N0V 66 OR LATER * 



E.C. LEVEL 125655 

PROGRAM 

NONE 



REVISION LEVEL 4. 
FOLLOWS. •• 



1. 



THIS REVISION DIFFERS FROM VERSION 3 AS 



* 

* 

CONTROL PROGRAM - ROUTINE OVERLAY 01 * 
THIS ROUTINE WAS MODIFIED TO TURN OFF THE DATA CHECK * 
LATCH -ALLOW DATA CHECKS- DURING THE FIRST START I/O * 
ISSUED BY THE ROUTINE. THIS LATCH REMAINS IN THE -OFF- * 
STATE FOR ALL REMAINING ROUTINE OVERLAYS IN F80C AND * 
F80D. * 
2. CONTROL PROGRAM. -ROUTINE OVERLAY 02- * 
THIS ROUTINE WAS NOT MODIFIED * 

* 

ENGINEERING CHANGE PREREQUISITES * * 

1. MACHINE * 
2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 
E.C. LEVEL 125632 * 
PROGRAM * 
NONE * 



001000 



* 

♦ 

* 
* 
* 

* 

* 
* 

- * 

* * 

XF80C5 START 4096 
USING *,15 



2. 



USE DESCRIPTION F80C* AT E.C. 125632, DATED 15 MAR 66 OR LATER * 



SECTION SENSE SWITCH USAGE 



* 

* 

* 

* SECTION PREFACE 



SSW 

ssw 
ssw 
ssw 



0, LOC X004, BIT 0 

1, LOC X004, BIT 1 

2, LOC X004, BIT 2 
6, LOC X004, BIT 6 



- LOOP ON START I/O 

- USE UTILITY SCOPE ROUTINE 

- LOG OUT DATA TABLE 

- PRINT TITLE 



001000 
001003 
001004 
001008 
00100A 
00100C 



F80C50 
00 

00000000 
0000 
0000 
00 



SECNO 



SNSW 



ICM 



DC 
DC 
DC 
DC 
DC 
DC 



X»F80C50* 

X»00« 

XL4*00» 

XL2«00» 

XL2«00« 

X*00 f 



PROGRAM AND SECTION NUMBER 
CURRENT ROUTINE NUMBER 
SECTION SENSE SWITCHES 
NOT USED 

INTERRUPTION CONDITION MASK 
SECTION DM. FLAGS 



DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 ID F80C-5 

EC 124263 124249 124265 125601 125632 125655 , PAGE 1 



0 0 0000 00000000000 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840223 | 
PAGE 1A !■ 



F80C 


2821 SCAN, 1403 UNIVERSAL 


CHARACTER SET 




F80C5 


RESIDENT AND CONTROL ROUTINE OVERLAY 1 






00100D 


01 


NUTE 


DC 


XL1 •©! * 


NUMBER OF UNIT TABLE ENTRY S 


00100E 


* 90 


FLAG1 


DC 


XL1 ^90 • 


FLAG BITS SET BY SECTION FOR DM 


00100F 


00 


FLAG2 


DC 


XL1 •00* 


INTERRUPT HANDLING FLAGS 


001010 


010400000F 


INPSW 


DC 


XL5»010400000F* 


INITIAL PSW 


001015 


001A60 




DC 


AL3(RTN0U 




001018 


0000000000000000 


EXOPSW 


DC 


XL8*00« 


EXTERNAL OLD PSW 


001020 


0000000000000000 


SVOPSW 


DC 


XL8»00« 


SUPERVISOR CALL OLD PSW 


001028 


0000000000000000 


PGOPSW 


DC 


XL8»00« 


PROGRAM OLD PSW 


001030 


0000000000000000 


MCOPSW 


DC 


XL8«00« 


MACHINE CHECK OLD PSW 


001038 


0000000000000000 


IOOPSW 


DC 


XL8»00» 


I/O OLD PSW 


001040 


0000000000000000 


CSW 


DC 


XL8«00« 


CHANNEL STATUS WORD 


001048 


00000000 


CAW 


DC 


XL4 , 00» 


COMMAND ADDRESS WORD 


00104C 


oooooooooooocooooo 




DC 


XL12»00« 


RESERVED FOR DM USE 


001055 


000000 










001058 


010400000F 


EXNPSW 


DC 


XL5«010400000F« 


EXTERNAL NEW PSW 


00105D 


00175C 


EXNADR 


DC 


AL3( BREX) 




001060 


oboooooooooooooo 


SVNPSW 


DC 


XLe'DO' 


SUPERVISOR CALL NEW PSW 


001068 


0000000000000000 


PGNPSW 


DC 


XL8«00« 


PROGRAM NEW PSW 


001070 


0000000000000000 


MCNPSW 


DC 


XLS^OO 1 


MACHINE CHECK NEW PSW 


001078 


01040Q000F 


IONPSW 


DC 


XL5»010400000F» 


I/O NEW PSW 


00107D 


001 %Sk A 


IONADR 


DC 


AL3ISI0INT) 




001080 




REGDMP 


DS 


24CL4 


SECTION REGISTER SAVE AREA - DM USE 












# 




SECTION PREFACE UNIT 


TABLE * 








0010E0 


83 


UNIT1 


DC 


XL1»83« 


UNIT TYPE - 1403 PRINTER 


00 1 0 F i 


00 


U10P 


DC 


X«00« 


OPTIONAL FEATURE BYTE 


00I0E2 


8000 


U1ADDR 


DC 


X*8000« 


FLAGS AND CHAN/UNIT ADDRESS 












* 


VARIABLES FOR START I/O ROUTINE - WORD BOUNDARY * 








0010E4 






CNOP 


0,4 


ALIGN ON WORD BOUNDARY 


0010E4 


00000000 


SI0VR1 


DC 


9F , 00» 


Rl THRU R9 SAVED HERE BY SIO 


0010E8 


00000000 










0010EC 


00000000 










0010F0 


00000000 










0010F4 


00000000 










0010F8 


00000000 










0010FC 


00000000 










001100 


00000000 










001104 


00000000 










001108 


00000000 


SI0VR4 


DC 


F«00» 


CC SAVED HERE FOR ORIG SIO 


00110C 


00000000 


SI0VR9 


DC 


F*00» 


100 MILLI-SEC CONSTANT SAVED HERE 


001110 


00000000 


SI0VR7 


DC 


F'OO* 


CC SAVED HERE FOR SENSE SIO 














VARIABLES FOR SIO ROUTINE - NO BOUNDARY * 



001114 00000000 

001118 00000000 

00111C 00000000 

001120 00 

001121 00 

001122 00 

001123 C961D640C1C4C4D940 
00112C E7E7E740C3C1E6 
001133 40E7E7E7E7E7E7E7E7 
00113C 40C7D6E340C3C3 
001143 F040C2E4E340D5D640 
00114C C905E3C509D9E4 
001153 D7E3 

001155 00 

001156 . C961D640C1C4C4D940 
00115F E7E7E740C3C1E6 
001166 \ 40E7E7E7E7E7E7E7E7 
00116F 40C7D6E340C3C3 
001176 F140C3E2E640E2E3C1 
00117F E3E4E240E7E7E7 
001186 E740E2D5E240E7E740 



SI0VR2 


DC 


F«00» 


SEC 


PREF CAW SAVED HERE BY SIO 


SI0VR3 


DC 


2F , 00« 


CSW 


SAVE AREA FOR ORIG SIO 


SENSE 


DC 


X«00« 


SENSE DATA STORED HERE 


CAWKEY DC 


X'OO' 


CAW 


KEY STORED HERE 


SIOSWS 


DC 


X«00» 1 


SIO 


SWITCHES 


SI0MS1 


DC 


C'I/0 ADDR XXX CAW» 

f 


ceo 


BUT NO INTERRUPT MESSAGE 




DC 


C« XXXXXXXX GOT CC • 








DC 


C«0 BUT NO INTERRU* 








DC 


c , pT , 






SI0VR6 


DC 


X«00* 






SI0MS2 

t 


DC 


C'I/0 ADDR XXX CAW* 








DC 


C» XXXXXXXX GOT CC 1 








DC 


C»l CSW STATUS XXX » 








DC 


C»X SNS XX • 







DATE 
EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
125655 
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00118F 


D4C1D2C540D709C9D3 




DC 


C 'MAKE PRINTER ROY* 




001198 


E3C50940D9C4E8 










001191= 


0000 


STATSV 


DC 


X*0000* 


2ND STATUS SAVE AREA 


0011A4 


00000000 


CSWAG 


DC 


2F*00« 


AGGREGATE CSW SAVED HERE 


0011A8 


00000000 










0011AC 


C961D640C1C4C40940 


SI0MS3 


DC 


C*I/0 ADDR XXX CAM* 




0011B5 


E7E7E740C3C1E6 










0011BC 


40E7E7E7E7E7E7E7E7 




DC 


C* XXXXXXXX GOT CC* 




0011C5 


40C7D6E340C3C3 










0011CC 


F040C3E2E640E7E7E7 




DC 


CO csw xxxxxxxxxx* 




001 IDS 


E7E7E7E7E7E7E7 










0011DC 


E7E7E7E7E7E740E2D5 




DC 


C'XXXXXX SNS XX • 




0011E5 


E240E7E740 










0011EA 


C961D640C1C4C4D940 


SI0MS4 


DC 


CM/O ADDR XXX CAW* 




0011F3 


E7E7E740C3C1E6 










0011FA 


40E7E7E7E7E7E7E7E? 




DC 


C* XXXXXXXX GOT CC* 




001203 


40C7D6E340C3C3 










00 120 A 


F040C3E2E640E7E7E? 




DC 


c*o CSW xxxxxxxxxx* 




001213 


E7E7E7E7E7E7E7 










00121A 


E7E7E7E7E7E7 




OC 


C'XXXXXX* 




001220 


0000000000000000 


SI0VR8 


DC 


XL8*00* 


SENSE CSW SAVED HERE 
















* 


1403 


START I/O ROUTINE 


* 










001228 








CNOP 


0,4 


ALIGN ON WORO BOUNOARY 


001228 


90 


19 F 0E4 


$10 


STM 


R1,R9,SIGVR1 


SAVE Rl THRU R9 


00122C 


D2 


03 F 114 F 048 




MVC 


SI0VR2l4itCAW 


SAVE CAW 


001232 


07 


07 F 118 F 118 


SIOAOO 


XC 


SI0VR3I8) »SI0VR3 


CLEAR CSW SAVE AREA 


001238 


07 


00 F 120 F 12© 




XC 


SENSE ( 1 ) tSENSE 


CLEAR SENSE BYTE 


00123E 


54 


CO F 758 




N 


R12,CLRC 


AND OUT BITS 0 THRU 20 OF GEN REG 12 


001242 


02 


00 F 048 F 121 




MVC 


CAW(l) .CAWKEY 


LOAD STORAGE KEY: IN SEC PREF CAW 


001248 


02 


03 D 048 F 048 




MVC 


HCAW(4,R13) ,CAW 


LOAD CAW 


00124E 


9C 


00 C 000 




SIO 


0CR12I 


START I/O 


001252 


45 


10 F 256 




BAL 


Rl,**4 


SAVE CONDITION CODE 


001256 


50 


10 F 108 




ST 


Rl»SI0VR4 




00125A 


91 


80 F 122 




TM 


SI0SWS,X*80* 


SEe'iF RET TO PROG SW1 ON 


00125E 


47 


10 F 438 




BC 


ALLtSI0I06 


BR IF YES 


001262 


91 


30 F 108 




TM 


SIQVR4»X»30« 


SEE IF SIO CC WAS. ZERO 


001266 


47 


50 F 2A4 




BC 


ANY , SIOBOO 


BR If NO 


00126A 


OA 


08 


*■ 


SVC 


X'D8* 


WAIT FOR I/O INTERRUPT 








* 


COME 


HERE IF DID NOT GET FIRST INTERRUPT 


00126C 


91 


80 F 004 




TM 


SNSW,X*80* 


BR IF SEC SS 00 IS ZERO r NO SIO LOP 


001270 


4? 


80 F 288 




BC 


N0NE,SI0A02 




0012T4 : 


58 


50 E 198 


SI0A01 


L 


R5*408CR0 f R14l 


GET *DM 10 SEC CONSTANT 


001278 


9D 


00 C 000 




TIO 


0(R12) 


TEST I/O 


O0127C 


47 


80 F 232 




BC 


CC0»SI0A00 


REPEAT SIO IF GOT CCO 


001280 


46 


50 F 278 




8CT 


R5,SI0A01+4 


DELAY 


001284 : 


47 


FO F 232 




BC 


UNCSIOAOO 


GO REPEAT SIO 


001288 


02 


02 F 12C F 753 


SI0A02 


MVC 


SI0MS1+9C3S »UAPRT 


SET PRINTER ADDR IN OUTPUT MESSAGE 


00128E 


OA 


DO 




SVC 


X'DD* 


CONVERT CAW TO EBCDIC 


001290 


0004 




OC 


AL2(4) 


NO OF HEX BYTES IN CAW 


001292 


0048 




OC 


AL2(CAW-SECN0) ] 


HEX DATA A DOR 


001294 ' 


0134 ' 




OC 


AL2(SI0MSl+17-SECN0) 


EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001296 


92 


FO F 143 




MVI 


SIOMSl*32tX*F0« 


SET CCO IN OUTPUT MSG 


00129A 


OA 


DO 




SVC 


X'DO' 


PRINT GOT CCO BUT NO INTERRUPT 


O0129C 


40 






DC 


X'40* 


PRINT PROG NO. PRIOR TO MESSAGE 








m 






TREAT AS ERROR 








* 






DO NOT CHAIN 








* 






DO NOT RESTORE f 


001290 


32 






DC 


X'32 • 


NO* OF CHAR IN MSG (50) 


00129E 


FI23 




DC 


AL2(SI0MSl-8ASE*REG) 


MESSAGE ADDRESS 


00 12 AO 


47 


FO F 274 


* 


BC 


UNCSI0A01 


GO TRY AGAIN 








* 


HANDLE SIO CC3 HERE 




0012A4 


47 -40 F 2CC • 


SIOBOO 


3C 


SOMEtSIOCOO 


BR IF NOT CC3 



DATE 
EC 



16JUN65 
124263 • 



22JUN65 
124249 



15JUL65 

124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 

125655 



ID F8QC-5 
PAGE 2 



OOOOOOOOOOOOOOOOO 
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, ■■ • PAGE ■ 2A' 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
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0012A8 
0012AC 
00 12 BO 
0012B2 
0012B4 
0012B6 
0012B8 
0012BE 
0012C2 
0012C4 



0012C5 
0012C6 
0012C8 



0012CC 
0012D0 
0012D4 
0012D8 
0012DC 
0012DE 
0012E0 
0012E2 
0012E4 
0012EA 
0012EE 
0012F0 



0012F1 

0012F2 
0012F4 



0012F8 
0012FC 
001300 
001304 
001308 
0Q130C 
001312 
001314 
001316 
001318 
00131A 
001320 
001322 
001324 
001326 
001328 
00132C 
00133d 
001334 
001336 



001337 
001338 
00133A 
00133E 
001342 



DATE 

EC 



91 80 
47 10 
OA DO 
0004 
0048 
0134 
02 02 

92 F3 
OA DO 
40 



004 
232 



12C F 

143 



753 



21 

F123 

47 FO F 232 



91 10 
47 10 

91 80 
47 10 
OA DO 
0004 
0048 
0134 
02 02 

92 F2 
OA DO 
40 



108 
2F8 
004 
274 



I2C F 753 
143 



21 

F123 
47 FO F 



91 80 
47 80 

91 FF 
47 50 
47 FO 
D2 02 
OA DO 
0004 
0048 
0167 
02 07 
OA 00 
0002 
011C 
0183 

92 Fl 
91 02 
47 10 
OA DO 
40 



274 



004 
346 
045 
274 

232 
15F 



F 753 



F 118 D 040 



176 
11C 
362 



31 

F156 

91 FF F 11D 

47 50 F 274 
47 FO F 232 



16JUN65 
124263 



22JUN65 
124249 







TM 


SNSW,X'80« 


BR IF SEC SS 00 IS 1 - LOOP SIO 






BC 


ALL,SIOAOO 








SVC 


X'DD' 


CONVERT CAW TO EBCDIC 






DC 


AL2(4) 


NO. OF HEX BYTES IN CAW 






DC 


AL2 (CAW-SECNO) 


HEX DATA ADDR 






DC 


AL2(SI0MSl+17-SECN0) 


EBCDIC DATA ADDR 






MVC 


SI0MS1+9O) ,UAPRT 


SET PRINTER ADDR IN OUTPUT MSG 






MVI 


SI0MS1+32,X'F3' 


SET CC3 IN OUTPUT MSG 






SVC 


X'DO' 


PRINT GOT CC3 ON SIO 






DC 


X'40' 


PRINT; PROG NO. PRIOR TO MSG 










TREAT AS ERROR 


* 








DO NOT CHAIN 










DO NOT RESTORE 






DC 


X'21» 


NO. OF CHAR IN MSG (331 






DC 


AL2(SI0MS1-BASE+REGI 


MESSAGE ADDRESS 


* 




BC 


UNCSIOAOO 


GO TRY SIO AGAIN 






HANDLE SIO CC2 HERE 




SIOCOO 


TM 


SI0VR4,X'10* 


BR IF DID NOT GET CC2 






BC 


ALL, SIODOO 








TM 


SNSW,X'80' 


br'if SEC SS 00 IS 1 - LOOP SIO 






BC 


ALL,SI0A01 


ft 






SVC 


X'DD' 


CONVERT CAW TO EBCDIC 






DC 


AL2C4) 


NO. OF HEX BYTES IN CAW 






DC 


AL2 (CAW-SECNO) 


HEX DATA ADDR 






DC 


AL2(SIOMS1+17-SECNO) 


EBCDIC DATA AOOR IN OUTPUT MSG 






MVC 


SI0MS1+9C3) ,UAPRT 


SET I/O ADDR IN OUTPUT MSG 






MVI 


SI0MS1+32,X'F2* 


SET CC2 IN OUTPUT MESSAGE 






SVC 


X'DO* 


PRINT GOT CC2 ON SIO 






DC 


X*40* 


PRINT PROG NO. PRIOR TO MSG 


* 








TREAT AS ERROR 


* 








DO NOT CHAIN 


* 








DO NOT RESTORE 






DC 


X*21* 


NO. OF CHAR IN MSG (33$ 






DC 


AL2( SIQMS1-BASE+RE6) 


MESSAGE ADDRESS 






BC 


UNCtSIOAOl 


GO TRY AGAIN 






HANDLE SIO CC1 HERE 




SIODOO 


TM 


SNSW,X»SO» 


BR IF SEC SS 00 IS 0 - NO LOOP SIO 






BC 


N0NE,SI0004 








TM 


HCSW+5CR13) ,X'FF» 


Do'tIO IF GOT ANY CH STS FOR CLEAR 






BC 


ANY,SI0A01, 








BC 


UNCSIOAOO 


LOOP SIO ONLY 


SI0D02 


MVC 


SI0MS2+9(3> ,UAPRT 


SET PRINTER ADDR IN OUTPUT MSG 






SVC 


X'DD' 


CONVERT CAW TO EBCDIC 






DC 


AL2C4) 


NO. OF HEX BYTES IN CAW 






DC 


AL2(CAW-SECN0) 


HEX DATA ADDR 






DC 


AL2 { SI GMS2+ 17-S ECNOi 


EBCDIC ADDR IN OUTPUT MESSAGE 






MVC 


SlOVR3i8> ,HCSWtR13) 


SAVE CSW 






SVC 


X'DD' 


CONVERT CSW STATUS TO EBCDIC 






DC 


AL2(2) 


NO. OF STATUS BYTES 






DC 


AL2(SIQVR3«-4~SECN0) 


r c u CT ATI !C Anno 
Ion 5 1 A 1 Uo AUUrv 






DC 


AL2(SI0MS2+45-SECN0> 


EBCDIC ADDR IN OUTPUT MSG 






MVI 


SI0MS2+32»X'F1' 


SET CC1 IN OUTPUT MSG 






TM 


SI0VR3+4,X f 02' 


GO DO SENSE I/O IF GOT UC 






BC 


ALL,SIOEOO 








SVC 


X'DO* 


PRINT GOT CC1 ON SIO - NO UC 






DC 


X'40' 


PRINT PROG NO. PRIOR TO MSG 










TREAT AS ERROR 










DO NOT CHAIN 










DO NOT RESTORE 






DC 


X'31' 


NO. OF CHAR IN MSG (49) 






DC 


AL2(SI0MS2-BASE+REG) 


MESSAGE ADDRESS 


SI0D03 


TM 


SI0VR3+5,X'FF» 


DO TIO BEFORE SIQi IF GOT ANY CH STS 






BC 


ANY, SIOAOI 








BC 


UNCSIOAOO 


REPEAT SIO ONLY 


65 


15DEC65 


15MAR66 15N0V66 


ID F80C-5 


>5 


125601 


125632 125655 


PAGE 2A 
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001346 


91 


FF 


D 


045 






SI0D04 


TM 


Hu SW+3 IK13I f A'rr 


on TC fOT AMV rUAM CTATII<C 
DK lr bU 1 Aril UH AW dfAIUd 


00134A 


47 


50 


F 


30C 








BC 


ANY tbl liu\J£. 




00134E 


95 


OC 


D 


044 








CLI 




rcc tc r*nT re jl nc riNi v 
5cc lr uu i v»c ▼ uc urtL. t 


001352 


47 


60 


F 


30C 








BC 


UNcQ , SIuDOZ 


do AKiru TC KID 
oKANLn 1 r NU 


001356 


91 


40 


F 


122 








TM 


SIQSWS, X*40 a 


SEE IF RETURN TO PRUb ON InnEU Ur 


00135A 


47 


10 


F 


438 








BC 


ALL t SI0I06 


BRANCH IF YES 


00135E 


47 


FO 


F 


3C2 








BC 


UNCSI0I02 


GO INDICATE ERROR 


001362 


45 


70 


F 


47E 






SIOEOO 


BAL 


R7,SI0F00 


GO DO SENSE I/O 


001366 


OA 


00 












SVC 


X'OD • 


CONVERT SENSE DATA TO EBCDIC 


001368 


0001 












DC 


AL2<1) 


NO* Or SENSE BYTES 


00136A 


0120 












DC 


AL2(SENSE-SECN0) 


SENSE DATA ADDR 


00136C 


018C 












DC 


AL2(SI0MS2*54-SECN0) 


EBCDIC DATA ADDR IN OUTPUT MSG 


00136E 


91 


40 


»P 


120 








TM 


SENSE, X'40 1 


BR IF GO INTERV REQ 


001372 


47 


10 


F 


380 








BC 


ALL«SI0E01 




001376 


OA 


DO 












SVC 


X«DO« 


GOT CCi ON SIO WITH UC ♦ NO INTV REQ 


001378 


40 














DC 


X^O* 


PRINT PROG NO* PRIOR TO MESSAGE 
















* 






TREAT AS ERROR 
















* 






DO NOT CHAIN 
















* 






DO NOT RESTORE 


001379 


38 














DC 


X^S* 


NO* OF CHAR IN MSG 156} 


00137A 


F156 












OC 


AL2(StOMS2-BASE*REG) 


MESSAGE ADDRESS 


00137C 


47 


FO 


F 


33A 








BC 


UNCtSI0D03 


REPEAT SIO 


001380 


OA 


00 










SIOE01 


SVC 


X»DO» 


PRINT GOT CCI ON SIO - UC ♦ INTV REQ 


001382 


40 














OC 


X«40« 


MAKE PRINTER READY. * I/O ADDR IN GR12 
















* 






PRINT; PROG NO* PRIOR TO MSG 
















* 






TREAT AS ERROR 














;f 








DO NOT CHAIN 














Y 


* * 






DO NOT RESTORE 


001383 


49 














DC 


X«49* 


NO* OR CHAR IN MSG (731 


001334 


F156 












DC 


A L2 ( SI 0MS2-BASE+RE6) 


MESSAGE AOORESS 


001386 


47 


FO 


F 


274 






* 


BC 


UNCtSIOAOl 


CONTINUE 
















* 

♦ • 


HANDLE SIO CCO HERE 




00138A 


91 


80 


F 


004 






SIOINT 


TM 


SNSWtX'BO* 


BR IF SEC SS 00 IS 1 - LOOP SIO 


00138E 


47 


10 


F 


274 








BC 


ALLf SI0A01 




001392 


02 


07 


F 


118 


0 


040 




MVC 


SI0VR3(8) ,HCSW(R13) 


SAVE CSW 


001398 


91 


20 


F 


122 








TM 


SI0SWS,X»20» 


BR IF RET TO PROG SW3 ON 


00139C 


47 


10 


F 


438 








BC 


ALL,SI0I06 




00 13 AO 


07 


01 


F 


19F 


F 


19F 




XC 


STATSV(2) tSTATSV 


CLEAR 2ND STATUS SAVE AREA 


0013A6 


58 


40 


F 


IOC 








L 


R4,SI0VR9 


LUAU Tine LUNST A 1 N IN SR *t 


0013AA 


46 


40 


F 


3B2 






SIOIOO 


BCT 


R4,SI0I0i 


DCBC1T Tift f C f Q A. UflT "P CO fi 

REPEAT T I u lr uK *i NUT ZxRU 


0013AE 


47 


FO 


F 


3CC 








BC 


UNC, SI 01 03 


CUNT I NUE — If At Icy IUU LUNt» rUK CCO 


0013B2 


90 


00 


C 


000 






SIOI01 


TIO 


0(R12) 


TEST I/O 


0013B6 


47 


80 


F 


3CC 








BC 


ZtSI0I03 


on lr bU 1 CLU 


0013BA 


47 


40 


F 


3C2 








BC 


CC1«SI0I02 


no tc rriT rr t 
BR lr bUI LL1 


0013BE 


47 


FO 


F 


3AA 








BC 


UNCt SIOIOO 


D CDC at Tin 
KCrC A 1 1 1U 


0013C2 


06 


01 


F 


19F 


D 


044 


SIOI02 


OC 


STATSVC2) ,HCSW+4(R13) 


SAVE 2ND STATUS 


0013C8 


47 


FO 


e 
r 


lit 

3 AA 








BC 


UNCt SI 01 00 


Dcpci-r Tin 


0013CC 


91 


04 


F 


122 






$10103 


TM 


SIQSWS»X«04« 


SEE IF WANT OELAY 


r\rs t ]nn 
UUI3U0 


47 


80 


r 


3EA 








BC 


N0NE f SI0I04 


do tc wn 


001304 


58 


40 


F 


IOC 








L 


R4,SI0VR9 


SET UP FOR DELAY 


fin i ha 


90 


00 


C 


000 








TIO 


0(R12) 


TEST I/O 


00130C 


47 


BO 


F 


3E6 








BC 


CSWNST,**10 


BR ON ANY CC BUT 1 f 


0013E0 


D6 


01 


F 


19F 


D 


044 




OC 


STATSV(2) ,HCSW+4(R13) 


SAVE CSW STATUS r 


0013E6 


46 


40 


F 


308 








BCT 


R4»SI0I03+12 


BR IF NOT END OF DELAY 


0013EA 


D2 


07 


F 


1A4 


F 


118 


$10104 


MVC 


CSWAG(8) ,SI0VR3 


DEVELOP AGGREGATE CSW 


0013F0 


06 


01 


F 


1A8 


F 


19F 




OC 


CSWAG+4(2),STATSV 




0013F6 


91 


OC 


F 


1A8 








TM 


CSWAG*4,X«0C« 


br'if GOT CE ♦ DE 


0013FA 


47 


10 


F 


40C 








BC 


ALL,SI0I05 




0013FE 


45 


30 


F 


45A 








BAL 


R3,SIQ109 


GO SET UP PRINTOUT 


001402 


OA 


00 












SVC 


X*DO» 


DID NOT GET CE AND/OR DE 


001404 


40 














DC 


X«40« 


PRINT PROG NO PRIOR TO MESSAGE 
















■ * 






TREAT AS ERROR 






















DO NOT CHAIN 






















DO NOT RESTORE 


001405 


36 














DC 


X'36« 


NO* OF CHAR IN MSG (54) 


001406 


F1AC 












OC 


AL2(SI0MS3-BASE+REG) 


MESSAGE ADDRESS 


DATE 


16JUN65 




22JUN65 


15JUL65 15DEC65 


15MAR66 15N0V66 


ID F80C« 


EC 


124263 




124249 


124265 125601 


125632 125655 
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001408 


47 


FO 


F 


274 




BC 


UNC tSIOAOl 


GO TRY AGAIN 


00140C 


91 


FF 


F 


1A9 


SIOI05 


TM 


CSWAG+5 »X *FF • 


BR IF GOT ANY CHAN STATUS 


001410 


47 


50 


F 


44C 




BC 


ANYtSIOIOS 




001414 


91 


02 


F 


1A8 




TM 


CSWAG+4tX '02 ' 


BR IF DID NOT GET UNIT CHECK 


001418 


47 


80 


F 


438 




BC 


NONE t SX0I06 




00141C 


45 


70 


F 


47E 




BAL 


R7»SI0F00 


GO DO SENSE OP 


001420 


91 


A2 


F 


120 




TM 


SENSE tX • A2 ' 


BR IF GOT COMM REJ, BUS OUT PARITY 


001424 


47 


50 


F 


43E 




BC 


ANY,SI0I07 


OR INVALID SEQUENCE 


001428 


96 


01 


F 


122 




01 


SI0SWS f X»01« 


TURN ON INTERV REQ SW 


00142C 


91 


40 


F 


120 




TM 


SENSE, X»40« 


BR IF GOT INTERV REQ 


001430 


47 


10 


F 


438 




BC 


ALL,SI0I06 


» » 


001434 


97 


01 


F 


122 




XI 


SlOSWStX^Ol * 


TURN OFF INTERV REQ SW 


001438 


98 


19 


F 


0E4 


SI0I06 


LM 


R1,R9,SI0VR1 


RESTORE Rl THRU R9 


00143C 


07 


FB 








BCR 


UNCR11 


RETURN TO PROGRAM 


00143E 


45 


30 


F 


45A 


SI0I07 


BAL 


R3,SIOI09 


GO SET UP PRINTOUT 


001442 


OA 


DO 






* 


SVC 


X^DO* 


GOT COMMAND REJ t BUS-OUT PARITY* 
AND/OR INVALID SEQ WITH CCO 


001444 


40 








* 
* 


DC 


XHO' 


PRINT PROG NO* PRIOR TO MESSAGE 
TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 


001445 


3F 










DC 


X»3F« 


NO* OF CHAR IN MSG (62) 


001446 


F1AC 








DC 


AL2 ( SIQMS3-BASE+REG) 


MESSAGE ADDRESS 


001448 


47 


FO 


F 


274 




BC 


UNCSI0A01 


GO TRY SIO AGAIN 


00144C 


45 


30 


F 


45A 


SI0I08 


BAL 


R3,SI0I09 


GO SET UP PRINTOUT 


001450 


OA 


DO 








SVC 


X«D0« 


GOT CHANNEL STATUS WITH CCO 


001452 


40 








i 

* 

« * 


DC 


X«40* 


PRINT PROG NO* PRIOR TO MESSAGE 

TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 


001453 


36 










DC 


X«36« 


NO* OF CHAR IN MESSAGE (54) 


001454 


* F1AC 








DC 


AL2(SI0MS3~BASE+REG) 


0 MESSAGE ADDRESS 


001456 


47 


FO 


F 


• 274 ' 




BC 


UNCSI0A01 


GO TRY SIO AGAIN 


00145A 


D2 


02 


F 


18$ F 753 


SIOI09 


MVC 


SI0MS3+9(3),UAPRT 


SET PRINTER ADDR IN OUTPUT MESSAGE 


001460 


OA 


DD 








SVC 


X»DD» 


CONVERT CAW TO EBCDIC 


001462 


0004 








DC 


AL2(4J 


NO. OF HEX BYTES IN CAW 


001464 


0048 








DC 


AL2(CAW~SECN0) 


HEX DATA ADDR 


001466 


OIBD 








OC 


AL2(SI0MS3*17~SECN0) 


EBCDIC DATA ADOR IN OUTPUT MSG 


001468 


OA 


DD 








SVC 


X'DD* 


CONVERT CSW TO EBCDIC 


00 146 A 


0008 








DC 


AL2(8) 


NO* OF HEX BYTES IN CAW 


00146C 


01A', 








DC 


AL2 (CSWAG-SECNO) 


HEX DATA ADOR 


00146E 


01D2 








DC 


AL2(SI0MS3+38-SECN0) 


EBC DATA ADDR IN OUTPUT MSG 


001470 


OA 


DD 








SVC 


X«DD« 


CONVERT SENSE DATA TO EBCDIC 


001472 


0001 








DC 


AL2(1) 


NO* OF SENSE BYTES 


001474 


0120 








DC 


AL2 i SENSE-SECNO) 


HEX DATA ADDR 


001476 


01E7 








DC 


AL2(SI0MS3+59«SECN0I 


EBCDIC DATA ADOR IN OUTPUT MSG 


001478 


92 


FO 


F 


ICC 




MVI 


SIOMS3+32,X«F0« 


SET CCO IN OUTPUT MESSAGE 


00147C 


07 


F3 








BCR 


UNC ,R3 


RETURN 



* SENSE I/O PERFORMED HERE * 



00147E 


D2 02 


F 


1F3 


F 


753 


SIOFOO 


MVC 


SI0MS4+9(3),UAPRT 


SET PRINTER ADDR IN OUTPUT MESSAGE 


001484 


41 00 


F 


568 








LA 


R0,SNSCCW 


SET UP SENSE CAW 


001488 


50 00 


F 


048 








ST 


R0,CAW 


f 9 


00148C 


02 00 


F 


048 


F 


121 




MVC 


CAW ( 1 ) ,CAWKEY 




001492 


OA DD 












SVC 


X«DD« 


CONVERT CAW TO PRINTABLE 


001494 


0004 












DC 


AL2C4) 


NO OF HEX BYTES IN CAW 


001496 


0048 












DC 


AL2(CAW~SECN0) 


HEX DATA ADDRESS 


001498 


01FB 












DC 


AL2(SI0MS4+17-SECN0) 


PRINTABLE DATA ADDRESS 


00149A 


02 03 


D 


048 


F 


048 


SI0F01 


MVC 


HCAW<4,R13) ,CAW 


LOAD SENSE CAW 


0014A0 


9C 00 


c 


000 








SIO 


0(R12) 


SENSE I/O 


0014A4 


45 00 


F 


4A8 








BAL 


R0,*+4 


SAVE CONDITION CODE 


0014A8 


91 80 


F 


004 








TM 


SNSW,X«80« 


BR IF SEC SS 00 IS 1 - LOOP SIO 


0014AC 


47 10 


F 


552 








BC 


ALL.SI0F08 1 




0014B0 


50 00 


F 


110 








ST 


R0,SIOVR7 


MOVE CONDITION CODE 


0014B4 


92 FO 


F 


20A 








MVI 


SI0MS4+32tX*F0« 


SET CCO IN OUTPUT MESSAGE 


001488 


91 30 


F 


110 








TM 


SI0VR7,X»30« 


BR IF GOT CCO 


0014BC 


47 80 


F 


500 








BC 


N0NE,SI0F03 1 





DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 
EC 124263 124249 124265 125601 125632 125655 
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0014C0 


92 


F3 


F 


20A 








MVI 


0014C4 


47 


10 


F 


4F6 








BC 


0014C8 


92 


F2 


F 


20A 








MVI 


0014CC 


91 


2P 


F 


110 








TM 


0014D0 


47 


10 


F 


4F6 








BC 


0014D4 


92 


Fl 


F 


20A 








MVI 


0014D8 


02 


OA 


F 


210 


F 


17C 




MVC 


0014DE 


02 


07 


F 


220 


D 


040 




MVC 


0014E4 


OA 


OD 












SVC 


0014E6 


0002 












DC 


0014E8 


0224 












DC 


0014EA 


0217 










■. 


DC 


0014EC 


OA 


00 












SVC 


0014EE 


40 














DC 


0014EF 


31 














DC 


0014F0 


F1EA 












DC 


0014F2 


47 


FO 


■f 


552 








BC 


0014F6 


OA 


00 










SI0F02 


SVC 


0014F8 


40 














DC 


0014F9 


21 














DC 


0014FA 


F1EA 












DC 


0014FC 


47 


FO 


F 


552 








BC 


001500 


07 


07 


F 


220 


F 


220 


SI0F03 


XC 


001506 


58 


40 


E 


198 








L 


00150A 


90 


00 


C 


000 






SIOF04 


TIO 


00150E 


47 


40 


F 


51A 








BC 


001512 


46 


40 


F 


50A 








BCT 


001516 


47 


FO 


F 


520 






BC 


00151A 


D6 


07 


F 


220 


SIOF05 


OC 


001520 


91 


FF 


F 


225 








TM 


001524 


47 


50 


F 


538 








BC 


001528 


91 


OC 


F 


224 








TM 


00152C 


47 


CO 


F 


538 








BC 


001530 


91 


F3 


F 


224 








TM 


001534 


47 


80 


F 


54A 








BC 


001538 


OA 


DO 










SIOF06 


SVC 


00153A 


0008 












DC 


00153C 


0220 












DC 


00153E 


0210 












DC 


001540 


OA 


DO 












SVC 


001542 


40 














DC 


001543 ' 


36 














DC 


001544 ' 


F1EA 












DC 


001546 


47 


FO 


F 


552 








BC 


00154A 


02 


03 


F 


048 


•F 


114 


SI0F07 


MVC 


001550 


07 


F7 












BCR 


001552 


58 


40 


E 


198 






SI0F08 


L 


001556 


90 


00 


C 


000 








TIO 


00155A 


47 


80 


F 


49A 








BC 


00155E 


46 


40 


F 


556 








BCT 


001562 


47 


FO 


F 


49A 








BC 



001568 



00 1ST® 



001578 • 



00157C 
001585 



DATE 
EC 



SI0MS4+32,X , F3« SET CC3 IN OUTPUT MESSAGE 

ALL,SI0F02 BR IF GOT CC3 

SI0MS4+32,X«F2* SET CC2 IN OUTPUT MESSAGE 

SI0VR7,X«20« BR IF GOT CC2 

ALLtSI0F02 tt 

SIQMS4+32iX , Fl« SET CC1 IN OUTPUT MESSAGE 
SI0MS4*38(11> ,SI0MS2+38 SET UP OUTPUT MESSAGE 



SI0VR8C8) ,HCSW(R13) 

X«DD« 

AL2(2) 

AL2 C SI0VR8+4-SECNQ) • 

AL2(SI0MS4+45-SECN0> 

X'DO* 

X'40' 

X«31 f 

AL2t SI0MS4-8ASi*RE6l 

UNCtSIOFOS 

X»DO« 

X«4Q» 

X»2l» 

AL2tSI0MS4-BA$E*ReGl 
UNCtSI0F08 
SI0VR8C8) tSIOVRS 
R4,408<R0,R14) 
0CR12) 
CCl»SIOF05 
R4tSIOF04 
UNC,SI0F05>6 
SI0VR8C8) ,HCSW!Ri3l 
SI0VR8+5tX»FF» 
ANY,SI0F06 
SI0VR8*4»X«0C« 
ZNEG,SI0F06 
SI0VR8+4,X»F3« 
N0NE t SI0F07 
X«DD» 
AL2(8) 

AL2(SI0VR8-SECN0> 

A12CSI0MS4+38-SECN0J 
X«DO» 
X«40» 

X«36» 

AL2 1 SI 0MS4-BASE+REG S 
UNCSI0F08 
CAW<4) »SI0VR2 
UNC,R7 

R4,408<R0,R14> 
0(R12) 
CC0,SI0F01 

R4,SIQF08*4 
UNCSIOFOl 



SAVE CSW 

CONVERT CSW STATUS TO PRINTABLE 
NO* OF STATUS BYTES 
CSW STATUS ADDRESS 
PRINTABLE DATA ADDRESS 
GOT CC1 FOR SENSE 
,, ERR MESSAGE 
tt 49 CHARACTERS 
•t ADDRESS OF MESSAGE 
GO TRY S'gNSE AGAIN 
GOT CC2 OR CC3 FOR SENSE 

t» ERROR MESSAGE 

tf 33 CHARACTERS 

99 ADDRESS OF MESSAGE 
GO TRY SENSE AGAIN 
CLEAR SENSE CSW SAVE AREA 
GET DM TEN SEC TIME CONSTANT 
TEST I/O 

BR IF CSW STORED 

LOOP TIO FOR MAX OF TEN SEC 

CONTINUE 

SAVE CSW 

BR IF ANY CHANNEL STATUS 

Br'iF DID NOT GET CE ♦ DE 

* t 

BR IF NOT ANY OTHER UNIT STATUS 



04 001120 0000 0001 



00 00157C 0000 0000 ' 



OQOOOOOO 



000000000000000000 
000000000000000000 



CONVERT CSW TO PRINTABLE 

tt NO. OF CSW BYTES TO BE CONVERTED 
,, SENSE CSW ADDRESS 
, , PRINTABLE DATA ADDRESS 
GOT CCO FOR SENSE, BUT WRONG STATUS 
,» ERROR MESSAGE 
9V 54 CHARACTERS 
tt ADDRESS OF MESSAGE 
GO TRY SENSE AGAIN 
RESTORE ORIGINAL CAW 
RETURN 

GET DM TEN SEC TIME CONSTANT 
TEST I/O 

REPEAT SENSE IF GOT CC 0 
REPEAT TIO FOR TEN SEC MAX 
GO TRY SENSE AGAIN 

* CCW-S USED BY SIO ROUTINE * 
SNSCCW CCW X»04«, SENSE ,X»00«,1 SENSE CCW 

* VARIABLES FOR UTILITY ROUTINE - DOUBLE WORD BOUNDARY * 
SCPCCW CCW X«00SSCPDAT,X«00S00 UTILITY ROUTINE CCW 

* VARIABLES FOR UTILITY ROUTINE - WORD BOUNDARY * 
SCPRK4 DC F«00« WORK AREA 

* VARIABLES FOR UTILITY ROUTINE - NO BOUNDARY * 
SCPDAT DC XL250*0« SCOPE ROUTINE DATA FIELD 



16JUN65 
124263 



22JUN65 

124249 



15JUL65 

124265 



15DEC65 
125601 



15MAR66 ~ 
125632 



15NQV66 

125655 



" ID F80C-5 
PAGE 4 
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00158E 

001597 

O015A0 

0015A9 

0015B2 

0015BB 

0015C4 : 

0015CD 

0015D6 

0015DF 

0015E8 

0015F1 

0015FA 

001603 

00160C 

001615 

00161E 

001627 

001630 

001639 

001642 

00164B 

001654 

00165D 

001666 

00166F 



001676 
001676 
001678 
00167C 



000000000000000000 
'000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 
00000000000000 



07 00 

90 9C F 0E4 
OA DO 



* UTILITY ROUTINE * 

. ******♦**♦***♦*****♦♦♦**♦♦♦***♦***♦**♦♦♦♦ 

CNOP 0,4 



BCR 
SCPROO STM 
SCPR10 SVC 

* ' 

* 
* 
* 
* 

* 
* 
* 
* 



0,0 

R9,R12tSI0VRl 
X»D0« 



SAVE R9 THRU GR12 

PRESS CONSOLE STOPt ENTER CCW DATA 
U ENTER OP IN 6R 10 - BYTE 2 - 
ENTER CCW FLAGS: IN GR10 ~ 
BYTE 3 - 

BIT 0 - NOT USED 
BIT 1 - NOT USED 
BIT 2 - SLI 
BIT 3 - SKIP 
BIT 5 - NOT USED 
ENTER DATA FIELD CONTENTS IN 
GR 11 - BYTES 0 THRU 3 - 
ENTER CCW COUNT IN GR 12 
-BYTES 0 AND 1- 
ENTER DEVICE ADDRESS IN GR 12 
-BYTE 2, BITS 5^6-7, AND BYTE 3 
SET SEC SS 00 TO 1 TO LOOP, OR 
SET TO ZERO FOR 1 PASS- 
PRESS CONSOLE START 
TO EXIT THIS RTN PRESS CONSOLE 
STOP, SET SEC SS 00 ANO 01 TO 
ZERO, THEN PRESS CONSOLE START 



2* 



3« 



5. 



7. 

8« 



00167E 


80 








DC 


X*80* 




00167F 


27 








DC 


X»27« 


,, 39 CHARACTERS 


001680 


F728 






DC 


AL2 ( SCPRK2-BASE+REG) 


,, ADDRESS OF MESSAGE 


001682 


58 


CO 


F 


720 


L 


R12 , SCPRK3 


SET GR 12 TO ONES 


001686 


55 


CO 


F 


720 


SCPR20 CL 


R12,SCPRK3 


SEE IF GR 12 WAS ALTERED 


00168A 


.. 47 


80 


F 


6A2 


BC 


EQ,SCPR40 


BR IF NO 


00168E 


91 


40 


F 


004 


TM 


SNSW,X»40 9 


BR IF SEC SS 01 IS 1 - USE UTILITY 


001692 


47 


10 


.F 


6AE 


BC 


ALL,SCPR50 




001696 


98 


9C 


F 


0E4 


SCPR30 LM 


R9,R12,SI0VR1 


RESTROE GR 9 THRU GR 12 


00169A 


02 


03 


F 


048 F 114 


MVC 


CAW(4) .SI0VR2 


RESTORE ORIGINAL CAW 


00 16 AO 


07 


F8 






BCR 


UNCR8 


RETURN TO PROGRAM 


0016A2 


91 


40 


F 


004 


SCPR40 TM 


SNSW,X«40« 


BR IF SEC SS 01 IS 1 - USE UTILITY j 


0016A6 


47 


10 


F 


686 


BC 


ALL,SCPR20 




0016AA 


47 


FO 


F 


696 


BC 


UNC , SCPR30 


RETURN TO PROGRAM 


0016AE 


50 


AO 


F 


578 


SCPR50 ST 


R10,SCPRK4 


SET UP CCW j 


DATE 


16JUN65 




22JUN65 


15JUL65 15DEC65 


15MAR66 15N0V66 


ID F8CC-5 i 


EC 


124263 




124249 


124265 125601 ; 


125632 125655 


' ■ PAGE • . 4A j 



y ■ 



oooooooooooooooooooooooooooooooo 



o o 



o o o 
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O0I6B2 


Mi 


00 


F 


O l u 


p 


*»7A 
3lH 


An i g. DO < 


Q) 

74t 


30 


F 


574 






0016BC 


r\j. 
U*¥ 


00 


F 




p 


57B 


0016C2 


50 


CO 


F 








t\t\ 1 AC t% 


D2 


01 


F 


576 


p 


578 


0016CC 


05 


01 


F 


578 


F 


74F 


0016D2 


47 


DO 


F 


6DC 






0016D6 


D2 


01 


F 


576 


F 


74F 


0016DC 


50 


BO F 


578 






00I6E0 


02 


03 


F 


57C 


F 


578 


0016E6 


02 


F5 


F 


580 


F 


57C 


0016EC 


41 


90 


F 


570 






0016F0 


50 


90 


F 


048 






0016F4 


02 


00 


F 


048 


F 


121 


0016FA 


02 


03 


D 


048 


F 


048 


001700 


9C 


00 


C 


000 






001704 : 


90 


00 


C 


000 






001708 


47 


70 


F 


704 






00170C 


91 


80 


F 


004 






001710 


47 


10 


F 


6FA 






001714 


91 


40 


F 


004 






001718 


47 


10 


F 


67C 






00171C 


47 


FO 


F 


696 







001720 
001720 
001724 



001728 
001731 
001738 
001741 
001748 
00174F 



001751 
001752 
001753 
001756 
001756 
001758 



00175C 
001760 



FFFFFFFF 
00000014 



D7D9C5E2E240C30605 

E2D6D3C540E2E3 

D6D7404E40C5D5E3C5 

D940E4E3C903C9 

E3E840C4C1E3C1 

OOFA 



00 
00 

000000 



07 00 
000007FF 



92 FF F 751 
OA 06 



00176C 



MVC 
MVI 
NC 
ST 
MVC 
CLC 
BC 
MVC 
SCPR51 ST 
MVC 
MVC 



SCPCCWU) ,SCPRK4+2 
SCPCCW+4,X«30« 
SCPCCW+4(U,SCPRK4*3 
R12,SCPRK4 
SCPCCW+6C2) ,SCPRK4 
SCPRK4<2) *SCPRKA 
NHIGH,SCPR51 
SCPCCW+6(2) tSCPRKA 
R11,SCPRK4 
SCPDATC4) f SCPRK4 
SCPDAT+4I246) tSCPOAT 



CHECK IF CCW COUNT OVER 250 
BR IF NOT 

FORCE CCW COUNT TO 250 
SET UP OATA FIELD 



SCPR70 LA 
ST 
MVC 

SCPR80 MVC 
SIO 

SCPR90 TIO 
BC 

TM 
BC 
TM 
BC 
BC 



START I/O FOR UTILITY ROUTINE 



R9«SCPCCM 
R9,CAW 

CAW(1),CAWKEY 
HCAW(4»R13!«CAtt 
0CR12) 
01R12) 
NZ,SCPR90 
SNSW,X»80« 
ALLfSCPR80 
SNSW,X«40« 
ALL«SCPR10 
UNCtSCPR30 



SET UP CAW 



LOAD CAM 
START I/O 
TEST I/O 

REPEAT TIO IF NOT CCO 
BR IF SEC SS 00 IS 1 - 



LOOP SIO 



BR IF SEC SS 01 IS 1 - USE UTILITY 



RETURN TO PROGRAM 

* CONSTANTS FOR UTILITY ROUTINE - WORD BOUNDARY * 
Mi******************************************************************** 

CNOP Ot4 
SCPRK3 DC X 'FFFFFFFF • 
SCPRK5 DC X«00000014« 

********************************************************************** 

* CONSTANTS FOR UTILITY ROUTINE - NO BOUNDARY * 
*******************#**************^ 

SCPRK2 DC C'PRESS CONSOLE ST* 



DC 



COP ♦ ENTER UTILI* 



DC C*TY DATA 1 
SCPRKA DC X»00FA« 

* VARIABLES USED BY OVERLAYS - NO BOUNDARY * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*******^ 

SCHNUM DC X«00» ROUTINE SEARCH NO. STORED HERE 

DC X»00» AREA TO SAVE PRINTABLE PRINTER A DDR 

UAPRT DC XL3»0« t* 
CNOP 0*4 
BCR 0,0 

CLRC DC X»000007FF» 

**************************************************************** 

* COME HERE IF OPERATOR ABORTS PROGRAM f 

BREX MVI SCHNUM, X«FF« SET SEARCH NO. FOR BUFFER RESTORE . 

SVC X*D6* ROUTINE EXIT 

* 

************************************************************** 

* OVERLAYS BEGIN HERE , * 
*************************************************************** 

ORG SECNO+1900 

***************************************************************** 

* ROUTINES* VARIABLES t ♦ CONSTANTS USED BY BOTH CONTROL 

* OVERLAY ROUTINES 1*2 
♦♦♦♦♦♦♦♦♦♦♦********************«******^ 

* 

* VARIABLE PROGRAM CONSTANTS 
* 



DATE 
EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15NGV66 
125655 
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00176C 




WRAREA 


DS 


153C 


001805 


00 


CESTAT 


DC 


X«00« 


001806 


00 


DESTAT 


DC 


X'OO* 


001807 


00 


AGSTAT 


DC 


X'OO* 


001808 


00 


SNSE 


DC 


X^OO* 


001809 




CKRDAR 


DS 


133C 


00 188 E 




ROAR 


DS 


153C 


001927 


00 


CKDATA 


DC 


X'OO* 


001928 


00 


EXPECT 


DC 


X«00» 


001929 


00 


ffRQGSW 


DC 


X'OO* 



00157C 
00157C 



00192A 


91 


40 


F 


004 






001926 


47 


80 


F 


936 






001932 


45 


80 


F 


678 






001936 


91 


20 


F 


004 






00193A 


47 


80 


F 


9A4 






0O193E 


02 


41 


F 


57C 


F 


76D 


061944 


45 


BO 


F 


9A6 






001948 


02 


41 


F 


57C 


F 


7AF 


00194E 


45 


BO 


F 


9A6 






001952 


D2 


03 


F 


57C 


F 


805 


001958 


OA 


DO 










00195A 


0004 










00195C 


057C 










00195E 


057C 










001960 


91 


20 


F 


929 






001964 


47 


10 


F 


9CA 






001968 


OA 


DO 










00196A 


AO 












00196B 


08 












00196C 


F57C 










00196E 


02 


41 


p 


57C 


F 


80A 


001974 


45 


BO 


F 


9A6 






001978 


D2 


41 


F 


57C 


F 


84C 


00197E 


45 


BO 


F 


9A6 






001982 


D2 


41 


F 


57C 


F 


88F 


001988 


45 


BO 


F 


9A6 






00198C 


02 


41 


F 


57C 


F 


SD1 


001992 


47 


FO 


F 


9BC 






001996 


OA 


DA 










001998 


91 


40 


F 


004 






00199C 


47 


80 


F 


9A4 






00 19 AO 


45 


80 


F 


678 






0019A4 


OA 


06 










0019A6 


OA 


DD 










0019A8 


0042 










0019AA 


057C 










0019AC 


057C 










0019AE 


OA 


DO 










0019B0 


AO 












0019B1 


42 












0019B2 


F57C 










0019B4 


OA 


DO 










0019B6 . 


AO 












0019B7 


' 42 












0019B8 


F 


5BE 










0019BA 


07 


FB 










0019BC 


45 


BO 


F 


9A6 







* 

* 
* 

UCSAR 
CMPAR 

* . 
, * 

EXIT 



EXIT1 



EXIT1A 



EXIT2 
GO 



G01 



EQU 
EQU 



TM 

BC 

BAL 

TM 

BC 

MVC 

BAL 

MVC 

BAL 

MVC 

SVC 

DC 

DC 

DC 

TM 

BC 

SVC 

DC 

DC 

DC 

MVC 

BAL 

MVC 

BAL 

MVC 

BAL 

MVC 

BC 

SVC 

TM 

BC 

BAL 

SVC 

SVC 

DC 

DC 

OC 

SVC 

DC 

DC 

DC 

SVC 

DC 

DC 

DC 

BCR 

BAL 



SCPDAT 
SCPDAT 



WRITE AREA 
CHAN END STATUS 
DEV END STATUS 

COMBINED CHAN * DEV END STATUS 
SENSE DATA 
CHECK READ AREA 
DATA READ AREA 

TEMPORARY CK READ DATA STORAGE 
AREA TO TEST FOR EXPECTED BIT 
PROGRAM SWITCHES 

BIT 0 - 1ST PRINT PASS 
BIT 1 - RUN ROUTINE 
BIT 2 - SKIP LOG OUT OF 

,t CHECK ♦ DATA READS 
BIT 7, -WRITE C.E. PARITY 
UCB BUFFER LOAD AREA 
COMPARE DATA AREA 



LOGOUT INFORMATION ROUTINE 



SNSW,X«40" 

NONE, EXIT! 

R8,SCPR00 

SNSW,X»20« 

N0NE,EXIT2 

0UTPUTI66) tWRAREA+1 

R11,G0 

OUTPUT 1 66} f WRAREA*67 
R11,G0 

0UTPUT(04), CESTAT 

X»DD» 

AL2(04) 

AL2C0UTPUT-SECN0) 

AL2(0UTPUT-SECN0> 

PR0GSW,X«20« 

ALL ,G02 

X»D0» 

X'AO* 

X»08» 

AL2 (OUTPUT-BASE+REG) 
0UTPUTC661 ,CKRDAR+l 
RlliGTJ 

OUTPUT (66) tCKRDAR+67 
R11,G0 

0UTPUTC66) ,RDAR+1 
R11,G0 

0UTPUTC66) .RDAR+67 

UNCGOl 

X»DA» 

SNSW,X»40» 
N0NE,EXIT2 
R8,SCPR0O 
X»D6« 

X*DD« 
AL2(66) 

AL2(0UTPUT-SECN0> 

AL2<0UTPUT-SECNQ) 

X^DO* 

X«A0» 

X*42« 

AL2 C OUTPUT-BASE+REG) 

X«D0» 

X»A0» 

X«42« 

S(0UTPUT+66) 

UNCRll 

R11,G0 



IS SCOPE ROUTINE DESIRED 

BRANCH IF NO 

GO TO SCOPE ROUTINE 

IS LOGOUT OF DATA DESIRED 

BRANCH IF NO 



SHOULO READ DATA BE SKIPPED 
BRANCH TO SKIP READ DATA 



IS SCOPE ROUTINE DESIRED 
BRANCH IF NO 
GO TO SCOPE ROUTINE 
EXIT FROM ROUTINE 



DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 
EC 124263 124249 124265 125601 125632 125655 
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0019C0 


OA 


DO 












SVC 


0019C2 


80 














DC 


0019C3 


01 














DC 


0019C4 


F 126 












DC 


0019C6 


4? 


FO 


F 


996 








BC 


0019CA 


OA 


00 










GD2 


SVC 




80 
















0019CD 


08 














DC 


0019CE 


F57C 












DC 


0019D0 


94 


OF 


F 


929 








NI 


0019D4 


47 


FO 


F 


996 






'■ * ■ 


BC 


001 908 


18 


25 










* 

BITCKO 


LR 


0019DA 


43 


02 


F 


809 






BITCK1 


IC 


0019DE 


42 


00 


F 


927 








STC 


0019E2 


44 


10 


> 


9F6 








EX 


0019E6 


4? 


10 


"F 


9F0 








BC 


0019EA 


46 


20 


¥ 


90A 








BCT 


0019EE 


07 


FB 












BCR 


0019F0 


41 


8B 


0 


004 






BITCK2 


LA 


0019F4 


07 


FB 












BCR 


0019F6 


91 


00 


F 


927 






\ EXT-M ' ; 
* 


TM 


0019FA 


02 


00 


F 


805 


F 


11C 


•■ * - 
. * 
SAVSTA 


MVC 


001A00 


02 


00 


F 


806 


F 


19F 




MVC 


001A06 


02 


00 


F 


807 


F 


1A8 




MVC 


001A0C 


D2 


00 


F 


808 


F 


120 




MVC 


001A12 


07 


FB 












BCR 



001A60 
001A60 
001A61 
001A62 

001A64 
001A66 
001A6A 
001A6E 
001A72 
001A74 
001A75 
001A76 



001A14 


07 


84 


F 809 F 


809 


READS 


XC 


001A1A 


41 


00 


F A58 






LA 


001AIE 


50 


00 


F 048 






ST 


001A22 


92 


00 


F 122 






MVI 


001A26 


45 


BO 


F 228 






BAL 


001A2A 


07 


98 


F 88E F 


88E 


READS2 


XC 


001 A 30 


41 


00 


F A50 






LA 


001A34 


50 


00 


F 048 






ST 


001A38 


92 


00 


F 122 






MVI 


001A3C 


45 


BO 


F 228 






BAL 


001A40 


07 


FA 








BCR 


001A48 


7B 


00188F 6000 


0001 


■ * . 

ADCCW 


CCW 


001A50 


02 


00188F 2000 


0098 


PRRCCW 


CCW 


001A58 


06 


00180A 2000 


0084 


CRDCCW 


CCW 



X'DO« 
X«80« 
X«01« 

SISI0MS1+3) 

UNCEXIT1A 

X»DO« 

X«80« 

X'OS" 

AL2 ( 0UTPUT-BASE**EG) 
PRQGSW f X«DF f 

UNC»EXIT1A 



RESET SKIP READS LOG OUT SWITCH 



ROUTINE TO CHECK ALL POSITIONS FOR BITS -CHECK READ AREA- 
R2,R5 

ROf CKRDARI2) 
ROfCKDATA 
RlfEXTM 
ALL ?BI TCK2 
R2»BITCK1 
UNCtRll 
Rllt4(Rll 9 0) 
UNCtRll 
CKDATAfX'OO " 



SET INDEX TO MAXIMUM COUNT 
GET A CHECK READ CHARACTER 

* t. 

CHECK FOR REQUIRED BIT 

RETURN TO ROUTINE IF BIT ON 

WERE ALL POSITIONS CHECKEO 

RETURN TO PROGRAM-NO BITS FOUND 

ADD 4 TO RETURN ADDRESS 

RETURN TO PROGRAM-BITS FOUND 

OP TO CHECK FOR BITS -EXECUTE OP- 



OPS TO SAVE STATUS AND SENSE INFORMATION 



CESTAT(1),CSWSAV*4 

DESTAT(l) *STAT$V 
AGSTAT(l)tCSWAG*4 
SNSEC1), SENSE 
UNCtRll 



SAVE CHANNEL END STATUS 
SAVE DEVICE END STATUS 
SAVE AGGREGATE STATUS 
SAVE SENSE DATA 
RETURN TO MAIN ROUT INE 



ROUTINES TO DO CHECK READ AND DATA READ 



CKRDAR( 133) tCKRDAR 
RO, CRDCCW 
ROtCAW 
SIOSWS, X'00 f 
RlltSIO 

ROAR (153) »RDAR 

ROt PRRCCW 

ROtCAW 

SlOSWStX'OO* 

RlltSIO 

UNCtRlO 



CLEAR CHECK RE AO AREA 

LOAD ADDRESS OF CHECK READ CCW 

.. .t-t 

RESET SIO SWITCHES 

GO TO START I/O ROUTINE 

CLEAR READ AREA 

LOAD ADDRESS OF PRINT READ CCW 

RESET SIO SWITCHES 

GO TO START I/O ROUTINE 

RETURN TO MAIN ROUTINE 



X«7BSR0AR*l»X*60Sl ALLOW DATA CHECK CCW 
X*02SRDAR*2LtX , 20 t *152 DATA READ FROM BUFFER, SLI ON 
X * 06 • »CRRD.A*^tX^'2©'*. #1.52^. 0 TAG CHECK READ CCW f SL I ON * 

ROUTINE PRElFI X 

ROUTINE 01 



01 
00 

FFFE 

18 CC 
48 CO 
91 10 
47 10 
OA 00 
44 
18 

FE31 



0E2 
0E1 

A7A 



RTN01 


CNOP 


0,4 


FULL WORD ALIGNMENT 


DC 


XL1»01» 


ROUTINE NUMBER 




DC 


XL1«0« 


FLAGS 


* 


DC 


X # FFFE • 


ADDRESS OF NEXT ROUTINE 


INITOO 


SR 


# R12,R12 


CLEAR REGISTER 12 




LH 


R12,U1ADDR 


LOAD PRINTER ADDR IN REG 12 




TM 


UNITl+ltXUO' 


IS UCS PRINTER DEFINED 




BC 


ALL,INIT05 


CONTINUE WITH TEST IF DEFINED 




SVC 


X f D0» 


PRINT MESSAGE-TEST BYPASSED 




DC 


X»44» 


1 1 




DC 


X»18» 


» t 




DC 


AL2(BYPASS-BASE+REG) 


■ . » * 



DATE 
EC 



16JUN65 

124263 



22JUN65 

124249 



15JUL65 

124265 



15DEC65 

125601 



15MAR66 

125632 



15N0V66 
125655 
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001A78 


OA 


D5 








SVC 


X'DS 1 


BYPASS TESTS IF NOT UCS PRINTER 


001A7A 


IB 


DD 






TNIT05 


SR 


R13,R13 


CLEAR REGISTER 13 


001A7C 


91 


40 


E 


196. 




TM 


406( 14) ,X»40V 


LOAD REG 13 WITH THE CONTENTS 


001A80 


47 


80 


F 


A86 




BC 


N0NE,*+6 


,, OF REG 15 IF RUNNING 


001A84 ; 


18 


DF 








LR 


R13»R15 


, , IN PROBLEM STATE 


001A86 


47 


80 


F 


A94 




BC 


NONE,INIT10 


BRANCH TO SKIP TITLE PRINTOUT 


001A8A 


91 


02 


F 


004 




TM 


SNSW,X«02« 


IS TITLE PRINTOUT DESIRED 


001A8E 


OA 


DO 








SVC 


X»DO« 


PRINT TITLE 


001A90 


80 










DC 


X*80» 


tt 


001 A9 I 


20 










DC 


X»'20:»- 


,t 32 CHARACTERS 


001A92 


FE08 








DC 


AL2 ( TI TLE1-BASE+REG) 


tt ADDRESS OF TITLE 


001A94 


OA 


DO 






INITIO 


SVC 


X»DO* 


PRINT MESSAGE-WARNING NOT TO USE 


001A96 


04 










DC 


X • 04 • 


tt DEVICE UNDER TEST AS 


001A97 


2C 










DC 


. X^C 1 ■ 


tt THE OUTPUT DEVICE 


001A98 


FE49 








DC 


A L 2 1 W ARN- BASE* REG ) 




001A9A 


IB 


00 








SR 


ROtRO 


CLEAR REGISTER 0 


001A9C 


91 


10 


E 


180 




TM 


384(14) ,X* 10 » 


IS STORAGE PROTECT ON SYSTEM 


001AA0 


47 


80 


F 


AAA 




BC 


NONE t INI T20 


BRANCH IF NOT 


001AA4 


09 


OF 








isk 


R0tR15 


PUT STORAGE KEY IN REG 0 


001 AA6 


42 


00 


F 


121 




STC 


ROtCAWKEY 


SAVE STOR KEY FOR PROGRAM USE 


001AAA 


OA 


DD 






INIT20 


SVC 


X^DD' 


CONVERT PRINTER ADDR TO PRINT CHAR 


001 AAC 


0002 








DC 


AL2C2) 


tt 2 BYTES 


001AAE 


00E2 








DC 


AL2( U1ADDR-SECN0) 


tt ADDRESS OF PRINTER ADDRESS 


001 A BO 


0752 








DC 


A L 2 f U A P R T- 1- SEC NO) 


,, ADDRESS OF PLACEMENT 


001 A 82 


41 


50 


0 


084 




LA 


R5,132i0,0) 


SET REG 5 FOR 132 POSITION PRINTER 


001AB6 


91 


04 


F 


OEl 




TM 


UNI'Ti-fifX 9 04' v 


IS 120 POSITION PRINTER USED 


001ABA 


47 


80 


F 


AC2 




BC 


N0NE,*-i-8 


BRANCH IF NOT 120 POSITION 


001ABE 


41 


50 


0 


078 


.* ' 


LA 


R5, 120(0,0) 


SET GEN REG 5 FOR 120 POS PRINTER 


001AC2 


IB 


00 








SR 


RO,RO 


CLEAR REGISTER 0 


001AC4 


58 


10 


E 


198 




L 


R1,408(R0,R14) 


SET UP TIMEOUT CONSTANT FOR 100 MS* 


001 ACS 


41 


20 


0 


064 




LA 


R2, 100(0,0) 


tt SET UP DIVISOR 


001ACC 


ID 


02 








OR 


R0,R2 


tt DIVIDE TIMING CONSTANT 8Y 100 


001 ACE 


50 


10 


F 


IOC 




ST 


R1,SI0VR9 


, t STORE 100 MS CONSTANT FOR USE 


001AD2 


91 


40 


F 


004 




TM 


SNSW,X»40« 


IS SCOPE ROUTINE DESIRED 


001AD6 


47 


80 


F 


ADE 




BC 


NONE , UCBAOO 


BRANCH IF NO 


001ADA 


45 


80 


F 


678 


• * 


BAL 


R8,SCPR00 ' 


GO TO SCOPE ROUTINE 












* 

* 




BEGIN CHECKOUT 




001ADE 


41 


00 


F 


A48 


UCBAOO 


LA 


RO, ADCCW 


LOAD ADDR OF ALLOW DATA CK * RD CCW 


001AE2 


50 


00 


F 


048 




ST 


ROfCAW 


STORE CCW ADDR IN CAW 


001AE6 


92 


00 


F 


122 




MVI 


SIOSWS ,X*00' 


RESET SIO SWITCHES 


001AEA 


45 


BO 


F 


228 


* 


BAL 


R11,ST0 


GO TO SIO ROUTINE 


001AEE 


95 


14 


F 


11F 




CLI 


CSWSAV+7,X«14» 


WAS CSW RESIDUAL COUNT OK 


001AF2 


47 


80 


F 


BOO 




BC 


EQ,UCBA05 


BRANCH IF OK 


001AF6 


OA 


DO 








SVC 


X*D0« 


ERROR MESSAGE-CSW RESIDUAL. COUNT ERR 


001AF8 


44 










DC 


X«44» 


tt, 


Q01AF9 


07 










DC 


X«07» 


■t-t 


001AFA 


FE7C 








DC 


AL2 ( ERR002-BASE+REG) 


9 t 


001AFC 


47 


FO 


F 


92A 




BC 


UNCEXIT 




001B00 


D7 


98 


F 


76C F 76C 


* 

UCBA05 


XC 


WRAREA ( 153) ,WRAREA 


LOAD WRITE AREA WITH BLANKS 


001B06 


41 


00 


F 


DFO 




LA 


ROtSHTCCW 


LOAD ADDR OF SHORT PRINT WRITE CCW 


001B0A 


50 


00 


F 


048 




ST 


R0,CAW 


STORE PRINT CCW ADDR IN CAW 


001B0E 


92 


04 


F 


122 


UCBA10 


MVI 


SIOSWS ffX'04 " 


RESET SIO SWITCHES- WAIT FOR SYNC CK 


001B12 


45 


80 


F 


228 




BAL 


RlltSIO 


GO TO START I/O ROUTINE 


001B16 


45 


80 


F 


9FA 




BAL 


R11,SAVSTA 


GO SAVE STATUS ♦ SENSE INFO 


001B1A 


91 


01 


F 


122 




TM 


SIOSWS, X'Ol ' 


IS INTERVENTION REQ SWITCH SET 
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00 1 B 1 E 


47 


80 


p 


B2C 




BC 


NONE •UCBA17 


BRANCH IF OFF 


001B22 


OA 


DO 






UCBA15 


SVC 


X»DO« 


ERROR MESSAGE-SYNC CHECK 


001B24 


44 










DC 


X»44» 


, » 


001B25 


07 










OC 


X«07» 


» t 


001B26 


FE75 








DC 


AL2 ( ERR001-BASE+REG) 


t * 


001B28 


47 


FO 


F 


92A 




BC 


UNCtEXIT 




001B2C 


41 


00 


F 


DF8 


UCBA17 


LA 


RO,DPRCCW 


LOAD ADDRESS OF DIAG PRINT CCN 


001 R30 


50 


00 


f 


048 




O 1 


KUtVfAH 




001B34 


92 


00 


F 


122 




MVI 


SIOSWS,X»00« 


RESET SIO SWITCHES 


001B38 


45 


BO 


F 


228 


* 


BAL 


RlltSIO 


GO TO START I/O ROUTINE 


001B3C 


06 


00 


F 


805 F IIC 




OC 


CESTAT(l) ,CSWSAV+4 


OR CHAN END STATUS WITH PREVIOUS 


001B42 


95 


14 


F 


11F 




CLI 


CSWSAV+7,XU4« 


IS CSW RESIDUAL COUNT OK 


001B46 


47 


80 


F 


854 




BC 


EQ V UCBBOO 


BRANCH IF OK 


001B4A 


OA 


DO 






UvDMcU 




v inn • 


cDDno MCCCACc.rcu dcc thiiai fniifciT coo 
fcKKUK ncdOAbt— vStt KtilUUAL tUUNI fcKK 


001B4C 


44 










DC 


X»44« 


9 9 


001B40 


07 










DC 


X«07» 


• 9 


001B4E 


FE7C 








DC 


AL2(ERR002-BASE*REG) 




001B50 


47 


FO 


F 


92A 


* 


BC 


UNCEXIT 




001B54 


45 


BO 


f 


9FA 


Uv DD VU 


BAL 






001B58 


45 


AO 


F 


A14 


* 


BAL 


RIO, READS 


GO DO CHECK READ ♦ DATA READ 


001 BSC 


91 


04 


F 


808 


UCBCOO 


TM 


SNSE,X«04* 


WAS UCB PARITY ON WITH WRITE 


001B60 


47 


10 


F 


BE8 




BC 


ALL,UCBE00 


BRANCH IF ON 


001B64 


91 


02 


F 


805 




TM 


CESTAT,X»02 # 


WAS UNIT-CK ON AT CHANNEL-END 


001B68 


47 


80 


F 


B90 




BC 


NONE , UCBDOO 


BRANCH I F OFF 


001 B6C 


41 


10 


0 


001 




LA 


Rl, 1(0,0) 


SET MASK TO LOOK FOR PARITY CK 


001B70 


45 


BO 


F 


908 




BAL 


Rll,BITCKO 


GO CHECK IF ANY 7 BITS IN CK RD DATA 


001B74 


47 


FO 


F 


B86 


* 


BC 


UNCUCBC50 


NO BITS FOUND - BR NO PARITY ERRS 


001 B78 


OA 


DO 






UCBC05 


SVC 


X^DO* 


ERROR MESSAGE -DATA REGISTER PROBLEM 


001B7A 


44 










DC 


X*44* 


«« OR PARITY CIRCUITS PROBLEM 


001B7B 


07 










DC 


X^T' 


1 1 


001B7C 


FE8A 








DC 


AL2( ERR004-BASE+REG) 


? 1 


001B7E 


92 


83 


F 


751 




MVI 


SCHNUM,X»83 # 


SET UP SEARCH FOR PRINT DAT REG FLT 


001B82 


47 


FO 


F 


92A 


* 


BC 


UNCEXIT 




001B86 


OA 


DO 






UCBC50 


SVC 


X^O^ 


ERROR MESSAGE - FALSE UNIT CK 


001B88 


44 










DC 


X»44» 


t $ 


001B89 * 


07 










DC 


X'07" 


1 1 


001B8A 


FE91 








DC 


AL2(ERR005-?BASE+REG) 


1 1 


001B8C 


47 


FO 


F 


92A 


♦ 


BC 


UNC ,EXIT 




001B90 


91 


02 


F 


806 


UCBDOO 


TM 


DESTAT,X»02 t 


WAS UNIT-CK ON AT DEVICE-END 


001B94 


47 


80 


F 


BE8 




BC 


NONEtUCBEOO 


BRANCH IF OFF 


001B98 


41 


10 


0 


001 




LA 


Rl, 1(0,0) 


SET MASK TO LOOK FOR PARITY CK 


001B9C 


45 


BO 


F 


9D8 




BAL 


Rll ,BITCKO 


GO CHECK IF ANY 7 BITS IN CK RD DATA 


nn i a An 
UU J. 0 AU 


47 


FO 


c 
r 


QIC 

DAt 


* 


BC 


UNL , UCBD20 


NO BITS FOUND - BR NO PARITY ERRORS 


001 BA4 


OA 


DO 








SVC 


X'DO* 


ERROR MESSAGE- BUFFER PROBLEM 


001BA6 


44 










DC 


X»44* 


» t 


001BA7 


07 










DC 


X»07' 


9 9 


001BA8 


FE98 








DC 


AL2( ERR006-BASE+REG) 


, , 


001BAA 


47 


FO 


F 


92A 


* 


BC 


UNCEXIT 




001BAE 


41 


10 


0 


002 


UCB020 


LA 


Rl, 2(0,0) 


SET MASK TO LOOK FOR PRINT CKS 


001BB2 


45 


BO 


F 


908 




BAL 


R11,BITCK0 


GO CHECK IF ANY 6 BITS IN CK RD DATA 


001BB6 


47 


FO 


F 


BC4 


* 


BC 


UNCUCBD30 


NO BITS FOUND - BR NO PRINT CKS 


001BBA 


OA 


00 






UCB025 


SVC 


X»D0» 


ERROR MESSAGE - FALSE PRINT CHECKS 


001 BBC 


44 










DC 


X»44» 


,, COULD BE COMPARE 


001BBD 


07 










DC 


X*07» 


,, CIRCUITS PROBLEM 


001B8E 


FE9F 








DC 


AL2 { ERR007-BASE+REG ) 


t » 


001BC0 


47 


FO 


F 


92A 




BC 


UNCEXIT 




001BC4 


91 


10 


F 


808 


* 

UCB030 


TM 


SNSE,X»10» 


WAS EQUIP CK ON AT DEVICE END 


DATE 


16JUN65 




22JUN65 


15JUL65 15DEC65 


15MAR66 15N0V66 


ID F8CC-5 


EC 


124263 




124249 


124265 125601 


125632 125655 
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00 1BC8 


47 


80 


F 


BD6 








BC 


NONE , UC8D40 


BRANCH IF OFF 


001BCC 


OA 


DO 










UCBD32 


SVC 


X'DO' 


ERROR MESSAGE - FALSE EQUIP CK 


001BCE 


44 














DC 


X«44» 


, , 


001BCF 


07 














DC 


X»07» 


9 9 


00 IB DO 


FEA6 












DC 


AL2 ( ERR008-BASE+REG) 


, , 


0CJLBD2 


47 


FO 


F 


92A 








BC 


UNCEXIT 




001BD6 


91 


08 


F 


808 






UCBD40 


TM 


SNSE,X»08» 


WAS DATA CK PRESENT AT DEVICE END 


001B0A 


47 


10 


F 


BE8 








BC 


ALL ,UCB£00 


BRANCH IF ON 


001B0E 


OA 


DO 










UCBD50 


SVC 


X'DO' 


ERROR MESSAGE -FALSE UNIT CHECK 


001BE0 


44 














DC 


X»44» 




001BE1 


07 














OC 


X»07« 


» t 


001BE2 


FE91 












DC 


AL2(ERR005~BASE+REG) 


1 1 


001BE4 


47 


FO 


F 


92A 






* 


BC 


UNCEXIT 




001BE8 


91 


04 


F 


0E1 






UCB E 00 


TM 


UNIT1+1,X»Q4* 


IS 120 POSITION PRINTER USED 


001BEC 


47 


10 


F 


BFE 








BC 


ALL , UCBE10 


BRANCH IF 120 POSITION PRINTER 


001BF0 


05 


83 


F 


88F 


F 


76D 




CLC 


RDAR+1 ( 132) ,WRAREA+1 


WAS DATA READ BACK OK- 132 POSITIONS 


001BF6 


47 


80 


F 


C68 








BC 


EQ, UCBFOO 


BRANCH IF OK 


001BFA 


47 


FO 


F 


C08 








BC 


UNCUCBE20 




001BFE 


D5 


77 


F 


88F 


F 


76D 


UCBE10 


CLC 


RDAR+1U20) ,WRAREA+1 


WAS OATA READ SACK OK-120 POSITIONS 


001C04 


47 


80 


F 


C68 








BC 


EQ, UCBFOO 


BRANCH IF OK 


001 COS 


D2 


00 


F 


57D 


F 


88F 


UCBE20 


MVC 


CMPAR+1 { 1 ) ,RDAR+1 


• CHECK IF ALL BITS READ THE SAME 


001C0E 


02 


82 


F 


57E 


F 


570 




MVC 


CMPAR+2(131> ,CMPAR+1 


f f 


001C14 


91 


04 


F 


0E1 








TM 


UNIT1+1,X«04» 


IS 120 POSITION PRINTER USED 


001C18 


47 


10 


F 


C2A 








BC 


ALL,UCBE25 


,, BRANCH IF 120 POSITION 


001C1C 


D5 


83 


F 


570 


F 


88F 




CLC 


CMPAR4-I ( 132 ) ,RDAR*1 




001C22 


47 


30 


F 


C3A 








BC 


ECUCBE50 


, t 


001C26 


47 


FO 


F 


C34 






* 


BC 


UNCUCBE30 


1 1 


001C2A 


05 


77 


F 


570 


F 


88F 


UCBE25 


CLC 


CMPAR+1 ( 120) tRDAR+1 


f 9 

t f 


001C30 


47 


80 


F 


C3A 








BC 


EQ,UCBE50 


' f f 


001C34 


OA 


DO 










UCBE30 


SVC 


X 'DO* 


CBflnS MCCC tL f C TktTCDU I Tt A fcl Y fill (C C tftkt 

fcKKUK Mc55AGc— INTcRMlTTANT 6U55 IN 


001C36 


44 














DC 


X'44« 


,, PROBLEM 


001C37 


07 














DC 


X»07« 


; 1 1 


001C38 


FEB4 












DC 


AL2 ( ERR010-8ASE+REG) 


» 9 


001C3A 


41 


05 


F 


88F 






UCBE50 


LA 


R0,RDAR+1(R5) 


SET UP MAXIMUM COUNT 


001C3E 


41 


10 


F 


88F 








LA 


R1»RDAR+1 


SET UP BEGINNING OF AREA 


001C42 


91 


40 


1 


000 






UCBE52 


TM 


0(R1) ,X»40« 


CHECK FOR A 1 BIT 


001C46 


47 


80 


F 


C5E 








BC 


N0NE,UCBE60 


BRANCH IF NO 1 BIT 


00 1C4A 


41 


11 


0 


001 








LA 


SSI 1 >D1 t\\ 

Kl , 1 ( Rl , U 1 


UruAl c lNucX 1 BY 1 


001C4E 


15 


01 












CLR 


R0,R1 


WERE ALL POSITIONS CHECKED 


001C50 


47 


60 


F 


C42 






* 


BC 


UNEQ,UCBE52 


GO CHECK NEXT POSITION 


001C54 


OA 


DO 












SVC 


X«DO« 


ERROR MESSAGE - FOLDING PROBLEM 


001C56 


44 














DC 


X»44» 


99 OR BUSS IN 1 BIT 


001C57 


07 














DC 


X«07» 


,, PROBLEM 


OOIC58 


FEB8 












DC 


AL2(ERR011-8A$E*R£G) 


♦ 9 


001C5A 


47 


FO 


F 


92A 






. * 


BC 


UNCEXIT 




001C5E 


OA 


DO 










UCBE60 


SVC 


X*D0» 


ERROR MESSAGE -BUSS IN PROBLEM 


001C60 


44 














DC 


X«44* 


,t PICKED UP BITS 


001C61 


07 














DC 


X»07 8 


9 9 


001C62 


FEC2 












DC 


AL2 { ERR012-BASE+REG) 


9 9 


001C64 


47 


FO 


F 


92A 






* 


BC 


UNCEXIT 




00IC68 


91 


08 


F 


808 






UCBFOO 


TM 


SNSE,X»03* 


VMS DATA-CK PRESENT 


001C6C 


47 


80 


F 


C7A 








BC 


N0NE,UCBF10 


BRANCH IF NO 


001C70 


OA 


DO 










UCBF05 


SVC 


X*00* 


ERROR MESSAGE- FALSE DATA CHECK 


001C72 


44 














DC 


X«44* 


9 9 


001C73 


07 














DC 


X»07» 


9 9 


001C74 


FEC9 












DC 


AL2 ( ERR013-BASE+REG) 


9 9 


00IC76 


47 


FO 


F 


92A 








BC 


UNCEXIT 




001C7A 


41 


05 


F 


80A 






UCBF10 


LA 


R0,CKRDAR+1 (R5) 


SET UP FOR MAXIMUM COUNT 


00IC7E 


41 


10 


F 


80A 








LA 


Rl , CKRDAR+1 - 


INITIALIZE INDEX 1 



DATE 16JUN65 22JUN65 15JUL65 .15DEC65 15MAR66 15N0V66 
EC 124263 124249 124265 125601 125632 125655 
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001C82 


91 


04 


1 


000 






UCBF15 


TM 


0 I Kl 1 »X'04 ' 


CnhCK rUR PLC BIT 


001C86 


47 


80 


F 


C98 








BC 


N0NE,UCBF20 


BRANCH IF NO PLC BIT 


00IC8A 


41 


11 


0 


001 








LA 


RltKRltO) 


UPDATE INDEX BY 1 


00 1C8E 


15 


01 












CLR 


RO t Rl 


UCDC At 1 DnC TT T flMC fUtZTlt CD 

WcKfc ALL rUo 1 1 1 UI\J5 L-hCwIV CU 


001C90 


47 


60 


F 


C82 








BC 


UNEQ,UCBF15 


GO CHECK NEXT POSITION 


001C94 


47 


FO 


F 


CA2 








BC 


UNCtUCBGOO 




001C98 


OA 


00 










UCBF20 


SVC 


X»DO» 


ERROR MESSAGE- PROBLEM SETTING PLC 


001C9A 


44 














OC 


X»44« 


«t WITH BLANKS 


001C9B 


07 














DC 


X«07» 


1 1 


001C9C 


FEOO 












DC 


AL2 i ERR014«*8A5E+REGt 


1 1 


tort 1 rac 


47 


FO 


c 

r 










or 
ov 


Urtt* |CA1 1 




001CA2 


07 


98 


F 


76C 


F 


76C 


ucsso® 


xc 


WRAREAU53) ,WRAREA 


CLEAR WRITE DATA AREA 


00 1 CAS 


4i 


90 


F 


E28 








LA 


R9,DATA1 


INITIALIZE INDEX 9 TO DATA-FIELD 


nni r tr 

UU JL w A3* 


D2 


00 


F 


f OU 




vUv 


UtDwlv 


iivr 
n vv» 




epT A n AT A RVTC til WO TTC 1DCA 

dCI A UAIA ST 1 C If* VfHllC "KCA 


001CB2 


41 


00 


F 


EDO 








LA 


R0»PRCCW2 


LOAD ADDR OF DI AG WRITE CCW FOR 1 


001CB6 


50 


00 


F 


048 








ST 


R0 9 CAW 


STORE CCW ADDR IN CAW 


OOiCBA 


92 


00 


F 


122 








MVI 


SIOSWS,X«00» 


RESET SIO SWITCHES 


001CBE 


43 


BO 


F 


228 






• 


3AL 


RlltSIO 


GO TO START I/O ROUTINE 


0Q1CC2 


45 


BO 


F 


9FA 








BAL 


RlltSAVSTA 


GO SAVE STATUS AND SENSE INFO 


001CC6 


45 


AO 


F 


A14 








BAL 


RIO, READS 


GO DO CHECK READ + DATA READ 


001 CCA 


D5 


00 


F 


88F 


r 


Soli 






KUAK+ 1 111 t WRAKcA+JL 


WAS 151 BYT fc READ AS cXrcCTcD 


001C00 


47 


80 


F 


D34 








BC 


EQtUCBKOO 




001CD4 


95 


FF 


F 


76D 






; * 


CLI 


WRAREA+1 ,X»FF» 


IS DATA FF BEING CHECKED 


001 CDS 


47 


80 


F 


CE4 








BC 


EQ,UCBG25 


BRANCH IF DATA FF 


001CDC 


95 


00 


F 


88F 








CLI 


RDAR+1,X«00* 


WERE NO BITS IN FIRST BYTE 


001CE0 


47 


60 


F 


D1A 






: # 


BC 


UNEQtUCBHOO 


BRANCH IF BITS PRESENT 


001CE4 


41 


10 


0 


001 






UC8G25 


LA 


Rl, 1(Q»01 


CHECK FOR PARITY PROBLEMS- SET MASK 


001CE8 


45 


BO 


F 


908 








BAL 


RlltBITCKO 


99 GO CHECK FOR 7 BITS IN CK READ 


OOICEC 


47 


FO 


F 


D10 








BC 


UNCtUCBG50 


tt NO BITS FOUND- BR NO PARITY 


001CF0 


91 


02 


F 


805 








TM 


CESTAT»X»02 » 


WAS UNIT CK ON FOR WRITE CHAN- END 


001CF4 


47 


80 


F 


D06 








BC 


N0NE*UCB640 


BRANCH IF NO UNIT CK 


001CF8 


OA 


00 












SVC 


X«D0» 


ERROR MESSAGE- PRINT DATA-REG PROS 


00 IGF A 


44 














DC 


X«44« 


tt LOST BITS 


001CFB 


07 














DC 


X«07« 




OOlCFC 


FED7 












DC 


AL2C ERRO15-8ASE+RE0) 


:": - ' ' -v.."-.:-.- 


001CFE 


92 


83 


F 


751 








MVI 


SCHNUM»X t 83» 


SET UP SEARCH FOR PRINT OAT REG FLT 


001002 


47 


FO 


F 


92A 








BC 


UNCEXIT 




001006 


OA 


DO 










UCBG40 


SVC 


X«00 r 


ERROR MESSAGE - PRINT BUFFER PROB* 


001008 


44 














DC 


X , 44* 


tt LOST BITS 


001009 


07 














DC 


X«07« 




001D0A 


FEDE 












DC 


AL2C ERR016-BASE+REG) 


ii 


00100C 


47 


FO 


F 


92A 








BC 


UNCtEXIT 




001010 


OA 


DO 










UCBG50 


SVC 


X«DO* 


ERROR MESSAGE - BUSS IN PROBLEM 


001012 


44 














DC 


X»44» 


ii 


001013 


07 














DC 


X»07« 


t , 


001014 


FEES 












DC 


AL2 ( ERR017-BASE+REG) 


» t 


001016 


47 


FO 


F 


92A 






* 


BC 


UNCEXIT 


00101A 


91 


80 


F 


760 






UCBHOO 


TM 


WRAREA+ltX^O' 


IS 0 BIT BEING WRITTEN 


00101E 


47 


80 


F 


D2A 








BC 


N0NE«UCBH30 


BRANCH IF NOT 0 BIT 


001D22 


95 


CO 


F 


88F 








CLI 


RDAR+I,X»C0» 


WAS 0 + 1 BIT READ BACK 


001D26 


47 


80 


F 


044 






* 


BC 


EQ f UCBK10 


BRANCH IF 0 ♦ 1 BIT, FOLDING EXISTS 


001D2A 


OA 


DO 










UCBH30 


SVC 


X»DO» 


ERROR MESSAGEi-INTERM ITTANT HOT BITS 


00102C 


44 














DC 


X»44» 


1 1 


001020 


07 














DC 


X'07 1 


t 1 


001D2E 


FEEC 












DC 


AL2 ( ERR018-BASE+REG) 


t 1 


001030 


47 


FO 


F 


92A 








BC 


UNCtEXIT 



DATE 
EC 



16JUN65 
124263 
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15DEC65 
125601 
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001D34 


41 


10 


0 


001 






» UCBKOO 


LA 


Rl, 1(0,0) 


CHECK FOR PARITY CHECKS-SET MASK 


001D38 


45 


BO 


F 


9D8 








BAL 


RlltBITCKO 


ft GO CHECK FOR 7 BITS IN CK READ 


001D3C 


47 


FO 


F 


D44 








BC 


UNCUCBK10 


ft NO BITS FOUND-BR NO PARITY ERR 


001D40 


47 


FO 


F 


B78 








BC 


UNCUCBC05 


tt PARITY ERRORS FOUNO 


001D44 


41 


99 


0 


001 






UCBK10 


LA 


R9,1(R9,0> 


UPDATE INDEX 9 


001D48 


41 


00 


F 


E31 








LA 


R0,DATAl+9 


SET UP MAXIMUM COUNT 


001 UhL 


15 


90 












CLR 


R9,R0 


WERE ALL BITS CHECKED 


001D4E 


47 


60 


F 


CAC 








BC 


UNEQt UCBG10 


GO GET NEXT BIT 


001D52 


92 


FF 


F 


76D 






* 

UCBLOO 


MVI 


WRAREA+1 , X *FF * 


LOAD WRITE AREA WITH ALL BITS 


001D56 


D2 


82 


F 


76E 


F 


76D 




MVC 


WRAREA+2 (1311 , WRAREA+1 tt 


001D5C 


41 


00 


F 


DF8 








LA 


aOtDPRCCW 


LOAD ADDRESS OF PRINT WRITE CCW 


tin i r\ *~ t\ 
UOluoO 


.50 


00 


F 


048 








ST 


ROtCAW 


STORE PRINT CCW ADDR IN CAW 


001D64 


92 


00 


F 


122 








MVI 


SIGSWStX*©©^ 


RESET START I/O SWITCHES 


001 068 


45 


BO 


F 


228 






* 


BAL 


RlltSIO 


GO TO START I/O ROUTINE 


001D6C 


45 


BO 


F 


9FA 








BAL 


RlltSAVSTA 


GO SAVE STATUS + SENSE DATA 


001D70 


45 


AO 


F 


A14 








BAL 


RlOt READS 


GO DO CHECK READ + DATA READ 


001D74 


91 


04 


F 


0E1 








TM 


UNITl+ltX»04« 


IS 120 POSITION PRINTER USED 


001D78 


47 


10 


F 


D8A 








BC 


ALL tUCBL40 


BRANCH IF 120 POSITION PRINTER 


OOlDf C 


05 


83 


F 


76D 


c 
r 


OOP 




CLC 


WRAREA+1 ( 132) tRDAR+1 


WAS DATA READ OK -132 POSITIONS 


001D82 


47 


60 


F 


D94 








BC 


UNEQtUCBLSO 


BRANCH IF NOT OK 


001D86 


47 


FO 


F 


09 E 






♦ ■ 


BC 


UNCtUCBL60 




001D8A 


D5 


77 


F 


760 


F 


88F 


UCBL40 


CLC 


WRAREA+1 C 120) tRDAR+1 


WAS DATA READ OK -120 POSITIONS 


001 D90 


47 


80 


F 


D9E 








BC 


EQtUCBL60 


BRANCH IF OK 


0Q1D94 


OA 


DO 










UCBL50 


SVC 


X»DO« 


ERROR MESSAGE -PRINT BUFFER PROBLEM 


001D96 


44 














DC 


X»44« 


tt ABOVE POSITION 1 


00 1097 


07 














DC 


X*07« 


9 t 


001D98 


FEF3 












DC 


AL2 (ERR01 9-BASE+RE&) 


ft 


001D9A 


47 


FO 


F 


92A 






* 


BC 


UNCtEXIT 




•o 

001D9E 


D7 


82 


F 


76E 


F 


76E 


UCBL60 


XC 


WRAREA+2(131) ,WRAREA*2 CLEAR WRITE DATA AREA 


001DA4 


41 


00 


F 


EDO 








LA 


R0,t»RCCW2 


LOAD ADDR OF DIAG WRITE CCW- i BYTE 


00 ID A3 


50 


00 


p. 


048 








ST 


RO,CAW 


STORE CCW ADDRESS IN CAW 


00 ID AC 


92 


00 


F 


122 








MVI 


SIOSWS*X«00» 


RESET START I/O SWITCHES 


001DB0 


45 


BO 


F 


228 






* 


BAL 


RlltSIO 


GO TO START I/O ROUTINE 


001DB4 


45 


BO 


F 


9FA 








BAL 


RlltSAVSTA 


GO SAVE STATUS + SENSE DATA 


001DB8 


45 


AO 


F 


A14 








BAL 


R1Q*READ5 


GO DO CHECK READ + DATA READ 


001DBC 


91 


04 


F 


0E1 








TM 


UNITi+l,X f 04» 


IS 120 POSITION PRINTER USED 


001DC0 


47 


10 


F 


DD2 








BC 


ALL,UCBL70 


BRANCH IF 120 POSITION PRINTER 


001DC4 


D5 


82 


F 


76E 


F 


890 




CLC 


WRAREA+2 ( 131 ) ,RDAR+2 


WAS DATA READ OK -132 POSITION 


001DCA 


47 


60 


F 


DE4 








BC 


UNEQ,UCBL75 


BRANCH NOT OK 


001DCE 


47 


FO 


F 


DDC 






* 


BC 


UNC4JCBL72 




001DD2 


D5 


76 


F 


76E 


F 


890 


UCBL70 


CLC 


WRAREA+2 (119) ,RDAR+2 


WAS DATA READ OK -120 POSITION 


001DD8 


47 


60 


F 


DE4 








BC 


UNEQ,UCBL75 


BRANCH IF NOT OK 


001DDC 


92 


82 


F 


751 






UCBL72 


MVI 


SCHNUM,X«82' 


SET SEARCH NUMBER FOR ROUTINE 2 


001DE0 


47 


FO 


F 


9A4 






• * 


BC 


UNCEXIT2 




001DE4 


OA 


DO 










UCBL75 


SVC 


X«DO» 


ERROR MESSAGE -INSERT BLANKS PROBLEM 


001DE6 


44 














DC 


X*44» 




001DE7 


07 














DC 


X'07 1 


» , 


001DE8 


.FEFA 












DC 


AL2 ( ERR020-BASE+REG) 


1 1 


001DEA 


47 


FO 


F 


92A 








BC 


UNCEXIT 





001DEE 
001DEE 
001DF0 



07 00 
05 00176D 2000 0083 



* CONSTANTS 

* CCW TABLE 
CNOP 0,8 

BCR 0,0 

SHTCCW CCW X«05« ,WRAREA+ltX»20« tl31 



DOUBLE WORD ALIGNMENT 



DIAG WRITE, SHORT COUNTtSLI ON 



DATE 

EC 



16JUN65 
124263 



22JUN65 . 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
125655 
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001DF8 


05 00176D 2000 0098 


DPRCCW 


CCW 


X'05',WRAREA+1,X»20', 


152 DIAG WRITE TO PRINT BUFF, SLI 


ON 


001EOO 


05 00176D 2000 0001 


PRCCW2 


CCW 


X'05'fWRAREA+l,X'2Q't 


1 DIAG WRITE TO PRINT BUFF, SLI 


ON 


001 EOS 


F2F8F2F140E2C3C1D5 


TITLE1 


DC 


C'2821 SCAN/1403 U» 


ROUTINE TITLE 




001E11 


61F1F4F0F340E4 












001E18 


C3E26B40C3D6D5E3D9 




DC 


C'CSt CONTROL PROG* 


tt 




001E21 


D6D340D7D9D6C7 












001E28 


0102040810204080FF 


DATA1 


DC 


X'0102040810204080FF' 


WRITE PRINT BUFFER DATA 




001E31 


C2E8D7C1E2E2C5C460 


BYPASS 


DC 


C'BYPASSED-UCS NOT* 






001E3A 


E4C3E240D5D6E3 












001E41 


40C4C5C6C9D5C5C4 




DC 


C OEFINED • 






001E49 


D5D6E3C560C4D640D5 


WARN 


DC 


C 'NOTE-DO NOT USE • 






001E52 


D6E340E4E2C540 












001E59 


C4C5E5C9C3C540E4D5 




DC 


C 'DEVICE UNDER TES« 






001E62 


C4C5D940E3C5E2 












001 E69 


E340C6D6D940D6E4E3 




DC 


C'T FOR OUTPUT* 






001ET2 


D7E4E3 













001E75 



001E7C 

001E83 
001E8A 

001E91 

001E98 
001E9F 

001 EA6 
001EAD 
001EB4 
001EBB 

001EC2 

001EC9 
001ED0 
001 ED7 

001EDE 
001EE5 
001 EEC 
001EF3 
001EFA 



ERROR MESSAGES 



ERROR CONDITIONS 



C5D9D940F0F0F1 



C5D9D940F0F0F2 

C5D9D94OF0F0F3 
C5D9D940F0F0F4 

C5D9D940F0F0F5 

C5D9D940F0F0F6 
C5D9D940F0F0F7 

C5D9D940F0F0F8 
C5D9D940F0F0F9 
C5D9D940F0F1F0 
C5D90940FOF1F1 

C5D9D940F0F1F2 

C5D9D940F0F1F3 
C5D9D940F0F1F4 
C5D9D940F0F1F5 

C5D9D940F0F1F6 
C5D9D940F0F1F7 
C5D9D940F0F1F8 
C5D9D940F0F1F9 
C5D9D940F0F2F0 



C 'ERR 001 « 



* • 
* 

ERR001 DC 
* 
* 

ERR002 DC 
♦ 

ERR003 DC 
ERR004 DC 
* 

ERR005 DC 

ERR006 DC 
ERR007 DC 
♦ 

ERR008 DC 
ERR009 DC 
ERR010 DC 
ERR011 DC 
* 

ERR012 DC 
♦ 

ERR013 DC 
ERR014 DC 
ERR015 DC 

ERR016 DC 
ERR017 DC 
ERR018 DC 
ERR019 DC 
ERR020 DC 
♦ 
* 



C'ERR 002 • 

C 'ERR 003 • 
C'ERR 004 • 

C'ERR 005 « 

C 'ERR 006 • 
C'ERR 007 • 

C f ERR 008 • 
C'ERR 009' 
C'ERR 010' 
C'ERR Oil' 

C'ERR 012' t 

C'ERR 013' 
C'ERR 014' 
C'ERR 015' . 

C'ERR 016' 
C'ERR 017' 
C'ERR 018' 
C'ERR 019' 
C'ERR 020' 

EQUATES 



SYNC CHECK- PROBABLE ADV BY 2 PROB. 

OR BAR UNITS ENCODE- 
ADV BY 3 PROBLEM* 

CSW COUNT WRONG - PROBABLE BAR ADV 
BY 1 PROBLEM 

♦♦♦RESERVED*** 

PRINT BUFFER DATA REGISTER PROBLEM 
tt OR PARITY CIRCUITS PROBLEM 

FALSE UNIT CK - COULD BE HAMMER CK 
ON SOLID 

PRINT BUFFER PROBLEM 

FALSE PRINT CHECKS - COULD BE 
tt COMPARE CIRCUITS 

FALSE EQUIPMENT CHECK 

♦♦♦RESERVED*** 

INTERMITTANT BUSS IN PROBLEM 
FOLDING PROBLEM OR BUSS IN 1 BIT 

tt PROBLEM 
PROBLEM WITH BUSS IN CIRCUITS 

tt PICKED UP BITS 

FALSE DATA CHECKS 

PROBLEM SETTING PLC BITS FOR BLANKS 
PRINT BUFFER DATA-REGISTER PROBLEM 

t» LOST BITS 
PRINT BUFFER PROBLEM -LOST BITS 
BUSS IN PROBLEM - LOST BITS 
INTERMITTANT HOT BITS 
PRINTER BUFFER PROBLEM ABOVE POS 1 
PRINTER INSERT BLANKS PROBLEM 



000040 


'■ ♦ 
HCSW 


EQU 


64 


HARDWARE CSW LOCATION 


000048 


HCAW 


EQU 


72 


HARDWARE CAW LOCATION 


000078 


HION 


EQU 


120 


HARDWARE I/O NEW PSW LOCATION 


001118 


CSWSAV 


EQU 


SI0VR3 




00157C 


OUTPUT 
♦ 


EQU 


SCPDAT 


OUTPUT AREA EQUALS SCOPE DATA 




♦ 

. ♦ 




GENERAL 


REGISTER EQUATES 


000000 


RO 


EQU 


0 




000001 


Rl 


EQU 


1 




000002 


R2 


EQU 


2 




000003 


R3 


EQU 


3 





DATE 
EC 



16JUN65 
124263 
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124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
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000004 


R4 


EQU 


4 












000005 


R5 


EQU 


5 












000006 


R6 


EQU 


6 












000007 


R7 


EQU 


7 












000008 


R8 


EQU 


8 












000009 


R9 


EQU 


9 












OOOOOA 


RIO 


EQU 


10 












OOOOOB 


Rll 


EQU 


11 












OOOOOC 


R12 


EQU 


12 












OOOOOD 


R13 


EQU 


13 












OOOOOE 


R14 


EQU 


14 












OOOOOF 


R15 
♦ 


EQU 


15 














* 
* 




CONDITION CODE 


EQUATES 










000008 


NONE 


EQU 


8 


ALL OFF 


0 








000005 


ANY 


EQU 


5 


ANY ON 




1 




3 


000001 


ALL 


EQU 


1 


ALL ON 








3 


000004 


SOME 


EQU 


4 


MIXED 




t 






000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 






3 


000008 


EQ 


EQU 


8 


EQUAL 


0 








000006 


UNEQ 


EQU 


6 


NOT EQUAL 




1 


2 




000004 


LO 


EQU 


4 


LOW 




I 






000002 


HI 


EQU 


2 


HIGH 






t 




000008 


' I 


EQU 


8 


ZERO 


0 








000002 


POS 


EQU 


2 


GREATER ZERO 






Z 




000008 


CCO 


EQU 


8 


AVAILABLE 


0 








000004 


CC1 


EQU 


4 


CSW STORED 




I 






000002 


CC2 


EQU 


2 


BUSY 






2 




OOOOOF 


UNC 


EQU 


15 


UNCONDITIONL 


0 


I 


2 


3 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


I 




3 


000007 


HZ 


EQU 


7 


NOT CC 0 




1 


2 


3 


000004 


NEG 


EQU 


4 : 


NOT ZERO -AND- 




I 






OOOOOC 


ZNEG 


EQU 


12 


MIXED OR NONE 


0 


I 






OOOOOB 


CSWNST 


EQU 


' 11 • 


CSW NOT STORED 


0 




2 


3 


OOOOOD 


NHIGH 


EQU 


13 


NOT HIGH 




1 




3 


001000 


BASE 


EQU 


SECNO 












OOFOOO 


REG 


EQU 


X'FGOO' 
















END 















DATE 

EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 

125655 
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AND 
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ROUTINE 


OVERLAY 1 














F80C5 RESIDENT 


AND 


CONTROL 


ROUTINE 


OVERLAY 1 














i 

\ POST ASSEMBLY DATA. 




























19B2, 


19CE, 


1A76, 


1A92, 


1A98, 


1AFA, 


1B26 






I 






























1B4E, 


1B7C, 


1B8A, 


1BA8, 


XBBE, 


1BD0 , 


1BE2 






I- - ■ 






























1C38, 


1C58, 


1C62, 


1C74, 


1C9C, 


1CFC, 


1D0A 






I 






























1D14, 


1D2E, 


1D98, 


1DE8 












REFERENCES 


TO DEFINED 


SYMBOLS* 


















"- ' 4 


1228 


S 10 


1A26, 


1A3C, 


IAEA, 


1B12, 


1838, 


1CBE, 


1068 






























: i 


F 


UNC 


1DB0 
1284, 


12A0, 


12C8, 


12F4, 


1308, 


1342, 


135E 






1 


a 


L 


13B6 
























137C, 


1386, 


13AE, 


13BE, 


13C8, 


1408, 


143C 






1 


8 


CVI 


168A, 


1AF2, 


1846, 


1BF6* 


1C04, 


1C22, 


1C30 












1448, 


1456, 


147C, 


14F2, 


14FC, 


1516, 


1546 












1CD0, 


1CD8, 


1D26, 


1D90 


















1550, 


1562, 


16A0, 


16AA , 


171C , 


1992 , 


19BA 






2 ■ 


19A6 


rr> 


1944, 


194Et 


1974 f 


197E, 


1988, 


19BC 














19C6, 


19D4, 


19EE, 


19F4, 


1A12 , 


1A40, 


1AFC 






1 


£. 


MI 


























1B28, 


1850, 


1B74, 


1B82 , 


1B8C, 


18 AO, 


1BAA 






i 


4 


i n 
LU 


1708 
























1BB6, 


iBCO, 


1BD2, 


1BE4, 


1BFA, 


1C26, 


1C5A 






i 


t 


























1C64, 


1C76, 


1C94, 


1C9E, 


1CEC , 


1D02 , 


1D0C 






.. i 


II 




1274, 


1484, 


1488, 


14A4t 


14B0, 


1506, 


1552 












1D16, 


1D30, 


1D3C, 


1D40, 


1D86 , 


1D9A, 


1DCE 












19DA, 


19DE, 


lAlAf 


lAlEt 


1A30, 


lA34t 


1A9A 












1DE0, 


IDEA 






















1A9A, 


1AA4, 


1AA6, 


1AC2, 


1AC2, 


1AC4, 


1ACC 






3 


1000 


BASE 


129E, 


12C6, 


12F2, 


1338, 


137A, 


1384, 


1406 












lADEt 


1AE2, 


1806, 


lBOAt 


1B2C, 


1B30, 


1C3A 












1446, 


1454, 


14F0, 


14FA, 


1544, 


1680, 


196C 












lC4E f 


1C7A, 


1C8E, 


1CB2* 


1CB6, 


1D48, 


1D4C 












19B2, 


19CE, 


1A76, 


1A92 , 


1A98 , 


1AFA, 


1B26 












1D5C, 


1060, 


1DA4, 


IDAS 


















1B4E, 


1B7C, 


1B8A, 


1BA8, 


XBBE, 


1BD0, 


1BE2 






i 


i 


Rl 


1228t 


1252, 


1256, 


1438 1 


19E2t 


1AC4 V 


1ACE 












1C38, 


1C58, 


1C62, 


1C74, 


1C9C, 


1CFC, 


1D0A 












1B6C 9 


1B98, 


1BAE, 


1C3E# 


1C42, 


1C4A, 


1C4A 












ID 14, 


102E, 


1D98, 


1DE8 


















1C4E, 


1C7E, 


1C82, 


1C8A, 


1C8A, 


1C8E, 


1CE4 






■ 4: 


175C 


BREX 


105D 
























1D34 


















. '4 1 


1758 


CLRC 


123E 


















i 


2 


R2 


19D8, 


19EA, 


1AC8, 


1ACC 












4 


192A 


EXIT 


1AFC, 


1B28, 


1B50, 


ADO*. , 


1 RAT - 


A u A A , 


X DVoU 






i 


3 


R3 


13FE, 


143E, 


144C, 


147C 


















1BD2, 


1BE4, 


1C5A, 




it 1 o , 


i roc ^ 


1UU4 






i 


4 




13A6, 


13AA, 


13D4, 


13E6, 


1506, 


1512, 


1552 












1D0C, 


1D16, 


1D30, 


1D9A, 


IDEA 
















155E 


















4 : • 


19F6 


EXTM 


19E2 


















i 


5 


R5 


1274, 


1280, 


19D8, 


1AB2, 


lABEt 


1C3A, 


1C7A 






1 


48 


HCAW 


1248, 


149A, 


16FA 














i 


6 


R6 




















1 


40 


HCSW 


1300, 


131A, 


1346, 








A3CU 






i 


7 


R7 


1362 t 


141C, 


1550 




















14DE, 


151A 
















i 


8 


R8 


16A0« 


1932, 


19A0, 


1ADA 












1 


78 
8 


HION 




















9 


R9 


1228, 


1438, 


1678, 


1696, 


16EC, 


16F0, 


1CA8 






1 


NONE 


1270, 


12FC, 


1300, 


1418 , 


14BC , 


1534 , 


192E 








1 




1D44, 


1D44, 


1D4C 




















193A, 


199C, 


1A80, 


1 AAA . 
1AOO , 


1 AAA m 


1ABA, 


1 ATS A 

A AUO 








ALL 


125E, 


12AC, 


12D0, 


1208, 


1330, 


135A, 


1372 












1B1E, 


1B68, 


1B94, 


1 jar A* 




1 Cist . 


i r aa 












138E, 


139C, 


13FA, 


1430, 


14AC, 


14C4, 


14D0 












1CF4, 


1D1E 






















1692, 


16A6, 


1710, 


1718, 


1964, 


19E6, 


1A6E 






1 


100D 


NUTE 






















I860, 


1BDA, 


1BEC, 


1C18, 


1D78, 


10CO 










168E 


RDAR 


1982, 


198C, 


1A2A, 


1 A "5 A - 


A A^HJ , 


A A->U, 


1 AC A 






i 


5 


ANY 


1266* 


1304, 


133E, 


134A, 


1410, 


1424 , 


1524 












1BFE, 


1C08, 


1C1C, 


i r ?A - 


1 f J A m 


1 tip ^ 


i tta 






4 ' 


l n&A 


f Ay 


122C, 


1242, 


1248, 


1292, 


1284, 


12E0 9 


1316 












1CDC, 


1D22, 


1D7C, 


1D8A, 


1DC4, 


1DD2 














1464 f 


1488, 


148C, 


1496. 


149A, 


154At 


169A 






l 


1808 


SNSE 


1A0C, 


1B5C, 


1BC4, 


1806, 


1C68 
















16F0, 


16F4, 


16FA, 


lAlEt 


1A34, 


1AE2» 


180 A 






4 


1004 


SNSW 


126C, 


12A8, 


12D4, 


12F8, 


138 A, 


14A8, 


i a a c 












1830, 


1CB6, 


1D60, 


IDAS 


















16A2, 


170C, 


1714, 


192A , 


1936 , 




1A8A 






1 


8 


CCO 


127Ct 


155A 






















1AD2 


















1 


4 


CC1 


138 At 


150E 
















1 


4 


SOME 


12A4 










" 








1 
























1 


10E1 


U10P 




















8 


1040 


CSW 




















1 


6 


UNEQ 


1352, 


IC50, 


1C90, 


1CE0, 


104E, 


1082, 


1DCA 






4 


198C 


601 


1992 
























1DD8 


















2 


19CA 


G02 


1964 


















16 


1E49 


WARN 


1A98 


















2 


100A 


ICM 






* 














1 


C 


ZNEG 


152C 


















1 


4 


NEC 




















8 


1A48 


ADCCW 


1ADE 


















1 


2 


POS 




















250 


157C 


CMPAR 


1CQ3* 


1C0E, 


1C0E, 


k\f i-V , 


1 1? A 










1 ; 


A 


RIO 


16AE, 


1A40, 


1858, 


ICC6, 


1D70, 


1DB8 








4 


11A4 


CSWAG 


13EA, 


13F0, 


13F6, 




1 Al A. J 




A AUO 






■ 1 ' 


8 


Rll 


143C, 


16DC, 


1944, 


194E, 


1974, 


197E, 


1988 






9 


1E28 


DATA1 


1CA8, 


1D48 




















19BA, 


19BC, 


19EE, 


19FO, 


19F0, 


19F4t 


1A12 






4 


1936 


EXIT1 


19 2E 
























1A26, 


1A3C, 


IAEA, 


1B12, 


1816, 


1B38, 


1B54 






2 


19A4 


EXIT2 


193A, 


199C, 


1DE0 




















1B70, 


1B9C, 


1BB2, 


1CBE, 


1CC2, 


1CE8, 


1D38 






1 


100E 


FLAG1 


























1D68, 


1D6C, 


1DB0, 


1DB4 












1 


100F 


FLAG2 




















.1 


C 


R12 


123E, 


124E, 


1278, 


13B2, 


13D8, 


14A0, 


150A 






5 


1010 


INPSW 


























1556, 


1678, 


1682, 


1686, 


1696, 


16C2, 


1700 






1 


D 


NHIGH 


16D2 
























1704, 


1A64, 


1A64, 


1A66 












6 


1A14 


READS 


1B58, 


1CC6, 


1D70, 


1DB8 












1 


D 


R13 


1248* 


1300, 


131A, 


1346, 


134E, 


1392, 


13C2 






1 


1A60 


RTN01 


1015 
























13E0, 


149A, 


14DE, 


151A, 


16FA, 


1A7A, 


1A7A 






3 


1000 


SECNO 


1292, 


1294, 


12B4, 


12B6 , 


12E0 , 


12E2 , 


1316 












1A84 
























1318, 


1324, 


1326, 


136A, 


136C, 


1464, 


1466 






1 


E 


R14 


1274, 


1506, 


1552t 


1AC4 


















146C, 


146E, 


1474, 


1476 , 


1496, 


1498, 


14 E8 






1 


F 


R15 


1A84, 


1AA4 






















14EA, 


153C, 


153E, 


1762, 


195C, 


195E, 


19AA 






1 


F00O 


REG 


129E, 


12C6, 


12F2, 


1338, 


137A, 


1384, 


1406 












19AC, 


1AAE, 


1AB0, 


Xrui 


















1446, 


1454, 


14F0, 


14FA, 


1544, 


1680, 


196C 






' 1 ' 1 ' 


1120 


SENSE 


1238, 


1238, 


136A, 


136E, 


1420, 


142C, 


1474 
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ID 
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ID 
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1568, 


1A0C 


3 


1753 


UAPRT 


1288* 


12B8, 


250 


157C 


UCSAR 






1 


10E0 


UNIT1 


1A6A» 


1AB6, 


1 


1807 


AGSTAT 


1A06 




2 


19D8 


BITCKO 


1B70, 


1B9C, 


4 


19DA 


BITCK1 


19EA 




4 : 


19F0 


BITCK2 


19E6 




16 


1E31 


BYPASS 


1A76 




1 


1121 


CAWKEY 


1242, 


148C, 


1 


1805 


CESTAT 


1952, 


19FA, 


1 


1927 


CKDATA 


190E, 


19F6 


1 


1809 


CKRDAR 


196E, 
1C7E 


1978, 


8 


1A58 


CRDCCM 


1A1A 




1 


B 


CSWNST 


13DC 




4 


1118 


CSWSAV 


19FAf 


1AEE, 


1 


1806 


DESTAT 


1A00, 


1B90 


8 


1DF8 


DPRCCW 


1B2C, 


1D5C 


7 


1E75 


ERR001 


1B26 




7 


1E7C 


ERR002 


1AFA, 


1B4E 


7 


1E83 


ERR003 






7 


1E8A 


ERR004 


1B7C 




7 


1E91 


ERR005 


1B8A, 


1BE2 


7 


1E98 


ERR006 


18A8 




7 


1E9F 


ERR007 


18BE 




7 


1EA6 


ERR008 


1BD0 




7 


1EAD 


ERR 009 






7 


1EB4 


ERR010 


1C38 




7 


1EBB 


ERROll 


1C58 




7 


1EC2 


ERR012 


1C62 




7 


1EC9 


ERR013 


1C74 




7 


1ED0 


ERR014 


1C9C 




7 


1ED7 


ERR015 


1CFC 




7 


1EDE 


ERR016 


1D0A 




7 


1EE5 


ERR017 


1D14 




7 


1EEC 


ERR018 


1D2E 




7 


1EF3 


ERR019 


1D98 




7 


IE FA 


ERR020 


1DE8 




2 


1996 


EXIT1A 


19C6, 


19D4 


3 


105D 


EXNADR 






5 
8 


1058 
1018 


EXNPSW 
EXOPSW 






1 


1928 


EXPECT 






2 


1A64 


INITOO 






2 


1A7A 


INIT05 


1A6E 




2 


1A94 


INITIO 


1A86 




2 


1AAA 


INIT20 


1AA0 




3 


107D 


IONADR 






5 
8 


1078 
1038 


IONPSW 
IOOPSW 






8 


1070 


MCNPSW 






8 


1030 


MCOPSW 






1 


9 


NMIXED 






1 


D 


NOTBSY 






250 


157C 


OUTPUT 


193E, 
1978, 
19CE 


1948, 
1982, 


8 

8 


1068 
1028 


PGNPSW 
PGOPSW 






8 


1E00 


PRCCW2 


1CB2, 


1DA4 


1 


1929 


PROGSW 


1960, 


19D0 


8 


1A50 


PRRCCW 


1A30 




6 


1A2A 


READS2 






4 


1080 


REGDMP 






6 


19FA 


SAVSTA 


1B16, 


1B54, 


1 


1751 


SCHNUM 


175C, 


1B7E, 


8 


1570 


SCPCCW 


16B2, 


16B8, 



1BE8, 
1BB2, 



16F4, 
1B3C, 



130C, 145A, 147E, 1AB0 
1C14, 1D74, 1DBC 
1CE8, 1D38 



1AA6 
1B64, 



19DA, 1A14, 



IB3C, 1B42 



1CF0 
lAl4f 



1A38, 1C7A 



1952, 
198C, 



195C, 
19AA, 



195E, 196C, 196E 
19AC, 1962, 19B8 



1CC2, 
1CFE, 
16BC, 



1D6C, 1DB4 
1DDC 

16C6, 16D6, 16EC 
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250 


157C 


SCPDAT 


1570, 


4 


1678 


SCPROO 


1932, 


2 


167C 


SCPR10 


1718 


4 


1686 


SCPR20 


16A6 


4 


1696 




16AA, 


4 


16A2 


SCPR40 


168A 


4 


16AE 


SCPR50 


1692 


4 


16DC 


SCPR51 


16D2 


4 


16EC 


SCPR70 






16FA 


SCPR80 


1710 


4 


1704 


crpo on 


1708 


16 


1728 


jor r\ r\ c 


1680 


4 


1720 


<if PRK3 


1682, 


4 ■ 


1578 


SCPRK4 


16AE, 








16E0 


•' 4 


k 1 C*r 


»>V»r l\-f\ 3 




2 


174F 


O v»r I> «\ M 


16CCY 


o 


1DF0 




IB 06 


6 






127C, 


4 


1274 


^TflAOl 


1280, 








138E, 


o 


1 7ftft 




1270 






<c innnn 

O 1UDUU 


1266 


4 


12CC 


S IOCOO 


12A4 


4 


12F8 


c Tnnon 

O lUUvv 


12D0 


* £ *, 




S I0D02 


134A, 


4 " 


133A 




137C 


*r 






12FC 


4 p 


1362 




1330 


*> 
& 


1380 


S I0E0 1 


1372 




JL*r 1 C 


c Tncnn 

O iUrUU 


1362, 


6 


149A 


S I0F01 


155A, 


£. 


14F6 


S I0F02 


14C4, 


o 


1500 


S I0F03 


14BC 


A 

*r 




J* iUrU'f 


1512 


D 


Lz> iA 


51Uru3 


1 *SfiP - 


c. 


1 Hit 


O lUrUO 


1524, 


6 


1 54A 


c tncn7 

5 lurU 1 


X Z>3*r 


** 




0 luruo 


14AC ,' 


: A •, 




c Tn t fin 


13BE, 


4 


L doc. 


O 1U iUl 


A 3A« 


t. 
0 




O IU 1 Ut 


i O DC , 


4 


13CC 


C 1(1 T A> 
0 lu i KJO 




6 


13EA 


S 10 1 04 


J. jUU 


4 






1 2C* 
15rA 


4 


1438 


S 10 1 06 




4 


143E 


S 10 1 07 


1424 


4 


144C 


SI0I08 


1410 


6 


145A 


SI0I09 


13FE, 


4 


138A 


SiOINT 


107D 


16 


1123 


SI0MS1 


1288, 








12C6, 


16 


1156 


SI0MS2 


130C, 








1384, 


16 


11AC 


SI0MS3 


1406, 








1478 


16 


11EA 


SI0MS4 


147E, 








14EA, 


1 


1122 


SIOSWS 


125A, 








1A38, 








1DAC 


4 


10E4 


SI0VR1 


1228, 


4 


1114 


SI0VR2 


122C, 


4 


1118 


SI0VR3 


1232, 








13EA, 


4 


1108 


SI0VR4 


1256, 


1 


1155 


SI0VR6 




4 


1110 


SI0VR7 


14B0, 



16E0, 
19A0, 



171C 



16E6, 16E6, 
1ADA 



192A, 192A, 1F01 



1352 



141C 
1562 
14D0 



1516 

152C 

14F2, 
13C8 

13BA 
13B6, 



1686 

16B2, 16BC, 16C2, 16C6, 16CC, 16DC 



16D6 

1284V 
12A0, 
1408, 



12AC, 
12D8, 
1448, 



12C8, 
12F4# 
1456 



1308, 1342 
1304, 133E, 



1386 



14FC, 1546, 1556 



13E6 



135A, 139C, 1418, 1430 



143E, 


144C 










1294, 


1296, 


129E, 


12B6, 


1288, 


12BE 


12E2, 


12E4, 


12EA, 


12F2, 


19C4 




1318, 


1326, 


1328, 


1338, 


136C, 


137A 


140 8 












1446, 


1454, 


145A, 


1466, 


146E, 


1476 


1498, 


14B4, 


14C0, 


14C8, 


14D4, 


14D8 


14F0, 


14FA, 


153E, 


1544 






1356, 


1398, 


13CC, 


1428, 


1434, 


1A22 


1AE6, 


1B0E, 


1B1A, 


1B34, 


1CBA, 


1D64 


1438, 


1678, 


1696 








154A, 


169A 










1232, 


131A, 


1324, 


132C, 


133A, 


1392 


1F01 












1262, 


12CC 










14B8, 


14CC 
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22JUN65 

124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15NQV66 
125655 . 



ID F80C-5 
PAGE 11A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER 
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 



P/N 840223 
PAGE 12 



SET 
1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 



P/N 840223 i 
PAGE 12A } 



8 


1220 


SI0VR8 


14DE? 


14E8, 








1530, 


153C 


4 


HOC 


SI0VR9 


13A6 9 


1304, 


8 


1568 


SNSCCW 


1484 




2 


119F 


STATSV 


13A0, 


13A0, 


8 


1060 


SVNPSW 






8 


1020 


SVOPSW * 






16 


1E08 


TITLE1 


1A92 




2 


10E2 


U1ADDR 


1A66, 


1AAE 


4 


1ADE 


UCBAOO 


1AD6 




6 


1B00 


UCBA05 


1AF2 




4 


1B0E 


UCBA10 






2 


1822 


UCBA15 






4 : 


1B2C 


UCBA17 


1B1E 




2 


1B4A 


UCBA20 






4 


1B54 


UCBBOO 


1B46 




4 


1B5C 


UCBCOO 






2 


1B78 


UCBC05 


1D40 




2 


1B86 


UCBC50 


1B74 




4 


1B90 


UCBDOO 


1B68 




4 


1BAE 


UCBD20 


1BA0 




2 


1BBA 


UCB025 






4 


1BC4 


UCB030 


1BB6 




2 


1BCC 


UCB032 






4 


1BD6 


UCBD40 


1BCS 




2 


1BDE 


UCBD50 






4 


1BE8 


UCBEOO 


1B60, 


1B94, 


6 


1BFE 


UCBE10 


1BEC 




6 


1C08 


UCBE20 


1BFA 




6 


1C2A 


UCBE25 


1C18 




2 


1C34 


UCBE30 


1C26 




4 . 


1C3A 


UCBE50 


1C22, 


IC30 


4 


1C42 


UCBE52 


1C50 




2 


1C5E 


UCBE60 


1C46 




4 


1C68 


UCBFOO 


1BF6, 


1C04 


2 


1C70 


UC8F05 






4 


1C7A 


UCBF10 


1C6C 




4 : 


1C82 


UCBF15 


1C90 




2 


1C98 


UCBF20 


1C86 




6 


1CA2 


UCBGOO 


1C94 




6 


1CAC 


UCBG10 


1D4E 




4 


1CE4 


UCBG25 


1CD8 




2 


1D06 


UCBG40 


1CF4 




2 


1D10 


UCBG50 


1CEC 




.4 . 


1D1A 


UCBHOO 


1CE0 




2 


1D2A 


UCBH30 


1D1E 




4 


1D34 


UCBKOO 


1CD0 




4 


1D44 


UCBK10 


1D26, 


1D3C 


4 


1D52 


UCBLOO 






6 


1D8A 


UCBL40 


1D78 




2 


1D94 


UCBL50 


1D82 




6 


1D9E 


UCBL60 


1D86, 


1D90 


6 


1DD2 


UCBL70 


1DC0 




4 


1DDC 


UCBL72 


10CE 




2 


1DE4 


UCBL75 


IDCAf 


1DD8 


1 


176C 


WRAREA 


193E, 


1948, 








1CA2, 


1CAC, 








1056, 


1D7C, 








1DF0, 


1DF8, 


i 


1000 


XF80C5 







1500, 1500, 151A, 1520, 1528 



1ACE 



1A00 



1BDA 



1B00, 
1CCA, 
1D8A, 
1E00 



1B00, 
1CD4, 
1D9E, 



1BF0, 
1D1A, 
109E, 



1BFE, 
1D52, 
1DC4, 



1CA2 
1056 
1DD2 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 

EC 



16JUN65 

124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 

125601 



15MAR66 

125632 



15N0V66 

125655 



: ID F80C-5 
PAGE 12 



80C5 TITLE F80C5 CONTROL ROUTINE OVERLAY 2 
XF80C5 START 4096 * 
001000 USING *,15 

* RESIDENT LABELS ADDRESSED BY OVERLAYS 



001000 


SECNO 


EQU 


* 


001004 


SNSW 


EQU 


SECNO+4 


001040 


CSW 


EQU 


SECNO+64 


001048 


CAW 


EQU 


SECNO+72 


0010E0 


UN1T1 


EQU 


SECNO+224 


0010E2 


U1ADDR 


EQU 


SECNO+226 


001118 


SI0VR3 


EQU 


SECNG+280 


001108 


SI0VR4 


EQU 


SECNO+264 


00 HOC 


SI0VR9 


EQU 


SECNO+268 


001122 


SIOSWS 


EQU 


SECNO+290 


00119F 


STATSV 


EQU 


SECNO+415 


0011A4 


CSWAG 


EQU 


SECNO+420 


001121 


CAWKEY 


EQU 


SECNO+289 


001120 


SENSE 


EQU 


SECNO+288 


001228 


SIO 


EQU 


SECNO+552 


00157C 


SCPDAT 


EQU 


SECNO+1404 


001678 


SCPROO 


EQU 


SECNO+1656 


001751 


SCHNUM 


EQU 


SECNO+1873 


001753 


UAPRT 

* 


EQU 


SECNO+1875 



* ROUTINE OVERLAY 1 LABELS ADDRESSED BY ROUTINE OVERLAY 2 

********************************************^ 





Q0176C 


WRAREA 


EQU 


SECNO+1900 


WRITE AREA 153 POSITIONS 




001805 


CESTAT 


EQU 


WRAREA+153 


CHAN END STATUS - 1 POSITION 




001806 


DESTAT 


EQU 


WRAREA+154 


DEVICE END STATUS - 1 POSITION 




001807 


AGSTAT 


EQU 


WRAREA+155 


COMBINED CHAN 4 DEV END STATUS-l POS 




001808 


SNSE 


EQU 


WRAREA-*- 156 


SENSE DATA - 1 POSITION 




001809 


CKRDAR 


EQU 


WRAREA+157 


CHECK READ AREA - 133 POSITIONS 




00188E 


ROAR 


EQU 


WRAREA+290 


DATA READ AREA - 153 POSITIONS 




001927 


CKDATA 


EQU 


WRAREA+443 


TEMPORARY CK READ DATA STORAGE- 1 POS 




001928 


EXPECT 


EQU 


WRAREA+444 


AREA TO TEST FOR EXPECTED BIT- 1 POS 




001929 


PROGSW 


EQU 


WRAREA+445 


PROGRAM SWITCHES 






'■. * 






,, BIT 0 - 1ST PRINT PASS 












•• BIT 1 - RUN ROUTINE SWITCH 






* 






,, BIT 7 -PARITY AT WRITE CHAN-END 




00157C 


UCSAR 


EQU 


SCPDAT 


UCS BUFFER LOAD AREA - 241 POSITIONS 




00157C 


CMPAR 


EQU 


SCPDAT 


COMPARE DATA AREA - 133 POSITIONS 




00192A 


EXIT 


EQU 


WRAREA+446 






0019A4 


EXIT2 


EQU 


EXIT+122 


SVC D6 EXIT FROM ROUTINE 




001908 


BITCKO 


EQU 


EXIT2+52 


CHECK BIT ROUTINE 




0019FA 


SAVSTA 


EQU 


BITCKO+34 


SAVE STATUS •► SENSE DATA 




001A14 


• READS 


EQU 


SAVSTA+26 


DO CHECK READ ♦ DATA READ 




001A2A 


READS2 
* 


EQU 


READS+22 


DO DATA READ 




001015 




ORG 


SECNO+21 


INITIALIZE OVERLAY 


001015 


001A8C 




DC 


AL3 (RTN02) 






001A8C 


* 


ORG 


SECNO+2700 


START OF CNTRL PROG RTNE OVERLAY 2 






* 




ROUTINE PREFIX 












ROUTINE OVERLAY 2 


. ■ ' ■ '. ' ■ ' , j 


001A8C 






CNOP 


0,4 


FULL WORD ALIGNMENT 1 


001A8C 


02 


RTN02 


DC 


XL1 , 02» 


ROUTINE NUMBER f 


001A8D 


.00 




DC 


XL1»00« 


FLAGS 1 


001A8E 


FFFE 


* 


OC 


XL2 'FFFE • 


LAST ROUTINE | 










IF HERE, PRINT BUFFER 


♦ ASSOCIATED CIRCUITRY O.K* 1 

i 


DATE 


16JUN65 22JUN65 15JUL65 15DEC65 


15MAR66 15N0V66 


' f 
ID F80C-5 | 


EC 


124263 124249 124265 125601 


125632 125655 


PA6E 12A [ 



1/ 



o o o o o o o o ooooooooooooooooooooooo 



o o 



occccccccccoccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM PAGE 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 



t START CHECKOUT OF UCB CIRCUITRY OF PRINTER I CO 

* 



f\r\ % inn 


Q1 


40 


F 


929 


ENTRY- 


IV. 


PR0G-SWtX , 40 i 


IS RUN ROUTINE SWITCH ON 


UU i AM 1 U 
Aft 1 *QA 


i 
"» f 


80 


F 


A9C 




BC 


'NONE « ENTRY! 


BRANCH IF OFF 


UU i « " ** 
A A 1 too 






F 


751 




MY I 


SCHNUH,X 9 82' 


RESET SEARCH NUMBER TO THIS ROUTINE 


AA t *or 




o £ 


F 


751 


ENTRY! 


ClI 


SCHNUM,X i 82 t 


IS SEARCH NUH8ER FOR THIS ROUTINE 


UU A «7w 

00 1 A AO 


4T 


60 


F 


9A4 




BC 


UNEQtEXl T2 « 


SO SEARCH FOR FLT OVERLAY 


001AA4 


96 


40 


F 


929 




01 


PRGGSW*X'4G» 


TURN RUN ROUTINE SWITCH ON 


AAl A AR 


4 1 


50 


0 


084 




LA 


R3, 13210*05 


SET REG 5 FOR 132 "POSITION PRINTER 


UU 1 A « O 

rail A at 


91 


04 


F 


0E1 




TH 


UNIT1+1»X»04" 


IS 120 POSITION PRINTER USED 


WW A #* V 

nn i a ro 


4? 


80 


f 


ABB 




BC 


N0NEt*+8 


BRANCH IF NOT 120 POSITION PRINTER 


WW & M DU 

fWI I AR4 

wv 4 « D" 


41 


50 


0 


078 




LA 


R5»120C0,0S 


SET GEN REG 5 FOR 120 POSITION PRINT 


001 A 68 


07 


81 


F 


57C F 57C 


UCBMOO 


XC 


UCSARU309 »UCSAR 


RESET UCB LOAD AREA TO NULL 


001ABE 


07 


6E 


F 


5FE F 5FE 




xc 


UCSAR+130U1U ,UCSAR+130 *, 


flft 1 Af 4 


02 


83 


F 


760 F 570 




MVC 


WRAREA+I i 132 ) ,UCSAR*1 


USED FOR LOGOUT Or U$i#* 


WW «. r 

00 1 AC A 


96 


20 


F 


929 




01 


PRQGSW»X 9 20* 


SET SW TO IGNORE LOGOUT OF READ DATA 


UU A « V>" 
AA 1 A f t 


41 


00 


F 


E30 




LA 


RG»LDUCS1 


LOAD ADDR OF UCB LOAD CCfeHNQ FOLDING 


WW A W V» K. 

Of) 1 HO? 


50 


00 


F 


048 




ST 


R.0*CAy 

T% V» y %f r% W9 


STORE CCW ADDRESS IN CAW 


WW A * 3 *W«- 










* 






THIS IS A PRELOAD UCS COMMAND? 












* 






^uiiif&tcn tfl ft urc I nip rnwMAwn 
toHAIricD I U A UL5 !LU**y lunnonu 


001 AD6 


92 


04 


F 


122 




MY I 


SI0SWS,X«04* 


RESET S1Q SWITCHES- WAIT FOR SYNC CK 


001 ADA 


45 


B0 


F 


22S 




Oil 

BAL 


RlitSlO 


GO TO START I/O ROUTINE 


00 1 ADE 

Ww »«Ult 


45 


B0 


F 


9FA 




BAL 


RHtSAVSTA 


GO SAVE STATUS ♦ SENSE DATA 


001AE2 


95 


14 


F 


11F 


* 


ClI 


f SySAV*7«X t l4 t 


IS CSW RESIDUAL COUNT OK 


GOl AF6 


47 


80 


F 


AF4 




ic 


C $ ww w t ■» w 


BRANCH IF OK 


mi AEA 


OA 


00 








sve 


X »D0 • 


PRINT MESSAGE WRONG. RESIDUAL - COUNT 


ww 

AA t Iff 


44 










DC 




ft.. 


■ wv » C w 

001 AFD 


A7 










m : 


X«0T.® 




UP %# »wtu 

001 A EE 










.oc ■ 


AL2C£RR036-*BASE*REGi 


tt 


wy a, « » w 


47 


m 


F 


92A 




BC 


UNCt€XlT 




00IAF4. 


. 91 


01 


F 


122 


* 

UCBM05 


TH ■ 


SIOSMStX 9 ©! 8 ' 


IS INTERVENTION -REQ- SWITCH SET 


. 001AF8 


■ 47 


80' 


F 


806 ' 




or 

SSL 


NONE $ UCBH20 


BRANCH IF OFF 


a a i a f r 


OA 


DO 






UCBM10 


SVC 


X»DO f 


PRINT .MESSAGE -..SYNC CHECK 


WW £H! V 

001 AFE 


44 










•DC 


ICH4 8 - 


*t 


AA! AFF 


fit 










DC 


X 9 07 9 


9 t 


WW A f » 

AA t DA A 


sen? 








DC 


AL2«ERR037-BASE*REGI 


t* 


UU & OUU 

aa is an? 

UU 1 DWt 


47 


F0 


F 


92A 




BC 


UNCtEXlT 




AA i &ft& 


91 


02 


F 


807 


UCBM20 


TH 


AGSTAT»X'02* 


WAS UNIT CK. STATUS PRESENT •' 


ww 4, Mw w 

HO 1 RG A 

ww & UU « 


47 


80 


F 


B46 




BC 


NONE » UCBNOO 


BRANCH If NO .UNIT CK 


AA] A0F 


91 


04 


F 


808 


* 


TH 


SNSE t X 9 04 • 


CHECK FOR UCB PARITY 


Vw *. WW Sm 

001B12 


47 


80 


F 


B24 




BC 


NONE »UCBH50 


BRANCH IF NO UCB PARITY 


001 Bl 6 


OA 


DO 






UCBM30 


SVC 


X*D0 8 


ERROR MESSAGE- UCB DATA-REG PROBLEM 


001B18 


44 










DC 


X«44* 


,, OR UCB PARITY CIRCUITS PROBLEM 


001B19 


(TI7 










DC 


X«07 f 




001B1A 










DC 


AL2CERR022-BASE4REG) 




001B1C 


.92 


84 


F 


751 




MVI 


SCHNUH»X*84« 


SET UP SEARCH FOR UCB DATA REG FLT 


001B20 


■ 47 


FO 


F 


92A 




BC 


UNC.EXIT 




001824 


•91 


10 


. F 


808 


* • 

UC8H50 


TH 


SNSErXUO*' 


MAS -EQUIP OK ON 


001828 


47 


10 


F 


DC8 




BC 


ALL t UCBR80 


GO PRINT -FALSE EQUIP CK 


0OIB2C 


,..91 


08 


'■F 


808 




m : 


SKSEtX 9 bB v - 


WAS DATA CK ON 


©01 830 


=47 


10 


F 


BFC 




BC 


ALL*UCBN35 


GO PRINT -"FALSE DATA CK 




91 


40 


F 


808 




TH 


SNSE*X 8 40* 


MAS UNUSUAL CQMH.ANO. SEQ. ON 


001834 
001838 


,47 


80 


F 


06 A 




BC 


NONEtUCBWS 


GO PRINT FALSE UMT ■ CK 


001B3C 


OA 


DO 






UCBM52 


SVC 


X t 00 t 


ERROR HE SS AG f A L S £ UNUSUAL CpMANO 


001B3E 


44 










0€ 


X"44* 


t • 


001B3F 


A"! 










DC 


' X*07» 


. t f 


001840 










DC 


AL2CERR021-iASE*REGI 


tt '. 


001B42 


47 


F0 


■f 


«#'2A ■ ■ ■ ' ■ 




BC 


UNCtEXlT ■ 




001 846 


41 


90 


F 


£60 


..UCBN00 


LA 


R9.»DA,T^2 


1NIT INDEX 9. ; T0 START Of UCS.-C^A 



DATE ■ ■ I6JUN65 " 22JUN6 r - 15JUL65 15DEC65 15KAR66. I5NCV.66 
' ^ 124263 124249 1242&5 125601. • 125632 , ' 125655 



ID fiOC-5 
PAGE ■ 13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840223 
PAGE ■ 13A 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 



001B4A 


D2 


00 


F 


57D 9 000 


UCB hi 10 


MVC 


LCSAR+im ,0CR9) 


SET DATA BYTE IN UCS WRITE AREA 


001B50 


02 


EE 


F 


57E F 57D 




MVC 


UCSAR+2C239) *UCSAR*1 


FILL UCS AREA WITH DATA BYTES 


001B56 


02 


83 


F 


76D F 570 




MVC 


kRAREA-fri { 132? *UCSARi-i 


USED FOR LOG CUT OF DATA 


001B5C 


96 


20 


F 


929 




or 


PROGSW,X»20 S 


SET SW TO IGNORE LOGOUT OF READ DATA 


00 I860 


41 


00 


F 


E30 




LA 


RO ff L0UCS1 


. LOAD ADDRESS OF UCB LOAD CCH-NO f OLO 


001864 


50 


00 


F 


048 




ST 


ROfCAk 


STORE CCW ADDR IN CAW 


















THIS IS A PRELOAD UCS COMMAND, 












* 






CHAINED TO A UCS LOAD COMMAND 


001B68 


92 


04 


F 


122 




MVI 


SIOSWSfX*04» 


RESET SIO SWITCHES-WAIT FOR SYNC OK 


001B6C 


45 


BO 


F 


228 




BAL 


Rll ,SI0 


GO TO START I/O ROUTINE 


001870 


45 


BO 


F 


9FA 


* 


SAL 


R11,SAVSTA 


GO SAVE STATUS ♦ SENSE DATA 


001874 


91 


01 


F 


122 




TM 


SlOS^SfX^l* 


IS INTERVENTION REQ SWITCH SET 


001873 


47 


10 


F 


AFC 




BC 


ALL f UCBM10 


GO TO SYNC CK PRINTOUT 


001B7C 


91 


02 


F 


807 




TH 


AGSTATt X*02 8 


CHECK FOR UNIT CK 


001B80 


47 


80 


F 


BBC 




BC 


N0NE 9 UC8N20 


BRANCH IF NO UNIT CK 


001884 


91 


04 


f 


808 




TM 


SNSE»X«04 • 


WAS UCS PARITY BIT ON 


001888 


47 


10 


f 


816 


* 


BC 


ALL f UCBM30 


GO TO ERROR PRINT -UCB OATA-REG PROB 


©0188C 


94 


OF 


F 


929 


UCBN20 


NI 


PR0GSWtX # DF s 


RESET SKIP READS DATA LOGOUT SW» 


001890 


02 


00 


F 


760 9 000 




MVC 


WRAREA+1 C 1 1 »0IR9) 


SET WRITE DATA IN PRINT AREA 


001896 


02 


82 


F 


76E F 760 




MVC 


WRAREA«2(131) tWRAREA-fl tt 


001 B9C 


41 


00 


F 


E20 




LA 


ROfDPRCCW 


LOAD ADDR OF PRINT WRITE CCW 


00 18 AO 


50' 


00 


F 


048 




ST 


ROtCAW 


STORE PRINT CCW ADDR IN CAW 


•00i.8A4 


92 


00 


F 


122 




MVI 


S10SWS? X'Ou 9 


ace >r*f e f n C L| t t r MP? 


00 IS AS- 


45, 


BO 




228 




BAL 


RlifSIO ■ 


"GOvTC START ' I/O ROUTINE 


001 SAC 


45 


BO 


f 


9FA . 




BUL 


RIltSAVSTA- 


GO SAVE STATUS * SENSE DATA 


001880 


■45 


AO 


F 


A14 - 




SAL 


RiOtREAOS 


GO DO CHECK READ * DATA READ . 


,001884 


n 


02- 


F 


807 




TM 


A6STAT,X»02 f ' 


CHECK FOR UNIT-CK ON 01 AG WRITE • 


: 001188 . 


47 


SO 


F 


C1C 




BC 


'NONE«UCBFOO 


BRANCH IF NO UMlT-CK 


001 BSC 


91 


04 


f 


808 




TM 


SNSE f X«04^ • 


CHECK FOR UCB PARITY CHECK 


001 SCO 


4? 


80 


F 


.BCE 




BC 


- NOME * UCBNOO 


BRANCH IF NOT UCB PARITY CK 


001804 


OA 


00 






.UCBN25 


SVC 


X'DO 9 ' 


ERROR MESSAGE- UCS 8UFFER PROBLEM 


001BC6 • 


■ 44' 










DC 


X»44» 


*t. 


0018C7 


07 










DC 


X*0? 9 


f f 


0018C8 


. F£?5 








DC 


AL2I ERR023- BASE* REG) 




0018CA 


- 47' 


FO 


F 


92 A ; 




BC 


UNCtEXlT ' 




001BCE 


91 


08 


F 


808 


UCBN30 


TM 


SNSE»X 9 08« 


CHECK FQR'DATA-CK 


001802 


47 


10 


F 


BFC 




BC 


ALL # UCBN35 


BRANCH IF DATA CK -FALSE- 


00 1806 


91 


02 


F 


808 




TM 


SNSE, X s 02 f 


CHECK FOR UNUSUAL COMMAND 


001 BOA 


47 


10 


F 


B3C 




BC 


ALL f UCBM52 


BRANCH IF UNUSUAL COMMAND -FALSE- 


001BDE 


91 


01 


F 


808 




TM 


SNSE*X f 01 e 


CHECK FOR EQUIPMENT CK 


001BE2 


47 


80 


F 


C1C 




BC 


NONE, UCB POO 


BRANCH IF OFF 


00 IB £6 


41 


10 


0 


002 


* 


LA 


Rlt2IOfOI 


CHECK FOR PRINT CHECKS — SET MASK 


00 I BE A 


45 


BO 


F 


908 




BAL 


Rll ,BITCKO 


,* GO CHECK FOR 6 BITS IN CK READ 


0018EE 


47 


FO 


F 


C06 




BC 


UNC , UCBN40 


, f NO BITS FOUND, BR NO PRINT CK 


001 BF2 


OA 


DO 






SVC 


X»DO» 


PRINT MESSAGE - FALSE PRINT CHECK 


001BF4 


44 










DC 


X»44» 


ft 


0018F5 


07 










DC 


X*07« 


t 9 


'001BF6 


' .-FEC2 








DC 


AL2 IERR034-BASE+REG) 


9* 


0O1BFS 


'"■ 47 


FO 


F 


92A 




BC 


UNC t EXIT , 


PRINT MESSAGE * FALSI DATA CHECK 


001 8FC 


OA... 


00 






LCBN35 


SVC 


X«00 8 


001 BF£ ' 


. 44 ' 










DC 


X f 44» 


* 9 


'D018FF 


07 










DC 


1*07* 


it-. 


001 COO 


■ FEB4 ■ 








DC 


AL2 C ERR032-BASE4REGI 




00 ICO ? 


47 


FO 


F 


92A 




BC 


UNCtEXlT : 




©01C06 


41 


10 


0 


001 


UCBN40 


LA 


Rl»if0»OI 


CHECK FOR PARITY CKS-3ET MASK 


001G0A 


' 45 


80 


f 


9D8 




BAL 


Rll fBITCKO 


», GO CHECK FOR 7 BITS IN CK READ 


00it0£ 


47 


m 


F 


DCS 




BC 


UNCfUCBRBO 


tt NO BITS FOUND, BR NO PARITY CK 










ft GO TO FALSE ECU IP CK MESSAGE 



DATE 16JUN65 22JUN65 15JUL65 150EC65 15MAR66 15N0V66 

EC " 124263 124249 124265 125601- ■ 125632 ,.12565,5 



ID F8GC-5 

PAGE. ■ 13A 



ebm'. maintenance diagnostic program 



■f>/N 840223 

PAGE' ' . '14- 



' f®0C '' 2821 SCAN, i40j»' UNIVERSAL' CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 



Q01C12' 


OA 


00 








SVC 


001C14 


44 










oc 


001C15 


OT 










DC 


001C16 


FE7C 








OC 


001C18 


47 


FO 


F 


92A 


• * 


SC. 


OOICIC 


41 


05 


F 


80A 


UC8P0O 


LA 


OOIC20 


41 


10 


F 


80A 




LA 


001C24 


91 


04 


1 


000 


UC8P05 


TM 


001C28 


47 


80 


F 


C3A 




BC 


O01C2C 


41 


11 


0 


OOi 




LA 


001C30 


15 


01 








CLR 


001C32 


47 


60 


F 


C24 




SC 


001(36 


47 


FO 


F 


C44 . • 


♦ 


BC 


00IC3A 


OA 


00 






uciPio 


SVC 


O01C3C 


■ 44 










DC 


001C3D 


07 










OC 


001C3E 


FE83 








oc 


0O1C40 


47 


F0 


F 


92A , 




8C 


O01C44 


41 


00 


F 


E67 


UC8P50 


LA ■ 


O01C48 


■ 41. 


99 


0 


001 




LA 


001 C4C 


IS 


09 








CLR 


001C4E 


47 


60 


F 


B4A 




at 


001C52 ' 


07 


81 


F 


57C F 57C 


UC8Q00 


xc 


0O1C58 . 


07 


6g 


F 


5F£ F 5FE 




xc 


0G1C5E 


• 02 


83 


F 


760 F 570 




mt 


001C64 


96 


20 


F 


929 




01 


001C68 


41 


00 


F 


E30 




LA 


001C6C 


50 


00 


F 


048 




St 



RETURN HERE WITH PARITY ERRORS 
99 PRINT MESSAGE- INT ERM ITTANT-. PRINT 
ft SUFFER OR PARITY ERRORS 



001C7O 


92 


00 


F 


122 




MVI 


001C74 


45 


BO 


F 


228 




SAL 


001C76 - 


, , 45 


BO 


F 


9FA 




' BAL 


001C7C 


91 


02 


F 


80? 




in 


001C80 


47 


80 


F 


CAO 




BC 


001C84 


91 


04 


F 


808 




TM 


001 C$8 


47 


10 


F 


C96 




BC 


001C8C 


OA 


00 








SVC 


0OIC8E 


44 










OC 


001C8F 


07 










OC 


001C90 


FE8A 








OC 


001C92 


47 


FO 


F 


92A 




8C 


001C96 


OA 


DO 






UCBQ20 SVC 


001C98 


44 










DC 


001C99 


07 










OC 


001C9A 


.. -FE91- 








OC 


001C9C 


47 


FO 


F 


92A 




BC 


001CA0 


94 


OF 


F 


929 


UCBROO NI 


001CA4 


92 


FF 


F 


760 




HVI 


001CA8 


02 


82 


F 


76E F 760 




MVC 


001CAE 


41 


00 


F 


E20 




IA 


0O1C82 


50 


00 


F 


048 




ST 


001CB6 


92 


00 


F 


122 




MVI 


001CBA 


45 


BO 


F 


228 




BAL 


00IC8E 


45 


BO 


F 


9FA 




BAL 


00 ICC 2 


45 


AO 


F 


A14 


# 


BAL 


001CC6 


91 


02 


F 


807 




TM 


001CCA 


47 


80 


F 


COS 




BC 


*4TE 


16JUN65 




22JUN65 


15JUL65 


15DEC65 




124263 




124249 


124265 


125601 



X*0G* 
X«44* 
I*07 9 . 

AL2!£RR024-BASE*REG$ 
' UNCtEXlT 

R0 f CKRDAR*HR51 
Rl,CKRDAR*l 

OIRli fX i 04« 
NQNE»UCBP10 
RlflCRltO) 
R0,R1 

UNEQtUCBP05 
UNCtUCBPSO 

X»D0* 

■X«44« ' 
I»07* 

AL2I ERR025-BASE+REG1 

■ UNCtEXlT 

R0tDATA2*7 

R9 f iCR9 f 0i 
R0»R9 ' 
UNEQ*UC8N10 

UCSARU30) »UCSAR ■ 
.UCSAR+130C 111) 1 UC S AR* 1 30 » v 

WRAREA+1C132) tUCSAR+1 USED FOR LOG. OUT OF. DATA 

PR0G$W*X»20* . SET SW TO IGNORE LOGOUT OF READ DATA 

ROfLOUCSl LOAD ADDR OF UCS LOAD CCW 

R0 f CAW STORE CCW AOOR IN CAW . 

THIS IS A PRELOAD UCS COMMAND* 
' CHAINED 'TO' A UCS LOAD COWHAND 
$10SWStX 9 00» RESET S10 SWITCHES 

RUtSIO GO TO START 1/0 ROUTINE 

RUtSAVSTA • GO SAVE STATUS AND SENSE DATA 



SET UP FOR MAXIMUM COUNT 
INITIALIZE INDEX 1 
CHECK FOR PLC BIT 
BRANCH IF NO PLC BIT 

UPDATE INDEX 

MERE ALL POSITIONS CHECKED 
GO CHECK NEXT POSITION 



PRINT HESS AGE-COMPARE * SET PLC 

fff CIRCUITS PROBLEM 

'. tt 

9 9 



SET UP WAX ADDRESS 
UPDATE INDEX 9 BY 1 . 
WERE ALL BIT'S CHECKED. 
GO GET NEXT BITS 

RESET. UCS LOAD AREA TO 00 



AGSTAT tX '02 ■ 

NONE*UCBROO 

SNSEfX»04« 

ALLfUCB020 

1*00 • 

X«44* 

X *07 • 

AL2C£RR026~BAS£*REG> 
UNCtEXlT 

x*oo f 

X»44« 
X«07» 

AL2I ERR027-BASE+REG) 

UNCEXIT 



WAS UNU-CK ON FROM LOADING UCS 
BRANCH IF OFF 
WAS UCB PARITY ON 
BRANCH IF ON 

PRINT MESSAGE-UN DEF I NED INTERM ITTANT 
tt ERROR 

t 9 
tt 



PRT MSG - UCB PARITY CHECK PROB 
tt . 

t t 



PROGSW,X«DF» RESET SKIP READS DATA LOGOUT SW. 

WRAREA+1 tX *FF • SET PRINTER WRITE AREA TO ALL FF 
WRARE A+2 ( 131 ) tWRAREA+1 ♦ , 

R0,DPRCCW LOAD ADDR OF DIAG WRITE CCW 

RO.CAW STORE CCW ADDR IN CAW 

SIOSWStX«00« RESET SIO SWITCHES 
RUtSIO 



Rll,SAVSTA 

RIO, READS 

AGSTAT #X 9 02 • 

N0NE,UCBR2O 



GO SAVE STATUS ♦ SENSE OAT A 
GO DO CHECK READ ♦ DATA READ 

WAS UNIT-CK ON FROM DIAG WRITE 
BRANCH IF OFF 



10 F8CC-5 
PAGE 14 



0£ 



ooooooooooooooo 



IBM. 'MAINTENANCE DIAGNOSTIC PROGRAM 



,-■ FSOC 2821 $CAN V --1403 UNIVERSAL CHARACTER SET 
F80C5 . CONTROL ROUTINE OVERLAY '2 



■ P/N 840223 
PAGE I4A 



OOICCE ' 


OA 


00 






OC6R10 


SVC 


X»00* 




:44 










@V 


W 111 t 


001CD1 


■ ■■ 07 










OC 


X»OT f -" 


001 C 02 


. FE98' 








OC 


- At2!ER:R02&~8ASE*REG? 


O01CD4- ' 


• 4T 


FO 


F 


"92A' ; . 


* 


8C 


UNCtEXlT 


001 COS . 


41 


05 


F 


BOA 


UCBR20 


LA 


R0*CKROAR*1CR5I 


yy x. v i/w 


■ 41 


10 


Sr 






i A 

L« ■ 




DOICEO ' 


91 


04 


1 


000 


UCBR25 


TM 


0fRll v X , 04» 


O01CE4 


47 


10 


F 


CF6 ■ 




BC 


ALLtUCBR30 


001CE8 


• 41 


11 


0 


001 




LA 


RiatRl?0) 


OOICEC 


' 15 


01 








CLR 


ROffRl 


OOiCEE 


• 47 


60 


F 


CEO 




BC 


UNEQ,UCBR25 


001CF2 


• 4?" 


FO 


F 


000 




BC 


UNCt UC8R40 


001CF6 


OA 


DO 






UCBR30 


SVC 


X»00» 


001CF8 


44 










OC 


X»44 f 


001CF9 


0? 










OC 


X'07* 


nfj if ca 


' FEDE 










At^ 1 cKRUJS— B»SI:'*"Kcli f 


001CFC 


41 


FO 


F 


92A • 


■ m ■ 


BC 


UNC t EXIT 


ooiooo 


41 


00 


F 


660 


UC8R40 


LA 


R0 9 UCSAR*24l 


001004 


41 


20 


0 


001 




LA 


R2,lC0t0! 


001 DOS 


41 


10 


F 


57D 




LA 


. RltUCSARn 


OOiOOC 


42 


21 


0 


000 


UCBR50 


STC 


R2«0(R1! 


001D10 


41 


22 


0 


001 




LA 


R2t 1CR2 9 01 - 


001014 


95 


40 


1 


000- • 




CLI 


0IR1I f X f 40' f 


001018 


47 


80 


F 


DOC ■ ' 




BC 


E0.UCBR50 


001D1C 


41 


11 


0 


ooi 




LA 


Rltl(Rl 9 0) 


001020 


' 15 


10 








CLR 


Rl^RO 


00ID22 


47 


60 


F 


DOC 




SC 


UNEQ»UCBR50 


001026 


02 


83 


F 


760 F 570 




MVC 


WRAREA+1 C132I tUCSAR+1 


00102C 


96 


20 


F 


929 




01 


PROGSMsX^O 1 


00 1030 


41 


00 


F 


E30 




LA 


RO.LOUCSl 


001034 


50 


00 


F 


048 


* . 


ST 


R0»CAW 


001038 


92 


00 


F 


122 


* 


MVI 


SIOSWS 9 X 8 0O f 


00103C 


. 45 


80 


F 


228 




BAL 


RllfSIO 



PRINT MESSAGE 
tt 



INTERMIT TAN T OR 
FALSE ERRORS 



001040 
001044 
001048 
00104C 
001050 
001054 
001058 
001 DSC 
O01D62 
001068 
0O1D6C 
0OID7O 



45 80 
91 02 
47 80 
91 04 
47 10 
47 FO 
94 OF 
07 8 3 
02 77 
96 80 
41 00 
50 00 



9FA 
807 
058 
808 
B16 
CCE 
929 

760 F 760 

760 F 570 

929 

E40 

048 



BAL 

TM 

BC 

TM 

BC 

BC 

UCBR55 NI 
XC 
MVC 
01 

UCBR60 LA 
ST 

* 



Rll,SAVSTA 
AGSTAT f X f 02 • 
N0NE»UCBR55 
SNSE»X«04» 
ALL«UCBM30 
UNCtUCBRlO 
PROGSWtX *DF • 
WRARE A+l (1321 
WRAREA^l ( 120) 
PR0GSW,X»80 f 
RO»PRTUCS 
R0»CAW 



001D74 


92 


00 


F 


122 




MVI 


SI0SWS»X f 0O» 


001D78 


45 


BO 


F 


228 


* 


BAL 


RUtSIO 


O01O7C 


45 


BO 


F 


9FA 




BAL 


RlltSAVSTA 


001D80 


45 


AO 


F 


A14 


■ ♦ ■ ■ 


BAL 


R10.READS 


001084 


91 


02 


F 


807 




TM 


AGSTAT f X*02 • 


001088 


47 


80 


F 


OFE 


•• m ■ "... 


BC 


NONE t UCB TOO 


O01D8C 


91 


10 


F 


808 




TM 


SNSEtX»10» 


001090 


47 


80 


F 


002 


•* 


BC 


NONE • UCB SOO 


001094 


41 


10 


0 


001 




LA 


R1 9 1(0»0) 



SET UP MAX COUNT 
I NIT INDEX TO START OF AREA 
CHECK FOR PLC BIT 
BRANCH IF PLC PRESENT 
UPDATE INDEX BY 1 
WERE ALL POSITIONS CHECKED 
GO CHECK NEXT POSITION 
NO PLC BITS FOUND 

PRINT MESSAGE-INSERT UCS SLANKS OR 
tt PLC INHIBIT PROBLEM 

tt 

9 9 



SET UP MAXIMUM COUNT 
SET CHAR REG TO 01 

INITIALIZE INDEX REG 1-LQAC AREA POS 
SET CHARACTER IN BUFFER LOAD AREA 
CHANGE CHARACTER 
WAS A BLANK JUST LOADED 
GO REPLACE BLANK 
UPDATE POSITION INDEX BY 1 
IS AREA FULL 
GO SET NEXT CHAR 

USED FOR LOG OUT DATA 
SET SW TO IGNORE LOGOUT OF READ DATA 
LOAD ADDR OF UCB PRELOAD CCW 
STORE CCW AODRESS IN CAW 
THIS IS A PRELOAD UCS COMMAND, 
CHAINED TO A UCS LOAD COMMAND ^; 
RESET SIO SWITCHES %f'i 
GO TO START I/O ROUTINE 

GO SAVE STATUS 4 SENSE DATA J 

WAS UNIT-CK PRESENT ^ 

BRANCH IF NO UNIT CK 

CHECK FOR UCB PARITY 

BRANCH IF UCB PARITY 

BRANCH FOR ERROR MESSAGE 

RESET SKIP READS DATA LOGOUT SW. 
t WRARE A* 1 CLEAR WRITE AREA 
•UCSAR+l SET WRITE DATA IN WRITE AREA 

SET SW. FOR 1ST 120 CHARACTERS 

LOAD ADDR OF PRINT CCW 

STORE CCW ADDR IN CAW 

THIS IS A PRELOAD UCS COMMAND, 

CHAINED TO A PRINT COMMAND. 

RESET SIO SWITCHES 

GO TO START I/O ROUTINE 

GO SAVE STATUS ♦ SENSE DATA 
GO DO CHECK READ ♦ OATA READ 

WAS UNIT-CK ON FOR PRINT 
BRANCH IF OFF 

WAS ECUIP-CK SET 
BRANCH IF NO 

CHECK FOR PARITY CKS-SET MASK 




DATE 16JUN65 22JUN65 15JUL65 150EC65 15MAR66 15N0V66 |D FSCC-5 

EC 124263 124249 124265 125601 125632 125655 PACE 14A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SE I 
FS0C5 CONTROL ROUTINE OVERLAY 2 





A. Rfl 


F 


9D8 




BAL 


RlltBITCKO 


99 C?C CHECK FOR 7 BITS IN CK READ 


001D9C 


*9j du 
47 F0 


F 


DAA 




BC 


UNCfUCBRTO 


t9 NO PARITY FOUND RETURN 










•* 


SVC 




PARITY ■ BITS FOUND 


00 10 AO 


OA DO 
45 








DC 


X 4 


PRINT MESSAGE - INT ERH ITT ANT OR 


00I0A2 










DC 


X * ©7 * 


99 FALSE PARITY ERRORS 


001DA3 


07 








DC 


AL2 f ERR029-BASE + REGI 


9 9 


UU iUA*» 
0010A6 


47 FO 


F 


92A 




BC 


UNC f EXIT 










002 


* 

» i#* art i a 

UCBR70 


LA 




CHECK FOUt PRINT CKS-SET MASK 


0010AA 


41 10 
45 BO 


0 

F 


908 




BAL 


K 1 1 tot i w IW 


„ 9 GO CHECK FOR 6 BITS IN CK READ 


0010AE 


47 FO 


F 


DC8 




BL 


iswr .iitbrso 

v<ne*# ♦ sj.jtv w w 


f f NO PRINT CKS FCUMD RETURN 


001DB2 








* 






tf GO CHECK FOR UCB PARITY CHECK 




91 04 


F 


927 


* 


In 


V nUff I t * U"t 


WAS PLC PRESENT IN PRINT CK POSITION 


0010B6 

0O10BA 


47 80 


F 


C3A 




BC 




GO TO COMPARE PROBLEM PRINTOUT 




OA DO 








SVC 


X 'DO * 


PRINT MESSAGE -HAMMER FIRE PROBLEM 


0010BE 










pc 






0OIDC0 


44 








DC 


X®01 




0010C1 


07 

FEA6 








OL 


it ^ f p&R010-8ASE*R£GI 


ft-. 


©010C2 
0OIDC4 


4? FO 


•P 


92A 




BC 








OA DO 






UCBR80 


C iff 




PRINT MESSAGE - FALSE EQUIP CHECK 


00 IOCS 
- ft#% i fir a 


44 








DC 


X*44» 


it 












DC ■ 


X*07» 


? t 


001 OCB 


07 

FEC9 








UL 


it ?i FRR035-BASE+REG J 


9 9 


OOiDCC 
001 OCE 


47 FO 


f 


92 A 




@C 


i imp cytT 






91 04 


P 


808 


* 

UCB SOU 


I ri 


jro %>c ia u"* 


MAS UCB PARITY SET CN PRINT 


001 002 


47 10 


f 


DF4 




BC 


ALL*UCBS10 


BRANCH IF ON . 

«> * *r ft ?» c CT Ofci DO? hiT 


110 I UUo 




F 


808 




7M 


SNSEtX*08 * 


MAS DAT A—CK hfzl UN rKift! 


§©100 A 


91 08 








BC 


ILL f Uv# O r 4. w 


GO TO COMPARED PLC PROB PRINTOUT 


001DDE 


47 10 


F 
F 


C3A 
808 




Tit 


5N2>fc t X "Ujl 


WAS CHANNEL 9 DETECTED 


0§tP£2 


91 01 




DFE 




BC 


ALL # UCBTOO 


BRUNCH IP DETECTED • 


001DE6 


4? 10 

OA DO 


P- 




UC8S05 


svc ■ 


X 8 D0 8 


PRINT MESSAGE - FALSE UNIT CHECK 


OOIDEA 

e%t% i n cr 










DC 


X 8 44 f 


t f 


UU I UfcL 


"44 
07 








PC 




1 1 


OOIPEO 


FEB8 








PC 


AL2iERR033-BASE+REG) 


* 9 


001 OEE 
0O1DF0. 


47 FO 


F 


92 A 




'sir 


■UNCtEXIT 






O A 00 






UCB51Q 


3* Vw 


X f D0* 


PRINT MESSAGE- SAD CORE POSITION 


001DF4 










DC 


X 8 44 f 


9 9 


001DF6 


44 . 








DC 


X*07* 




001DF7 


07 

FEA0 








DC 


AL2I £RR03I~BASE*REG> 


.99 


001 0F8 
001 OP A 


47 FO 


F 


92A 




BC 


UNCEXIT 








F 


929 


UCB TOO 


TM 


PR0GSW,X*80* 


IS THIS THE 1ST 120 POSITION PRINT- 


00.1 OF £ 


91 80 








BC 


NONE t OK 


BRANCH IF 2ND PASS 


001E02 


47 80 


F 


E14 

760 F 5F5 




MVC 


WRARE A*l C 120 1 f UCSAR^121 SET 2ND n. 


0O1E06 


02 77 


F 
F 


929 




NI 


PROGSW«X«7F t 


RESET 1ST PR IN i " i^n 


OO1E0C 

■ QOMMte-- 


94 7F 

47 FO 


F 


06C 






UNCtUCBR60 


GO PRINT 2ND PASS 










* 

OK 


SVC 


X«D0* 


PRINT MESSAGE - NO ERRORS FOUND 


001 §14 


OA 00 
04 








DC 


X«04* 


tt 


001 €U: 










DC 


X»0F« 


« 9 


OOlil? 


OF 








DC 


AL2tOKKESS-BASE*Mil 




001 £1* 

ooieiA 


. FEES 

47 FO 


F 


92A 




BC--' 


■ UNCt-EXIT' 





001 El E 
001 E IE 
CHJ1E20 
^I1E28 
-001£30 



07 00 

05 001760 2000 0098 
05 001 760 200© 0001 
EB 00157C 600© 0001 



* 

CHOP 
BCR 

DPRCCW CCW 
PRCCM2 CCW 
LDUCS1 CCW 



CONSTANTS 
CCW TABLE 



0,8 
0»0 

X ♦ 05 • » WR ARE A*l t X • 20 » » 152 
X * 05 1 » WR ARE A*ltX • 20 • 1 1 
X f €B"*tUC-S*lt.tX?*P. t t l 



OOUBtE WORO ALIGNMENT 



.01 AG-' WRITE TO PRIHT BUfFt St I ON 
DI AG WRITE TO PRINT BI^FF* SLI ON 
PRILOAD UCE 9 St I ONt COMMAND CHAIW 



DATE 
EC 



16JUN65 

124263 



22JUN65 
124249 



15JUL65 
124265 



150EC65 
125601 



15MAR66 
125632 



15N0V66 
125655 



id raoc-5 

PAGE 15 
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1BH MAINTENANCE DIAGNOSTIC PROGRAM P/N 840223 

PAGE 15A 

F80C 2821 SCAN* 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 



001E38 


FB 00157D 2000 0104 


* 


CCW 


X 9 FB 9 


9 UCSAR+1,X*20* 


*260 LOAD UCB*N0 FCLDtSLI ON, f * 


r%n% c Art • 


CO Wi/J, -*J$wo OUUU UUU1 




rru 


X«£B« 


f UCSAR f X»60',l 


PRELOAD UCBfSLI ONtCCMMAND CHAIN 


fin i c^o 


aq Aft 1 7An jnnft nn7 ft 

U7 UUilOU CUUU UU f o 




VrV* W 


X»09« 


,WRAREA+l,X e 20 


» .120 NORMAL PRINT « %i I ON • » 


AH 1 psn 


FR 00157C 6000 0001 


LDUCS2 


CCW 


X S EB» 


♦ UCSARtX^O 9 ,! 


PRELOAD UCBfSLI QN» COMMAND CHAIN 




cd on i «i7n ?nnft nnn l 


* 


CCW 


X«FB» 


tUCSAR+ltX^O' 


tl LOAD UCBtNO FOLDjSLl ON $ « 


on i F^n 

l/Vf A V 


COFOFOFflFCFFFF 

V« U Cwrwrorwr trr 


DATA2 


DC 


X»COE0FOF8FCFEFF« 


• 

WRITE UCS BUFFER CAT A 










ERROR 


MESSAGES 














rriNni ti ons 




00 If 6? 


C5D9D94OF0F2F 1 


ERR021 


DC 


C 'ERR 


02 1 9 


FALSE UNUSUAL COMMAND SEQUENCE 


00 1E6E 


C5D90940F0F2F2 


ERR022 


DC 


C 8 ERR 


022 9 


UCS DATA REGISTER PROBLEM 






* 








tt OR UCB PARITY CIRCUITS PROBLEM 


001 £7 5 


C5D9D94OF0F2F3 


ERR023 


DC 


C 9 ERR 


023 8 


UCS BUFFER PROBLEM 


OO 1 F7f 


C?D9D940FQF2F4 


ERR024 


DC 


C 1 E RR 


024 • 


INTERMITTENT PRINT BUFFER CR PARITY 






■ ♦ 








tt ERRORS 


00 1 £8 3 


C!?P9 0940^0^,2?- 3 




nf* 

WW 


C 8 ERR 


025 s ' 


CftVP&Uf PROS * ASSOCIATED SET PLC 














tt CIRCUITS 


001E8 A 


w5D9D 94 OrOf™&ro 




Uw 


C f ERR 


-026* • 


UNfiEPINPD INTFRM ITT ANT ERROR 


00 1E91 






nr 


C f ERR 


027 s .. 


' INTERMITTENT UCS DATA REGISTER 














t t ' PROBLEM OR INTERMITTENT UCB 














tt PARITY C'lKLUlfd PKuoltn 


001E98 


C509D94OF0F2F8 


ERR028 


DC 


€ 8 ERR 


028 • 


INTERMITTENT OR FALSE ERROR 


001E9F - 


C5D90940F0F2F9 


ERR029 


DC 


. C f ERR 


029* ■ 


INTERMITTANT OR FALSE PARITY CKS 




C 5 09 09 4'0 F 0 F 0 


ERR030 


DC 


C 8 E-RR 


030* 


HAMMER FIRE PROBLEM . 


00 IE AO 


C509D94OP0F3FI 


ERR031- 


DC 


■ C 8 ERR 


031 9 


BAD' UCS BUFF CORE ABOVE POS 81 OR 89 


001£B4 ■ 


C509D940F0F3F2 


ERR032 


DC 


£ § ERR 


032 • 


'. FALSE - DATA CHECKS - r 


OOIESB 


: C509D94OF0F3F3 


ERR033- 


DC 


C'ERR 


033 8 ■ 


FALSE UNIT CHECK 


00itC2 . 




Cf\f\ V Jr** 


nr ■ 


C S ERR 


034 s 


- PALSC PRINT CHECK 


00 ii:C¥ 




Cr\»SU -» I? 


nr 


C *ERR 


035 * 


FALSE EQUIPMENT ' CHECK 




f^ri9094OF0F3f 6 ' 


ERR036 


DC 


C 9 ERR 


036 » - 


C$U WRONG COUNT*- PRO ©ABLE BAR ADVANCE 










PROBLEM - UC8 


00 IE 07 


C509094OF0F3F7 


ERH037 


DC 


' C *ERR 


037 • 


SYNC CHECK- PROBABLE ADV BY 2 PROB. 










OR BAR UN ITS e^LUbt: Auv 














BY 3 PROBLEM 


001EDE 


C5D9D940F0F3F8 


ERR038.- 


DC 


C f ERR 


038 g 


PLC INHIBIT PROBLEM 


WW & bb'' 


05D64OC5D909D6D9E2 


OKMESS 


DC 


C 9 N0 ERRORS FOUND 8 




00 IEEE 


40C6D6E4D5C4 


# 














# 




EQUATES 






000040 


#■ 

HCSW 


EQU 


64 ' 




HARDWARE CSW LOCATION 




000048 


HCAW 


EQU 


72 




HARDWARE CAW LOCATION 




• 000078 


HI ON 


EQU 


120 




HARDWARE I/O NEW PSW LOC*T ION 




001118 


CSWSAV 


EQU 


SI0VR3 


OUTPUT AREA EQUALS SCOPE DATA AREA 




001 57C 


OUTPUT 


EQU 


SCPDAT 






* 




GENERAL REGISTER EQUATES 




000000 


RO 


EQU 


0 








000001 


Ri 


EQU 


1 








000002 


R2 


l'QU ; 


2 








000003 


R3 


EQU 


3 








000004 


R4 


EQU 


4 








000005 


R5 


EQU 


5 








000006 


R6 


EQU 


6 








000007 


R7 


EQU 


7 








000008 


R8 


EQU 


8 








000009 


R9 


EQU 


9 








00OO0A 


RIO 


EQU 


10 







DATE 
EC . 



16JUN65 224UN65 15JUL65 150EC65 15MAR66 15N0V66 

124263 124249 124265 115601 125632 125655 



id paoc-s 

PAGE - : ; ISA 
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VVUUUD 


Rii 


(EQU 


11 


UUuvUw 


R12 


EQU 


12 


Uuvv/Uv 


R13 


EQU 


13 


UUvUUC 


R14 


EQU 


14 


vUUUUr 


R15 


EQU 


15 




* 
* 




CONDITION 


AAAAAfi 

UvUUUo 


* 

NONE 


EQU 


8 


AAAAAlt 

uuuuu? 


ANY 


EQU 


5 


Aft ft ft A 1 
VvvUUl 


ALL 


EQU 


I 


AAAAA^ 
VUvUU^ 


SOME 


EQU 


4 


ft AAAAQ 


NHI XE0 


EQU 


9 


AAAAAft 


EQ 


EQU 


a 


aaaaaa 


UNEQ 


EQU 


6 


AAAAA& 


LQ 


EQU 


4 




HI 


EQU 


2 


QUUuUo 


2 


EQU 


8 


000002 


P0S 


EQU 


2 


000008 


ceo 


EQU 


8 


000004 


cci 


EQU 


4 


000002 


CC2 


EQU 


2 


©oooof 


UNC 


EQU 


15 


000000 


N0TBSY 


EQU 


13 


000007 


NZ 


EQU 


7 


000004 


NEG 


EQU 


4 


oooooc 


2NEG 


EQU 


■ 12 ■ 


000008 


CSWNST 


EQU 


11 


000000 


NHIGH 


EQU 


13 


001000 


BASE 


EQU 


SECNO 


00F000 


REG 


EQU 


X'FOOO 1 






ENO 
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ALL OFF 

ANY ON 
ALL CN 
MIXED 
WOT MIXED 
EQUAL 
NOT EQUAL 
LOW 
HIGH 
ZERO 

GREATER ZERO 
AVAILABLE 
CSV* STORED 
BUSY 

UNC0ND1TIONL 

NOT BUSY 

NOT CC 0 

NOT ZERO -AND- 

MIXED OR NONE 

CSV* NOT STORED 

NOT HIGH 



1 


8 


Z 
















1 


8 


EQ 


net 


IP lo 












1 


2 


HI 
















1 


4 


LO 
















I 


7 


N£ 
















2 


1k14 


Ulv 














IC1C 


i 


0 


a t\ 
KU 


t ir e ^ 


l«Ut , 


1B60 , 


1B64, 


1B9C, 


IBAO, 












1C4C, 


1C68, 


1C6C, 


1CAE, 


1CB2 










&V C V f 


1000, 


1020, 


1030, 


1034, 


1D6C 








l ata 














i 


• 

I 


II 1 


AO C © f 


If A4 . 

ivWOf 


1C20, 


1X24 , 


1C2C, 


1C2C, 


1C30 








IvOvt 


tf .pA_. 


If Cfl a 


If PR« 


1CEC , 


1008, 


IDOC 








10 14 » 


t ft f r 1 


lulu t 


HJCVf , 




1DAA 




t 


2 


K2 


1 AAA 

1004f 




lUivi 










i 


•a 

3- 


















i 


4 


OA 
















i 


5 


o «; 
K> 


1AA0, 


t AAA.. 




1CD8 








i 


6 


D £. 
















i 


T 


n t 

R7 
















i 


8 


R8 
















i 




R9 


184 Of 


lb4A t 






1 TAR . 






i 


1 


ALL 


1828, 


, B1A 


1 A~?fi . 


1 AAA . 


t RD? . 


1BDA, 


1C88 








lt»£4, 


inen 
1U3U, 




1UUC , 


lUCD 






i 


5 


ANY 














1070 


% 


1048 


CAW 


IAD2t 


if>o4, 


1 at A 








i 


8 


CCO 
















i 


4 


CCI 




- 












i 


- 2 


CC2 
















i 


1040 


CSW 
















i 


4 


NEG 
















i 


2 


POS 
















i 


A 


RIO 


IBBOt 


ICC 2, 


ID80 










l 


B 


. Rll 


IAD A v 


lAUc , 




t AT A 


iDAQ , 


1 AAf - 
1 DAV.I 


1 RF A 








1C 0 A t 


li. ff 4 , 


i r 7 ft 


1 f A A - 


1 TAP - 




1040 








ID 711, 


111 I V f 




1 A*P 








i 


C 


R12 
















i 


D 


R13 
















i 


E 


R14 
















i 


. F 


R15 
















i 


FOOO 


REG 


lAE E § 


IB 00, 


1B1A, 


1B40, 




I DfO , 


1 fAA 
1 V»UU 








it* 1 Of 


if *p - 


1 f 9 fl ■ . 


If* 9 A • 


1CD2 , 


1CFA, 


1DA4 








IDC 2, 


IDCCt 


IDEE, 


IDF 8, 


1E18 






l 


1228 


S10 


IA0A, 


1B6C, 


18A8, 


1C74, 


1CBA, 


ID3C, 


1078 


l 


F 


UNC 


1AF0, 


IB 02, 


1B20, 


1B42, 


1BCA, 


IBEEt 


1BF8 








1C02, 


1C0E, 


1C18, 


IC36, 


IC40, 


lC92t 


1C9C 








1C04, 


1CF2, 


1CFC, 


1054, 


ID9C, 


1DA6, 


10B2 








IDC 4, 


10CE, 


10F0, 


10FA, 


mo* 


1E1A 




l 


1000 


BASE 


lAEEf 


1B0O, 


1B1A, 


1840, 


1BC8, 


1BF6, 


ICOO 








1C16, 


1C3E, 


1C90, 


IC9A, 


1CD2 , 


ICFA, 


10A4 








IDC 2* 


10CC, 


IDEE, 


1DF8, 


1E18 






i 


192A 


EXIT 


1000, 


1AF0, 


1B02, 


1B20, 


1B42, 


1BCA, 


IBF8 








lC02t 


1C18, 


1C40, 


IC92, 


1C9C, 


1CD4, 


1CFC 








1DA6, 


IDC 4, 


1DCE, 


10F0, 


1DFA, 


1E1A 




i 


48 


HCAW 
















l 


40 


HCSW 
















i 


78 


HI ON 
















i 


8 


NONE 


IA94, 


1AB0, 


lAFBt 


1B0A, 


1812, 


1B38, 


1880 








1B88, 


IBCOt 


1BE2, 


1C28, 


1C80, 


1CCA, 


1048 








1088, 


1090, 


1D8 A, 


1E02 








i 


188E 


ROAR 
















l 


1808 


SNSE 


1B0E, 


1B24, 


1B2C, 


1B34, 


1B84, 


1BBC, 


18CE 



10 F80C-5 OATE 16JUN65 22JUN65 15JUL65 150EC65 15HAR66 15N0V66 
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1 


1004 


SNSW 


1 


4 


SOME 


i 


6 


UNEQ 


1 


C 


ZNEG 


1 


157C 


CMPAR 


1 


11A4 


CSWAG 


7 


1E60 


DATA2 


4 


1A90 


ENTRY 


1 


19A4 


EXIT2 


1 


D 


NHIGH 


1 


1A14 


READS 


1 


1A8C 


RTN02 


1 


1000 


SECNO 


1 


1120 


SENSE 


I * 


1753 


UAPRT 


1 


157C 


UCSAR 


1 


10E0 


UNIT1 


1 


1807 


AGSTAT 


1 


19D8 


BITCKO 


i 


1121 


CAWKEY 


I 


1805 


CESTAT 


1 


1927 


CKDATA 


1 


1809 


CKRDAR 


i 


B 


CSWNST 


i 


1118 


CSWSAV 


I 


1806 


DESTAT 


8 


1E20 


DPRCCW 


4 


1A9C 


ENTRY 1 


7 


1E67 


ERR021 


7 


1E6E 


ERR022 


7 


1E75 


ERR023 


7 


1E7C 


ERR024 


7 


1E83 


ERR025 


7 


1E8A 


ERR026 


7 


1E91 


ERR027 


7 


1E98 


ERR028 


7 


1E9F 


ERR029 


7 


1EA6 


ERR030 


7 


1EAD 


ERR031 


7 


1EB4 


ERR032 


7 


1EBB 


ERR033 


7 


1EC2 


ERR034 


7 


1EC9 


ERR035 


7 


1ED0 


ERR036 


7 


1E07 


ERR037 


7 


1E0E 


ERR038 


1 


1928 


EXPECT 


8 


1E30 


LDUCS1 


8 


1E50 


LDUCS2 


1 


9 


NMIXED 


1 


D 


NOTBSY 


15 


1EE5 


OKMESS 


1 


157C 


OUTPUT 


8 


1E28 


PRCCW2 


I 


1929 


PROGSW 


8 


1E40 


PRTUCS 


1 


1A2A 


READS2 


1 


19FA 


SAVSTA 



1BD6* 


1BDE* 


1C84* 


1D4C* 


1D8C * 


1DD2 * 


1DDA 


1DE2 














lAAOt 


1C32* 


1C4E* 


1CEE* 


1D22 






lB46 f 


1C44 












lOOOt 


lAAU 












lOOOr 


lBBOt 


ICC 2* 


1D80 








1015 














lOOOt 


lOOOt 


1000* 


1000* 


1000* 


1000* 


1000 


1000, 


1000, 


1000* 


1000* 


1000* 


1000* 


1000 


1000, 


1000* 


1000* 


1000* 


1000* 


1000* 


1018 


1EF4 














1AB8, 


1AB8, 


1ABE* 


1ABE* 


1AC4* 


1B4A* 


1850 


1B50, 


1856* 


1C52* 


1C52* 


1C58* 


1C58* 


1C5E 


1D00, 


1D08* 


ID26* 


1D62* 


IE06, 


1E30, 


1E38 


1E40» 


1E50* 


1E58 










1AAC 














1B06, 


1B7C* 


1884* 


1C7C* 


1CC6* 


1D44* 


1084 


1000, 


1BEA, 


1C0A, 


1098* 


10AE 






1DB6 














IClCv 


1C20* 


ICD8* 


1CDC 









DATE 
EC 



16JUN65 
124263 



22JUN65 

124249 



1AE2 

1B9C, 1CAE 

1A94 

1B40 

18 1A 

1BC8 

1C16 

1C3E 

1C90 

1C9A 

1CD2 

1DA4 

IDC 2 

1DF8 

1C00 

IDEE 

1BF6 

1DCC 

1AEE 

1B00 

1CFA 

1ACE* 1B60* 1C68* 1030 



1E18 



1A90, 1AA4* 1ACA, 1B5C, 1B8C, 1C64, 

1D2C* 1D58* 1D68* 1DFE* 1E0C 

1D6C 

1000* 1ADE* 1B70, 1BAC* 1C78, 1CBE, 
1D7C 



15JUL65 15DEC65 15MAR66 15N0V66 
124265 125601 125632 125655 



1CA0 



1D40 
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1 


1751 


SCHNUM 


1A98, 


1A9C, 


1 


157C 


SCPDAT 


1000* 


1000* 


1 


1678 


SCPROO 






1 


1122 


SIOSWS 


1AD6, 


1AF4* 








1D38, 


1D74 


1 


1118 


SI0VR3 


1EF4 




1 


1108 


SI0VR4 






1 


HOC 


SI0VR9 






1 


119F 


STATSV 






1 


10E2 


U1ADDR 






6 


1AB8 


UCBMOO 






4 


1AF4 


UCBM05 


1AE6 




2 


1AFC 


UCBM10 


1B78 




4 


1B06 


UCBM20 


1AF8 




2 


1B16 


UCBM30 


1B88, 


1D50 


4 


1B24 


UCBM50 


1812 




2 


1B3C 


UCBM52 


1BDA 




4 


1B46 


UCBNOO 


1B0A 




6 


1B4A 


UCBN10 


1C4E 




4 : 


1B8C 


UCBN20 


1B80 




2 


1BC4 


UCBN25 






4 


1BCE 


UCBN30 


1BC0 




2 


1BFC 


UCBN35 


1B30* 


1BD2 


4 


1C06 


UCBN40 


1BEE 




4 


1C1C 


UCBPOO 


1BB8* 


1BE2 


4 


1C24 


UCBP05 


1C32 




2 


1C3A 


UCBP10 


1C28, 


1DBA* 


4 


1C44 


UCBP50 


1C36 




6 


1C52 


UCBQOO 






2 


1C96 


UCBQ20 


1C88 




4 


1CA0 


UCBROO 


1C80 




2 


1CCE 


UCBR10 


1D54 




4* : 


1CD8 


UCBR20 


1CCA 




4 


1CE0 


UCBR25 


1CEE 




2 


1CF6 


UCBR30 


1CE4 




4 


1D00 


UCBR40 


1CF2 




4 


1D0C 


UCBR50 


1D18, 


1022 


4 


1D58 


UCBR55 


1D48 




4 


1D6C 


UCBR60 


1E10 




4 


1DAA 


UCBR70 


1D9C 




2 


1DC8 


UCBR80 


1828* 


1C0E* 


4 


1DD2 


UCBSOO 


1D90 




2 


IDEA 


UCBS05 


1838 




2 


1DF4 


UCBS10 


1DD6 




4 


1DFE 


UCBTOO 


1D88, 


1DE6 


1 


176C 


WRAREA 


1000, 


1000, 








1000, 


1000, 








1B96, 


1C5E, 








1D5C, 


1D62, 


1 . 


1000 


XF80C5 







1EF4 



1B68* 



1B74, 1BA4* 1C70* 1CB6 



10DE 



1000, 
1000, 
1CA4, 
1E06, 



1000* 
1AC4, 
1CA8, 
1E20, 



1000, 1000, 1000 

1B56, 1890, 1B96 

1CA8, 1D26* 1D5C 

1E28, 1E48 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 
EC 



16JUN65 
124263 



22JUN65 
124249 



•15JUL65 
124265 



15DEC65 
125601 



15MAR66 

125632 



15N0V66 
125655 
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PERIOOS CORRESPOND TO 
COLS* 1 THROUGH 20 

BESD* AA..AAXF80 

9 YQ Y9 

99 9 



BLANK COLUMNS* 

COLS* 21 THROUGH 40 



BTXT* AAA* 

9 YQY 

999 

BTXT.AA8* 

9 YQ9 
99 

BTXT.AAO* 
9 YQ+ 

99- 

BTXT* A AS* 
9 YQ8 
99 

BTXT* AJQ* 
9 Y99 

9 

BTXT.AJ+. 
9 Y9 

9 

BTXT.AJH* 

9 Y90 
9 

BTXT. A JO* 

9 Y9* 
9 



,A8*.AA8D*A 
Y9 Y9 8 Y 
9 9 9 9 

»A8*« AAAAAA 
Y9 Y9YYYY 
9 9 9999 

»AA«* AAAAAA 
YQ Y9YYYY 
99 9 9999 

» A8*«AACAAA 
Y9 Y90YYY 
9 9 9 9 

» A8** AAAAAA 
Y9 Y9YYYY 
9 9 9999 

,A8*.AARRUP 

Y9 Y9 
9 9 

,A8*.AASNS* 

Y9 Y9 

9 9 

,A8**AAXXXX 

Y9 Y9 

9 9 



BTXT*AJ8*«A8. 

9 Y9 Y9 
9 9 

BTXT* AKA** A8. 

9 Y9Q Y9 
9 Z 9 

BTXT* AKQ«*A3« 
9 Y9Z Y9 
9 9 

BTXT*AKJ**A8* 

9 Y9Y Y9 

9 9 

BTXT* AKQ* • A8* 
9 Y9 Y9 
9 9 

BTXT. ALA*. A8. 

9 Y9Q Y9 
9 9 9 

BTXT.ALH..A8. 

9 Y9Z Y9 
9 9 



.AAAW.X 

Y9 
9 

• AAOHPG 
Y9 Z 9 

9 

•AA2M&Q 

Y9 08 
9 9 

• AAG02D 
Y9Z R 

9 0 

» AAGA2D 
Y9ZQ R 
9 9 0 

• AA7CBE 
Y9 R8Q 

9 99 

» AAOEG+ 

Y9-ZZ 
9 



C5« *AAAA*AGA«* 

YYQY Y89 
9999 99 

AAAAAAAAAAAAADAAGAK- 
YYYYYYYYY9QY99YY8Y8 

999999999 9 99999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAGALB . « 

YYYY99YY8Y9Y 

9999 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAI/0*ADOR* XXX* 

YYYYYYY 

9999999 

TAI/0*ADDR*XXX*CAW*X 

Y 

9 

XX*MAKE.PRINTER*RDYA 

Y 
9 

X*60T*CC0*CSW*XXXXXX 



XXXXXXX*GOT*CCO.CSW. 



1Q1QPA1J1JD07HKA0H1/ 
99YYYR+RYZ9 
9 9 9 9 

AA0DGA2HH+JHEA0AGA22 
-Y 9ZY OR Z-QY+YZY 9 

9 9 

G.2DAA0DGA22BEADAHA4 
Z Y-Y 9ZQ 98QY9YZ99 
9 9 999 9 

BEADAHA4KB1U7CB21CB0 
8QY9YZ99 9 8 R~ Z8- 
999 9 9 9 

ADAHAPKG1Q0*BEABAMAC 
Y9YZ9Z 9 9- 8QY99890 
9 9 999 9 

3DED0DG-3DA* 1SGA48G0 
8-8-ZZ 8- 9ZQ 9Z 
9 9 9 9 



COLS* 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAADAAGAPMAAAA 
YYYYYYYY99YY8Y98YYYY 
99999999 9999 9999 



AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

CAW*XXXXXXXX.GOT*CCO 



XXXXXXX.60T.CCi.CSN. 



AAAAAA AAAAAA I /O. ADDR 

YYYYYYYYYYYY 

999999999999 

XXXXXXXXXX*SNS*XX*I/ 



XXXXXXXXXXXXXXXXAAAA 
YYYY 
9999 

KC0H0H0AOAEA2F+A1HAA 
9-Z ZQY+YZQ R Q 9-Y 
9 9 9 9 

F+2HG022KBIU7CBEA0AH 
Z RZ 9 9 8 R8QY9YZ 

0 9 999 9 

KB1U7CB31CB0./1TG022 
9 8 R- Z8- 9 9Z 9 

9 9 

* /1TG02DAA00GA3FAG0E 
9 9Z R~Y 9ZY Z-Q-Z 
0 Z 

B11FAB1MGA3KB0* 11FAG 
- R-9 8ZQ Z8- 9 R-Q 
0 9 9 9 Z 

3BE046BEAAA JADA. UGA 
Z+ 88QY99Y9Y- YZQ 
- 999 9 9 9 
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COLS. 61 THROUGH 80 
224.125655*. 8QC50001 



AAAAAA AAA A AA80C50Q02 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80C50003 

YYYYYYYYYYYY 

999999999999 



•80C50004 



AAAAAAAAAAAA80C50005 
YYYYYYYYYYYY 

999999999999 

•BUT.NO.INTE80C50006 



STATUS.XXXX.80C50007 



•XXX.CAW.XXX80C50008 



0*AODR*XXX*C80C50009 



AAAAAJOUKC1M80C50010 
YYYYQ8 9 9 
9999 9 

1SGA48AA1HG+80C500U 
9ZQ 9-Q 9Z 
9 Z 

A4B01CB0.21T80C50012 
99- Z8- 9 9 

9 

AA1HGA28AA0D80C50013 
-Q 9ZQ -Y 9 
9 9 

G+2DG022KB1P80C50014 
Z RZ 9 9 8 
0 

1NG+2DG022AG80C50015 
8Z RZ 9-Q 
9 0 Z 

3AB0.81FG03280C50016 
Y8- 9 RZ 8 

9 9 



DATE 

EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 

124265 



15DEC65 

125601 



15MAR66 
125632 



15N0V66 
125655 



ID F80C-5 
PAGE 18 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN 1403 UCS OVERLAY 1 ♦ 2 



BTXT* ALA** A8.« AABO.A 
9 Y9Y Y9 Y98- 8 
9 9 9 9 

BTXT* ALH** A8* » AA3DG* 
9 Y90 Y9 Y9 YZ 

9-9 g 9 

BTXT.AL0..A8..AAGA1Q 
9 Y9 Y9 Y9 9 0 
9 9 9 

BTXT* AMY** A8* • AAFA1S 
9 Y99 Y9 Y9-9 9 
9 9 9 

BTXT. AM-* • A8 • • AABEAD 
9 Y9 Y9 Y98QY9 

9 9 9 999 

BTXT • AMH* « A8* * AAACKC 
9 Y9- Y9 Y99Q 9 
9 9 9 Z 



BTXT* AMO* 

9 Y9- 
9 

BTXT* ANH* 

9 Y99 

, 9 

BTXT* AN.* 

9 Y9 
9 

BTXT* ANH. 
9 Y9R 
9 0 

BTXT* ANA. 

9 Y9Q 
9 0 

BTXT. ANY. 

9 Y9 

9 

BTXT.AOJ. 
9 Y9Y 
9 9 

BTXT.AOH. 
9 Y9R 
9 

BTXT.AOA. 

9 Y9Q 
9 

8TXT*A0H. 

9 Y9 
9 

BTXT* APA* 

9 Y9Y 
9 9 



.A8..AAGA46 

Y9 Y9ZQ 
9 9 9 

• A8. • AAJHEA 
Y9 Y9Z-QY 
9 9 9 

•A8..AAB0.6 

Y9 Y98- 9 
9 9 9 

.A8. .AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• A8* • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

•A8*« AAAAAA 

Y9 Y9YYYY 
9 9 9999 

.AS. .AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• A8« « AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• A8* « AAODGA 
Y9 Y9 9ZQ 
9 9 9 

*A8*.AA5F5H 

Y9 Y9 R R 
9 9 0 0 

•A8«* AADAOA 
Y9 Y9QY+Y 
9 9 9 9 



1FG020AA00GA2DKG1Q0* 
RZ R-Y 9ZQ R 9 9- 

0 9 0 

3BG03KOA1GODG03KAD1S 
Z Y 9 Q-ZZ Y-9 9 



1GAD1QGA4DEA4KB0.61M 

Q-8 OZQ 8ZQ 88- 9 Y 
9 9 9 Z 9 

A.1JGA48GA1SHJ0UGCEA 

- YZQ 9-9 9-8 9QZQ 
9 9 9 Z Z 

AHAEBEAHAMAKBEAAAJAX 
YZ9Q8QY9909 8QY99Y9 
9 0999 999 9 

0H0HDA0AEA4QAA0DGA5B 
-Z ZQY+YZY 0-Y 9ZQ R 
9 9 9 9 

B12BKB2A14KG2J0.BEAB 

- 8 8 Q 8 9 Y- 8QY9 
9 9 9 9 999 

0AG.5KF.?BG05J0G2J0. 
+YZ 8Z 8Z Y 9 Y- 

9 9 9 9 9 

1KG05BKC0H1MG7H. JHEA 
YZ R 9 299 R Z-QY 
9 9 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

60HDOUKCOH1MG8A.ODGA 
Y-Q 9 Z 99 - 9ZQ 
9 

NA5H7GG06DKA5F7G+A5H 
9R8Z-Q9R8QR 
0 9 0 0 0 

EAOAG07DAAODGA6BA.OD 
QY+YZ+ 9-Y 9ZQ Q- 9 
9 9 - 9 Z 



AJ1SGA48PA1G1GH.10F. . 

-Y 9ZQ 9 9 Q QR 8Z 
9 9 9 

GA3KH.1DEA0AGA3W0A1G 
ZY YR 8QY+YZQ 9 Q 
9 9 9 9 0 

G02DAG1RG+4DAB1 QGA43 
Z R-Q OZ 8-9 OZY 9 
0 Z 

4KB0.71MG020EA4K80.6 

88- 8 YZ RZQ 88- 9 
9 9 0 Z 9 

B01DG3KB137CAA5Q+A0H 
- Y9 9 RZY Z Y Z 

9 9 9 

4A1AB02BAA1AGA5AB32B 
Y Q- 8-Q QZY Y- 8 
9 9 9 Z 9 9 9 

BUBPB0.11KG058B0./1K 
99998- 9 YZ R8- 9 Y 
9 9 9 9 

AG2VG^58AD2UG058A32U 
-Q 9Z 9-8 9Z+ 9- 9 
Z 9 

0AGA4BF.5FG04BAADAJJ 
♦YZY QZ RZ QYY9Y9Y 
9 99 9 9 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAGAAD0UB0AX7YH0 
YYYYYY9YQQ 8-Y9 9R+ 
999999 9 9 

6FG06F+J5HKA5052BA5D 
OZ - Y R Y + 8-Q R 
0 9 - Z 0 

KC545HK55A54AA50+A0H 
9 8 R Y 8ZQ •»■ Q Z 

0 

GA64G06FGGGGAAAMPRES 
ZQ 8Z -QQQQYYY9 
9 ZZZZ999 



P/N 840223 | 
PAGE 18A f 



3BG030EA0AGA80C50017 
OZ YQY+YZY 
-.999 

0DF.3QKG1M1Q80C50018 
-ZZ 9 0 9 



E046AK1JG44680C50019 

Z* 8-0 YZ 8 
9 9 

1MG02DKB1E7C80C50020 
YZ R 9 0 R 

KA0H1/BEADAH80CS0021 

Y Z 98QY9YZ 
9 999 9 

GA46B22BAJ 1A80C50022 
ZQ - 8-Y Q 
9 9 9 9 

G05BPG2J2JH.80CS0023 
Z R 9 Y YR 
9 9 

GA58BEAHBJBA80C50024 
ZY 88QY99Y9Q 
999 9 9 

AAAAAAN4AAAA80C50025 

YYY9YY98YYYY 

999 99 9999 

AAAAAA AAA A AA80C50026 
YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80C50027 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80CS0028 

YYYYYYYYYYYY 

999999999999 

AAAAAA AAAAAA80C5 0029 

YYYYYYYYYYYY 

999999999999 

7JE07JGA6KA*80C50030 
YR+ YZY 0- 

9 9 

MA5D53+05HKA60C50031 

Y R 8 + R 9 

9 0 0 

KAOH1/KCOH0H80C50032 

Y Z 9 9-Z Z 
9 

S*CONS0LE*ST80C50O33 



DATE 

EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
125655 



ID F80C-5 
PAGE I8A 




oooooooooooooooooooooooooooooooooo 



ccccccccccccccccccccccccccccccccoc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F80C 2821 SCAN 1403 UCS OVERLAY I + 2 
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I8M MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN 1403 UCS OVERLAY 1 + 2 



P/N 840223 
PAGE 19A 



BTXT • AP8 . . AS • • AAOP • F 
9 Y99 Y8 Y9 8 
9 99 9 

BTXT.AQE**AD.*AAAAAA 
9 Y99 Y9 Y9YYYY 
9 9 9 9999 

BTXT . A JX . . A8 . . A A A AAA 

9 Y89 Y9 Y9YYY- 
99 9 ^ 999 



8TXT.AJP..A8. 

9 Y88 Y9 
99 9 

BTXT*AJG**A8. 

9 Y8- Y9 
99 9 

BTXT* AJG*« A8* 

9 Y8Y Y9 
999 9 

BTXT* AKG«* A8« 

9 Y89 Y9 
99 9 

BTXT#AK7**A8* 
9 Y88 Y9 
999 9 



»AA4AJ9 

Y98-Y 
9 9 

» AABA*Q 

Y9Q- 
9 9 

» AA4DG9 
Y98-Q 
9 9 

• AAA8G1 
Y9Y 9 

9 9 

» AAYGBA 
Y999QY 

9 29 



BTXT* AKG* 

9 Y8R 
990 

BTXT* AKP* 

9 Y8Y 
99 

BTXT.AKX* 
9 Y8 
99 

BTXT* ALP* 

9 Y88 
999 

BTXT* ALG* 
9 Y8R 
99 

BTXT* ALG* 

9 Y8Y 
99 

BTXT* ALG* 
9 Y8 
99 

BTXT* ALG* 

9 YSQ 
992 

BTXT* AM7* 

9 Y89 
99 



•A8**AA1BNL 

Y9 Y998 8 
9 9 9 9 

• A8**AASGBA 

Y9 Y9 9RZ 
9 9 

•A8..AAA1SE 
Y9 Y9Y 9Z 
9 9 9 

•A8**AAACUB 
Y9 Y9YQ88 
9 9 Z99 

• A8«« AABEJB 
Y9 Y9Q2YQ 
9 9 Z I 

*A8#.AASAB8 
Y9 Y98-9 
9 9 9 

.A8..AAHGAC 

Y9 Y99ZYQ 
9 9 2 

•A8..AAG8G7 
Y9 Y9R Y 
9 9 0 

• A8**AAGFDA 
Y9 Y99Q0Z 
9 9 2- 



•£NTER*UTILITY.DATAA 
Y 
9 



•0DGA96EA6HA J0DGA9MK 
9ZY 9ZY R-Y 9ZY 0 
0 9 

/GA9BB0JH54KA 548BEA9 
8ZQ Y8-Y9 8 Z 8 8ZQ 
9 9 99 9 0 

DGA9MEA6KB0BEABE4E4B 
9ZY OZY R8 8QYZ98988 
09 999 9 

/G09FQVCB8ABA9XDA966 
82 -99Z9 8ZY 9ZQ Z 
9 9 9 9 

QKA8H1JGCPD8A8AAABH+ 
0 Y 9 Y9Q 0 8 8ZYQR 
9 9 Z 9 9 92 

AAAAA3AQG-AAABAQGJAA 
YYYYY8Y9Y YY99Y9YYYY 
99999 9 99 9 999 

EA* JFGABFQGGABDABODB 
Q- 2-ZYQQ9QZYQ—9 98 
9 Z 9 Z 9 

♦ADADOJGABBA+AHLAHAJ 
YO-9 ZZYQ Z YR8YRQZ 
9 Z 9099 9 

A2YEM 1PGACAB0DGF4G09 
Q 9-9 8ZYQY8-Z9Q8Z 
0 9 Z99 Z 

0DGFEG09SAAE8+A0HBA1 
-Z9QRZ 8ZYQ Y Z-Y 
ZO 9 9Z 9 9 

MAD8HGACYAB8EGACAAAA 
9-9 9ZQQ -9 9ZYQQZQY 
9Z Z 99 

FGACYAAAAEA9QG0COB0D 
9ZYQ ZQY9ZQ Z QY8-Z 
Z 99 0 Z 9 

0B0DGF0G09SAH8HGACYB 
8-Z9Q0Z 8-9 9ZQQ 8 
9 Z 9 9Z 9 

VGADQKA558GKB5655AD0 
8ZYQZ Y 8 Y 0 8 8-9 
Z 9 

E8GAA8GA.AAGAD0AJAAN 
9 YZQ Y- QYZY08Z9Y99 
9 99 Z 9 



8AAAAAGAAAGG867 ABO* • 
QYYYYY9YYY9Q-Q R8 
Z99999 999 Z Z 9 



A547VEA90KA547PEA90K 
Z 8 8ZQ 0 Z 8 YZQ 0 
0 0 

0KA5480EA90KA548GEA9 
0 2 8 8ZQ 0 Z 8 YZQ 
0 0 

0JB54B0 JB5FGCE A9QB0A 
-YZ 88-YZ Q9QZQ 08-Y 
9 0 Z 0 9 

A90F J9BGCACADGCAA9XK 
Q ZY Q9QZQY99Q-Y 9 
9 9 9 Z 09 Z 9 

A0HBA1SEA2YPH8F8FAAB 
Y 2-Y 9ZQ 9 - Y YZYQ 

9 9 0 9Z 

HFAQB JAADAAGFLDHOOSA 
-9Y98YYY09YQQ8YZ+ - 
9 9999 9ZZ99 

OAJFHBODUFALAAAJAGAB 
-YYQ98-98Q88Y-QZYZYQ 
9Z 9 9Z 99 9 2 

HA JAMNB+A1DA*0DGABFE 
-ZYYZ89 Q 8- 9ZYQQZ 
99 9 9 9 29 

SPH7U7UAAE0+A0HBD1SE 
8-8 8ZYQ Y Z-9 92 
9 92 9 

SEA2YCA8E1MEM1PGACDB 
9ZQ 9 Y 9 8-9 8ZYQR8 
0 9 9 9 Z 9 

AEA9QG0CFB0DGFBBC7AG 
9ZQ Z Q08-Z9QY-0 RZ 
0 Z 9 Z 

GFHG09SAAABEA9QG0CD8 
9Q-Z 8ZQY9ZQ Z Q 8 
2 9 99 0 2 9 

0DGFAG09SAD0JGACFNC8 
-Z9Q-Z 8-9 ZZQQQ 0 
Z 9 9ZZ 

JGADSNC558GGAD2G0D4N 
ZZQQ8 0 8 YZYQ8Z Q9 
9Z9 29 2 

AG-DBB0DGFCG09SB0DGF 
92 QZ8-Z9QQZ 88-Z9Q 
2 9 ZO 99 Z 



•80C50034 



•80C50035 



BTXT.AMX..A8*.AA2B0D 
9 Y88 Y9 Y988-Z 
99 9 9 9 

BTXT* AMP. .A8..AAUAAF 

9 Y80 : Y9 Y98ZQQ 
99 9 9 Z 



C548E8EADE4E80C50036 
9 8 98QY9989 ' 
999 

OKA548JG09D880C50037 
0 Z 8 Z Q8 

09 

A1WG09FB0AH580C30038 

9 9Z -8-Y9 
9 

A8E1MKA8F1GK80C50039 

Y 9 8 Y 9 Q 
9 9 9 

44A0HBA1SEA280CS0040 
Y Z-Y 9ZQ 
9 9 0 

AOJGAB2B0DQF8GC50041 

Q 2ZQQ88-99Q 
9 9Z 9 2 

KAGBA1/BEABA80C50042 
Y88ZY 98QY9Y 

99 9 999 9 

A6HAABH+A0HB80C50043 

Y RZYQZ Y Z- 
0 9Z 9 

A2YEA9BAA1SG80C50044 

Q 9ZQ Q-9 9Z 
0 0 z 

0DGF4G09SEA980C50045 
-Z9Q8Z 8ZQ 

Z 9 0 

09S80DGFAG0980C50046 
88-Z9Q-Z 
99 Z 

ODGFGG09SAA880C50047 
-Z9QQZ 8-Q 
Z 9 9 

G7VGADQG0DHN80C50048 

Y 8ZYQZZ Q9 

2 Z 

G558GGAD2B0D80C50049 
R 8 Y2YQ88-2 

0 299 

8G09SAH8HGAD80C50050 
2 8-9 9ZYQ 

9 Z 



BTXT* AMG* 
9 Y8Q 

999 

BTXT.ANP* 
9 Y89 

99 

BTXT* ANG* 
9 Y88 
99 

BTXT* ANG* 
9 Y80 
99 

BTXT* ANG* 

9 Y8Q 
990 

BTXT-.* ANT « 

9 ' Y8 ; 
99 

8TXT.A0X. 
9 Y88 
999 

BTXT*AOP. 

9 Y8Z 
99 

BTXT* AOG* 
9 Y8Q 

99 

BTXT.AOP. 

9 Y8 
99 



•A3..AAGG-E 
Y9 Y9YZ Q 
9 9 2 

.A8..AA09SA 

Y9 Y9 8- 
9 9 9 

.A8..AA-DMB 

Y9 Y9 QY- 

9 9 Z 

• A8»«AA0EFN 
Y9 Y9 QQ 

9 9 Z 

*A8**AAJGAE 
Y9 Y9ZZQQ 

9 9 9Z 

• A8*« AACEAP 
Y9 Y909Y9 
9 9 9 

• A8* • AAAGBY 
Y9 Y9YQ 
9 9 2 

*A8.*AAEST. 

Y9 Y9 

9 9 

•A8**AAERR* 

Y9 Y9 
9 9 

• AS* • AAERR* 

Y8 Y9 
99 9 



BRLO« • • * AA« • * • A AAA 
9 YQ Y9Y9 

9Z 9 9 



BEND* 

9 



» • AA • • • • 

Y9 
9 



BOAT. ••••«•••*• 

9 

BESD.**.**AA** A AX F80 

9 YQ Y9 

. 99 9 

BTXT* AAN** AC* • AAAKD* 
9 YQ9 Y9 Y9Y8Y 
99 9 9 99 



GFIG09SAE8BAA8BADAAG 
9Q Z 8Z9 8ZQ 8-9QYZ 
2 9 9 9 9 99 

YKA7VAAAAFA+A0HBA1SE 
9 Y 8QYZYQY Y Z-Y 9Z 
9 9 9Z9 9 9 

KAAAAEA9QG0EAAB8EGAE 
8ZQY9ZQ Z QQ-9 92 YQ 
9 99 0 Z9 2 

A7VGAESE08GGAEDB0DGF 
Y 8ZYQ8-+ YZYQZ8-Z9Q 
Z9 Z 9 Z 

G7VKB7W7VAAE8+A0H8A1 
Q 8 0 8 8ZYQ Y Z-Y 
Z 9Z 9 9 

G7V8GGAEFB0DGF3G09SP 
R 8 YZYQQ8-Z9Q Z 8 
0 Z 9 Z 9 

KNB7W8AG-EUG0EDNF7W8 
0 8 QZ Q Z QQ R 8 

1 29 0 

VJAAHEAPVJAAA2821.SC 
8YYY-9Y98YYY9 
999 9 999 

PASSED-UCS.NOT.DEFIN 



FOR.OUTPUTERR « 001ERR 



007ERR.008ERR.009ERR 



015ERR.016ERR.017ERR 



AAANAAANAAA5AAN/AANA 
8YQ98YQ88YQ88Y988Y9R 
999 999 999 99 99 0 

C5**AAAA.AF4 •• 

YYQY Y8 
9999 99 



ADHA JAANA6-DBG0DKB0D 
YQ-Z9Y999Z QOZ Q08-2 
Z 9 Z Z 9 

A2YE A9BE JBMNA8G7VGAE 
Q 9ZQ QZYQ9 Y Y 8ZYQ 
0 0 2 Z 9 Z 

FB0DGFPBC7AG09SB0DGF 
98-Z9Q -0 R2 88-Z9Q 
9 Z 99 Z 

MGQ9SAAAAEA9QG0E0G0C 
YZ 8ZQY9ZQ Z Qtl Q 
9 9 99 0 11 

SEA2YEA9BE JBMADO JGAE 
9ZQ 9ZQ QZYQ9-9 ZZCQ 
0 0 1 I 91 

B7W7WAAFA4A0HBAISEA2 

0 8 8ZYQY Y Z-Y 9ZQ 
9Z9 9 9 0 

AG*-EU8B7AG09M80DGFBG 
QZ Q -0 RZ 08-Z9QQ2 
Z 9 ZZ 

AM/14Q3*UC$!*C0NT§I01 
8 



EDNOTE-DO.NOT*USE.D£ • 



»002ERR*003ERR*004ER 



•010ERR.011ERR.012ER 



•018ERR.019ERR.020* 



AAKAAAKAAAKJAAN1 AAN9 
8Y888Y8R8Y888Y8 8Y8 
999 999 999 999 999 



GF0GO9SPH7U78OC50051 
9Q-Z 8-8 
Z 9 

4EG7VGADUEA880C50052 
9~Q 82YQ -Y 
2 2 9 

FG09S80DGFVG80C50053 
QZ 88-290 2 
9 99 2 

HAI AAAAF JNAG80C50054 

RZ-Y9ZYQ99QZ 
0 9 9Z 

BNC7V8GG-E0680C50055 
Y 0 8 YZ Q-2 

2 

YEA98EJBMAC080CS0056 
9ZQ QZYQ9-9 

0 I I 

09SGAEAPVJIiA80C5e057 
89Y9Y98YYY - 
9 9 9 999 

.PHO6AB0HAJ.80CS00S8 ' 
9999QY 
99 

VICE«UNDER*T80C50059 



R.00SERR*0O68OCS0Q6O 

R.013ERR*O148OC3OO61 

••*»•••«•••• S0C50062 

HAOA*** 80C50063 

9Y89 

99 

.••••••*****80C50064 

•.*^*****#**80C50065 
•*.*«*******80C50066 

******80C50067 



DATE 

EC 



16JUN65 
124263 



22JUN65 
124249 



15JUL65 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
125655 
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DATE 

ec 



16JUN65 

124263 



22JUN65 
124249 




15JUL6S 
124265 



15DEC65 
125601 



15MAR66 
125632 



15N0V66 
125655 



ID F80C-5 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F80C 2821 SCAN 1403 UCS OVERLAY 14 2 



BTXT «AKD*« A8**AA BAGF A.9/GA8DBB7AEB7AG-9M 

9 Y8Y Y9 Y99YQQ - 8ZYQQ-0 R-0 RZ 0 

99 9 9 9ZZ 9 Z 

BTXT • AKD* • A8 • • AAKC7V 55FJ9/AAFA+A0HBD1SEA 

9 Y8 Y9 Y9 0 8 8-Y 8ZYQQ Y Z-9 9ZQ 

99 9 9 9 9 9ZZ 9 0 

8TXT*AKD*« A8*« AABODG FPG09SAB8GGACFAD8HGA 

9 Y8Q Y9 Y98-29 Q Z 8-9 9ZYQ2-9 9ZY 

992 9 9 9 I 9 Z 

BTXT*AL4**AS**AAIU8H $AEK8O0GFPG09SAAF-t£A 

9 ¥89 Y9 Y9- 9 2YQY8-Z9QZZ 82 QQ Y 

99 9 9 299 Z 9 Z 9 

BTXT* ALU** A8**AAEA2Y EA98AA1SGABDAB86GACD 

9 Y88 ' Y9 Y9ZQ 9 ZQ Q-9 9ZQQQ-9 9ZYQY 

99 9 9 0 0 1 911 I 

BTXT* ALM. • A8* * AABA1S EA2YEA9BE JB$AB8GGADN 

9 Y80 Y9 Y9-Y 9 ZQ 9ZQ QZYQ9-9 9ZYQ8 

99 999 0 0Z2 Z9 

BTXT* ALD»«A8* »AAC4AA 8HGA0MAAABEA9QG00FB0 

9 Y8Q Y9 Y9Q8-9 9ZYQ8ZQY9ZQ Z Q98- 

999 9 9 29 Z9 99 0 Z 9 

BTXT* AMM** A8**AADGF4 G09SAE8BAA8BADAAGAD2 

9 Y89 Y9 Y9Z9Q8 Z 8Z9 8ZQ 8-9QYZYQ8 

99 9 9 Z 9 9 9 9 99 Z9 

BTXT* AMD. .A8..AANAG- CBPA5454PW5F5FKC7V55 

9 Y88 Y9 Y998Z Q8 0888QQ088 

99 9 9 9 Z Z Z 

BTXT*AMO**A8**AAA08H GADFB0DGFBG09SB0DGFA 

9 Y80Y9 Y9-9 9 ZQQ-8-Z9QYZ 88-Z9Q- 

99 9 9 9Z 9 Z 99 Z 

BTXT*AM0**A8*«AA2YEA 9BE JBMAB8GGADQB0DGFH 

9 Y8Q Y9 Y9 9ZQ QZYQ9-9 9ZYQ 8-29Q- 

990 9 9 0 Z 2 - . .1 9 2 

BTXT*AM4**A8**AAEAB0 DGFFG09SAA6VAJAAAA55 

9 Y8 Y9 Y9QY8- Z9QQZ 8ZY 8ZYY9ZQ 8 

99 9 9 Z99 29 9 9 99 9 

BTXT*ANU**A8**AAFJ9/ AAFA+A0HBA1SEA2YEA9B 

9 Y88 Y9 Y9-Y 8 ZYQQ Y Z-Y 9ZQ 9ZQ Q 

999 9 9 9 9 9ZZ 9 9 0 0 Z 

BTXT • ANM* . A8 . . AA7V55 FA9/AAF«+A0HBA 1SEA2Y 

9 Y8Z Y9 Y9 8 8 -Y 8ZYQ Y Z-Y 9ZQ 9 

99 9 9 9 9Z 9 9 0 

BTXT* AND** A8* * AAGOEK B0EGFGG09SAAABEA9QG0 

9 Y8Q Y9 Y9Z QY 8-Z9GQZ 8ZQY9ZQ Z 

99 9 9 Z 9 Z 9 99 0 

BTXT * ANM* • A8 . • AA8HGA E4AH8HGAD2AA8HGAEFB0 

9 Y8 Y9 Y9 9ZQ Q -9 9ZQQ8-9 9ZQQQ8- 

99 9 9 9 Z 9Z9 9ZZ9 

BTXT*A0D..A8..AAD79/ G0EUB0DGFVG09SGAEAP V 

9 Y88 Y9 Y9-8 8 2 088-98Q 2 89Y9Y98 

999 9 9 9 Z9 9Z 9 9 9 
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F.9/A+ADAD0 JGABHA+AH 
- 8Z Y0-9 ZZYQOZ YR 
9 9 Z- 90 

2YEA9BEM1PGAB4B0DGF0 
9ZQ Q-9 8ZYQ 8-Z9Q- 
0 Z 9 Z 9 Z 

CUB0DGFWB07AG09SAA8H 

Q98-Z9Q8-0 RZ 8-Q 9 
2 9 Z 9 9 

35AAK05655KC7V55FJ9/ 
8QY Y 8 8 0 8 8-Y 8 
9 9 9 9 

AD8MGAC00G9/KA7VAAKB 

-9 9ZG09-Q 8 Y 8QY 0 
92 9 99 9 

AD8HGACFB0DGFEG09SAH 
-9 9ZYQY8-Z9QRZ 8-9 
Z99 20 9 

DGFBG09SB0DGFDG09SAA 
Z9Q Z 88-Z9Q0Z 8ZQ 
Z 99 Z- 9 9 

A JAANAG-DUGODDBODGFC 

Z9Y9992 Q9Z QZ8-29Q0 
9 Z 2 9 2 

FJ9/AAFA+A0HBA1SEA2Y 
-Y 8ZYQQ Y 2-Y 92Q 9 
9 9 922 9 9 0 

G09SDG9/BG7VKB7W7VAA 

2 8-Q 8-Q 8 0 8 82Y 
9 9 9 2 9 

GO9SAE8BAA8BADAAGA06 
2 8Z9 820 8-9QY2QQ 
9 9 9 9 99 92 

B/AAASAAE* AAGAEDAJAA 
Z9YYZ9Y9- QYZYQ8Z9Y9 
99 9 99 Z9 9 

AB8GGAEHAD8HGAC0G00F 
-9 9ZYQR-9 9ZQQ9Z QY 
2 92 29 

EA9BEJBMA63GGAEFAA6H 
ZQ QZYQ9-9 9ZYCQ-Q 9 
0 Z Z ZZ 9 

EHAD9XGA02B0DGF0G09S 
Q -9 92YQ88-29Q0Z 8 
2 299 2 9 

DGFCG09SB0DGFNG09SAA 
Z9QQZ 88-Z9QYZ 8~Y 
ZO 99 2 9 

JAAHEAPVJAAALAN4-AAA 
YYY-9Y98YYY9YY98 YY9 
999 9 999 99 99 



PA5454PW5F5F80C50068 
0 8 8 8 Q Q 

2 Z 

G09SAA1SGACF80C50069 
2 8-9 92YQ9 
9 Z 

GAEHAH8HGACD80C50070 
ZQQ -9 9ZQQQ 

92 9Z2 

AAFA+AOHB01S8OC5OO71 
ZYQQ Y 2-9 9 
922 9 

7W7VAAFJ+A0H80C50072 

8 82YQY Y 2 

9Z9 9 

8HGAC0AB8HGA80C50073 
9ZQQQ-9 9ZQ 
9ZZ 9 

AAEA9QG0EHB080C50074 
Y9ZQ Z 5 8- 

9 0 2 9 

G09SAAFPAIAA80C50075 

2 82YQ22-Y9 
9 92 9 

EA9BAB8GGADJ60C50076 
2Q Q-9 92YQY 
0 2 2 

FJtA0HBAlSEA80C50077 

QY Y 2-Y 92Q 
29 9 9 0 

AJAANAG-DSG080C50078 

29Y9992 Q82 
9 Z 

NAG-EDKC7V5580C50079 
9Q2 Q8 0 8 8 

9 29 

DG9/PC7V7VKG80C50080 
-Q 8 0 8 8 R 
9 9 0 

GAEKAAAAEA9Q80C50081 
2YQ ZQY9ZQ 

Z 99 0 

B0DGFI609SAD80C50082 
8-Z9Q Z 8-9 
9 Z 9 

9/GAFMKG7V5580C50083 
8ZYQ9 R 8 
9 Z 0 

CAN5JAADL AN480C50084 
QY98YY99YY98 

Z9 99 99 
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F80C 2821 SCAN 1403 UCS OVERLAY 1+2 



f 



8TXT*A0D* 
9 Y8Z 
99 



. A8. ♦ AA-AAA 
Y9 Y9 YY9 
9 9 99 



AAPVJAAHLAN4-AAACAN5 
8Y98YYYRYY98 YY9QY98 
99 999099 99 Z9 



BTXT.AQ4. 

9 Y88 
99 



.A8..AAERR. 

Y9 Y9 
9 9 



024ERR. 025ERR. 026ERR 



BTXT* AOD* 

9 Y80 
99- 



» A3* *AAERR« 

Y9 Y9 
9 9 



032ERR*033ERR*034ERR 



BTXT* AOM* 
9 Y8Y 
999 



• AH**AARS*F 
Y9 Y9 
9 9 



OUND* 



BRLD*«« 
9 



• AY* • • • AAAA 
Y9 Y9Y9 
9 9 9 



AAANAA0/AA0/AA01AA01 
8YQ98Y898Y888Y898Y88 

999 999 9999999 9999 



BEND..*** 
9 



* « * • AA* m 

Y9 
9 



BOAT* 



JAAA0S08DFGERR.021ER 
YYY9+8 QQQ 
999 ZZZ 



R«022ERR«02380CS008S 



•027ERR.028ERR.029ER 



R*030ERR*03180C50086 



«035ERR*036ERR*037ER R.038NO.ERR080C50087 



•80C50088 



AAOAAAOAAAOAHAOJ** * . 
8Y8Z8Y888Y8R9Y88 
999 999 999 99 



•80C50089 



•80C50090 



»••••••••*•»•••••••« 



»80C5CO91 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840225 

PAGE 1 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F8003 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 



80D3 TITLE F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 

* * 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS * 

* FOLLOWS... * 

* * 

* 1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03- * 

* THIS ROUTINE WAS NOT MODIFIED. * 

* 2. UCS DATA REG FLT -ROUTINE OVERLAY 04- * 

* A MESSAGE WAS ADDED TO INDICATE THAT THE CONTENTS OF * 

* THE UCS BUFFER WAS DESTROYED, AND COULD BE RESTORED * 

* BY PROGRAM F837. * 

* 3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FF- * 

* THIS ROUTINE WAS DELETED FROM THE PROGRAM PACKAGE. * 
' * THE SCAN PROGRAMS NO LONGER RESTORE THE UCS BUFFER— * 

* THEREFORE » DATA CARDS DEFINING THE UCS CHAIN * 

* CONFIGURATION ARE NOT TO BE ADDED TO F80C/F8/D. * 

* PROGRAM F837 IS TO BE USED TO RESTORE THE UCS BUFFER. 1 * 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* 1. MACHINE * 

* 2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125655 * 

* 2. PROGRAM * 

* NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125655, DATED 1 NOV 66 OR LATER * 

* t * 

* * 

* REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS * 

* FOLLOWS... * 

* * 

* 1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03- * 

* THIS ROUTINE WAS NOT MODIFIED - * 

* 2. UCS DATA REG FLT -ROUTINE OVERLAY 04- * 

* THIS ROUTINE WAS NOT MODIFIED * 

* 3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FF- * 

* THE OPTION TO RESTORE THE UCS BUFFER WITH THE DATA * 

* CHECK LATCH -ON- OR -OFF- WAS INCLUDED. IF SECTION * 

* SENSE SWITCH 28 IS SET TO 1, THE DATA CHECK LATCH * 

* WILL BE TURNED -ON-OTHERWISE, THIS LATCH WILL REMAIN * 

* IN THE -OFF- STATE. * 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* I. MACHINE * 

* 2821 CONTROL UNIT WITH UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125632 * 

* 2. PROGRAM * 

* NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125632t DATED 15 MAR 66 OR LATER * 

* * 

XF80D3 START 4096 
#01000 v USING *«15 

* ROUTINE OVERLAY 3 \ * 
***********************************^*************^ 

* RESIDENT LABELS ADDRESSED BY OVERLAYS * 

001000 0 SECWO EQU * 
001004 SNSW EQU SECNO+4 

001040 CSW EQU SEC NO* 64 

DATE 16JUN65 15JUL65 15MAR66 15N0V66 ID F80D-3 

EC 124263 124265 ° 125632 125655 PAGE 1 
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001015 



00176C 
00176C 
00176E 
001770 
001774 
001778 



00182E 
001S2E 
001830 



001830 



07 00 

07 00 
00000000 
00000000 
00000000 



001048 
0010EO 
0010E2 
001118 
001108 
001122 
00119F 
0011A4 
001121 
001120 
00157C 
001678 
001228 
001751 
001753 

001015 

00176C* 



CAW EQU 
UNIT1 EQU 
U1ADDR EQU 
SI0VR3 EQU 
SI0VR4 EQU 
SIOSWS EQU 
STATSV EQU 
CSWAG EQU 
CAWKEY EQU 
SENSE EQU 
SCPDAT EQU 
SCPROO EQU 
SIO EQU 
SCHNUM EQU 
UAPRT EQU 



SECNO+72 

SECNO+224 

SECN0+226 

SECNO+280 

SECNO+264 

SECNO+290 

SECNO+415 

SECN0+420 

SECNO+289 

SECNQ+288 

SECNQ+1404 

SECN0+1656 

SECNO+552 

SECNO+1873 

SECNO+1875 



*********#**************************^ 

ORG SECNO+21 

DC AL3( RTN03) INITIAL PSW STARTING ADDR FOR RTN 03 

ORG SECNO+1900 

* VARIABLES FOR ROUTINE 03 - DOUBLE WORD BOUNDARY * 

CNOP 0,8 ALIGN ON OOUBLE WORD BOUNDARY 

BCR 0,0 
BCR 0,0 
WKAR DC 3F»00« 

* VARIABLES FOR ROUTINE 03 - NO BOUNDARY * 



00 177 C 


000000000000000000 


DATWK 


DC 


XL10»00 f 




001785 


00 










001786 


80 ' 


DAT80 


DC 


X'80' 




001787 


000000000000000000 




DC 


XL9«00» 




001790 


40 


DAT40 


DC 


X«40» . 




001791 


000000000000000000 




DC 


XL9«00» 




00179A 


20 


DAT20 


DC 


X»20' 




00179B 


000000000000000000 




DC 


XL9*00« 




0017A4 


10 


DAT10 


DC 


X»10» 




0017A5 


000000000000000000 




DC 


XL9*00» 




0017AE 


08 


DAT08 


DC 


X«OS* 




0017AF 


000000000000000000 




DC 


XL9«00 t 




00 17 88 


04 


DAT04 


DC 


X»04« 




0017B9 


000000000000000000 




DC 


XL9«00 t 




0017C2 


02 


DAT02 


DC 


X«02« 




0017C3 


000000000000000000 




DC 


XL9»00* 




0017CC 


01 . * - 


DAT01 


DC 


X»01« 




0017CD 


000000000000000000 




DC 


XLg^O^ 




0017D6 


* 00 


DATOO" 


DC 


X«00« 




0017D7 


OOOOOOOOOOOOOOOOOQ 




DC 


XL9»00« 




O017E0 


FF 


DATFF 


DC 


X*FF« 




0017E1 


OOOOOOOOOOOOOOOOOQ 


MSG1 


DC 


XL9*00 t 




0017EA 


D5D640C4C1E3C140E3 


DC 


C'NO DATA 


TRANSFER' 


0017F3 


D9C1D5E2C6C5D9 










0017FA 


D9C5C440C2E840C4C9 




DC 


C f RED BY DIAGNOSTIC 


001803 


C1C7D5D6E2E3C9 










00180A 


C340C3C8C5C3D240D9 




DC 


C«C CHECK 


READ FOR* 


001813 


C5C1C440C6D609 










00181A 


40C4C5E5C9C3C540E? 




DC 


C» DEVICE 


XXX • 


001823 


E7E7 






C •ERfl 000 




001825 


C5D9094OFOFOFO4O 


ifcRXx 


be 





07 00 
03 



* ROUTINE 03 PREFIX * 

***#***********♦***♦♦*♦*♦*»«*♦♦*♦***»*****«**********♦***************** 

CNOP 0,4 FULL WORD ALIGNMENT 

BCR OtO ■ * 

RTN03 DC XL1«03* ROUTINE NUMBER 
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EC 124263 124265 125632 125655 



ID F80D-3 I 
PAGE 1A i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 
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001831 


00 














DC 


XL1 , 00 < 


001832 


FFFE 












DC 


X 'FFFE • 


001834 


95 


83 


F 


751 






PBDROO CLI 


SCHNUMtX'83 8 


001838 


47 


80 


F 


83E 








BC 


EQf PBDR01 


00183C 


OA 


D6 












SVC 


X »D6 • 


00183E 


91 


02 


F 


004 






PBDR01 


TM 


SNSWt X'02 • 


001842 


47 


80 


F 


84C 








BC 


NONE t PBDR02 


001846 


OA 


00 












SVC 


X'DO 1 


001848 


80 














DC 


X»80* 


001849 


20 














DC 


X^D 1 


00184A 


FB08 












DC 


AL2 ( TI TLE-BASE+REG) 


00184C 


91 


40 


F 


004 








TM 


SNSW,X f 40« 


001850 


47 


80 


F 


858 








BC 


NONE t PBDR10 


001854 


45 


80 


F 


678 








BAL 


R8,SCPR00 
















# 

, * 


n ATA 
U A 1 A 


bULLCb 1 A UM KUUI A UC 


001858 


41 


10 




786 






onno 1 n 


1 A 
LA 




00185C 


41 


20 


•F 


7EA 








LA 


. D.ATFF+1 O 


001860 


02 


00 


f= 


77C 


I 


000 


rOUKii 


n Vu 


DAT utc iii.nfni) 

UM 1 It IV I A f fUlKJlf 


001866 


D2 


nn 


F 


57C 


F 


77C 




MVC 


jV»rUA 1 1 k 1 f UA MK 


00186C 


no 


uu 


f 


570 


p 


57C 




nvi* 




001872 


05 

7t 


uu 


F 


122 








M VI' 


SI0SWS,X«00« 


001876 


A \ 


00 


F 


AFO 








LA 


of), ub r r u 


00187A 


50 


00 


F 


048 








C T 


R0,CAW 


00187E 


48 




F 


0E2 








LH 


n i 9,111 Anno 


001882 


AK 


ou 


p 


228 








a a t 
DAL 


oil cm 


00 1 fift& 


ns> 


nn 
uu 


F 


770 


F 


11C 




MVC 


CTAT1 it \ rCUCAUAA 


00188C 


T\0 

yjc 


nn 
uu 


f 


77E 


F 


19F 




n VL- 




001892 


UC. 


nn 
uu 


F 


77F 


F 


120 




MVC 


WRSNS(l) , SENSE 


001898 


A«% 


80 


F 


8E2 








BAL 


rv o f r OUnc U 


00189C 


uc 


00 


F 


780 


F 


57C 




MVC 


UCKRDC1) vSCPDAT 


0018A2 


41 


00 


F 


AF8 






* 


LA- 




0018A6 


50 


00 


F 


048 








ST 


on r a y 


0018AA 


92 


00 


F 


57C 








UWT 

n vi 


Cf pnAT .X • fin • 


0018AE 


45 


B0 


F 


228 








BAL 


on c t n 


0018B2 


D2 


00 


F 


781 


F 


57C 




MVC 


HADn/ 1 \ CTDHAT 
UAKU l X / f jlrUA i 


0018B8 


D2 


00 


p 


782 


F 


1A8 




MVC 


OlAIKUllJ ft JHAgt^ 


0018BE 


D2 


00 


F 


783 


F 


120 




MVC 




0018C4 


45 


80 


F 


8E2 








BAL 


o q _ pa noon 


0018C8 


02 


00 


F 


784 


F 


57C 




MVC 


Dri/on 1 1 \ cr on at 


0018CE 


D2 


09 


x 


000 


p 


77C 


* 


MVC 




0018D4 


41 


10 


1 


00A 








LA 


R1,10CR0 ? R1) 


0018D8 


15 


12 












CLR 


R1,R2 


0018DA 


47 


60 


F 


860 








BC ' 


UNEQt PBDR11 


0018DE 


47 


F0 


F 


924 








BC 


UNC 9 PBDR30 


0018E2 


41 


00 


F 


BOO 






* 

PBDR20 


LA 


R0,CKRCCW 


0018E6 


50 


00 


F 


048 








ST 


R0,CAW 


0018EA 


D2 


01 


F 


57C 


F 


B35 




MVC 


SCPDAT(2) iPBDRKl 


0018F0 


45 


B0 


F 


228 








BAL 


R11,SI0 


0018F4 


05 


01 


F 


57C 


F 


835 




CLC 


. SCPDATC2) tPBORKl 


0018FA 


47 


80 


F 


914 








BC 


EQ t PBDR21 


0018FE 


02 


01 


F 


57C 


F 


B35 




MVC 


SCPDAT(2> ,PBDRK1 


001904 


45 


B0 


F 


228 








BAL 


Rll.SIQ 


001908 


D5 


01 


F 


57C 


F 


B35 




CLC 


SCPDAT(2),PBDRK1 


00190E 


47 


80 


F 


914 








BC 


EQ * PBDR21 


001912 


07 


F8 












8CR 


UNC#R8 


001914 


D2 


02 


F 


822 


F 


753 


PBDR21 


MVC 


MSG1456C3),UAPRT ■ . 


00191A 


OA 


DO 












SVC 


X«DO e 


00191C 


40 














DC 


X«40» 


00191D 


31 














DC 


X«31« 



FLAGS 

ADDRESS OF NEXT ROUTINE 

SEE IF SEARCHING FOR ROUTINE 03 
RUN RTN 03 IF YES 
ROUTINE EXIT 

8R IF SEC SS 06 IS 1 - PRINT TITLE 
BR IF NO 
PRINT TITLE 

t* NORMAL OUTPUT 

tt 45 CHARACTERS 

tt ADDRESS OF MESSAGE 
SEE IF SEC SS 01 IS 1 KANT' UTILITY 
BR IF NO c A 

BR TO UTILITY ROUTINjf 



INITIALIZE 
1 1 

MOVE DATA TO WORK AREA 

SET CHAR. TO BE WRITTEN IN WRITE AREA 

» » ... 
SET SIO PROGRAM SWITCHES 
LOAD DI AG WR CCW ADDR IN CAW 

LOAD PRINTER I/O ADDR IN GR 12 

GO PERFORM DI AG WR 

SAVE DI AG WR CH END STATUS 

SAVE DI AG WR DEV END STATUS 

SAVE DI AG WR SENSE DATA 

GO DO DI AG £K» READ 

SAVE DI AG CK READ DATA 



LOAD DI AG DATA RD CCW ADDR IN CAW 
» t 

CLEAR READ AREA 

GO PERFORM DIAG DATA READ 

SAVE READ DATA 

SAVE READ STATUS 

SAVE READ SENSE DATA 

GO DO DIAG CK READ 

SAVE DIAG CK READ DATA 



SAVE COLLECTED DATA 
ADD 10 TO GR 1 

SEE IF END OF DATA COLLECTION 

BR IF NO 

GO ANALYZE COLLECTED DATA 



LOAD DIAG CK RD CCW ADDR IN CAW 

SET OOFF IN DATA FIELD 

GO DO DIAG CK READ 

SEE IF ANY DATA WAS XFERRED 

GO PRINT ERROR 

SET OOFF IN DATA FIELD 

GO DO SECOND DIAG CK READ 

SEE IF ANY DATA WAS XFERRED 

GO PRINT ERROR 

RETURN 

SET PRINTER ADDR IN OUTPUT MSG 

NO DATA TRANSFERRED BY DIAG CHECK RD 

tt PRINT ERR 

tt 49 CHARACTERS 
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00191E 
001920 



F7EA 

47 FO F 8E2 



DC AL2 ( MSGi-BASE+REG) «» ADDRESS OF MESSAGE 

BC UNCi PBDR20 60 TRY DIAG CK READ AGAIN 

*********************************************************************** 

* DATA ANALYSIS ROUTINE * 

*************************************************** ! ********^*** 4l *^ 4l ^ 4[ ^ 4l 



nn io5a 
UU i7tH 




i n 
iU 


F 


786 


PBDR30 LA 


R1.DAT80 


INITIALIZE ANALYSIS ROUTINE 


nn io?a 


A 1 




r 


J IK, 




LA 


R3»SCPDAT 


t * 


nn \qoc 

UU 


nj 

XjC 


no 


c 
r 


I lU A uuu 


PBDR31 


MVC 


DATWKUO) ,0<R1) 


MOVE DATA GROUP INTO WORK AREA 


nn i o"*^ 




An 


r 


I f I* 




IC 


R4 V DAWR 


SET UP MASK 


00 1936 




00 


•a 


nnn 

UUU 




MVI 


0tR3) ,X«00» 


SET SW SAYING EXPECTED BIT OFF 


nn iqiA 


44 


40 


F 


974 




EX 


R4,PBDR37 


SEE IF EXPECTED BIT ON 


nn i cic 

UU i73C 




nn 
ou • 


r 


OA A 




BC 


NONE tPBDR32 


BR IF NO 


nn i qa*) 
UU IVHZ 


92 


FF 


3 


000 




MVI 


0(R3) t X , FF» 


SET UP TO SAY EXPECTED BIT ON 


nn i o aa 

UU lVHO 


7£ 


nn 
UU 


3 


0 14 


PBDR32 


MVI 


20(R3)#X*00« 


SET SW SAYING DID NOT GET CH END PAR 


nn 1 o/. a 
UU JL9hA 


91 


01 


F 


780 




TM 


WCKRDtX'Ol* 


SEE IF GOT PARITY 


00194E 


47 


80 


F 


95E 




BC 


NONE tPBDR33 


BR IF NO 


00 1952 


.91 


02 


F 


77D 




TM 


STAT1,X«02» 


SEE IF GOT UC WITH CE 


001956 


47 


80 


F 


95E 




BC 


NONE » PBDR33 


BR IF NO 


00 195 A 


92 


FF 


3 


014 




MVI 


20(R3) ,X»FF» 


SET SW SAYING GOT PARITY WITH CE 


00 195E 


41 


10 


1 


00 A 


PBDR33 


LA 


RltlOiROtRl) 


UPDATE ADDRESSES 


001962 


41 


30 


3 


001 




LA 


R3,KR0,R3) 




nn i o a a 
UU XttOO 


15 


12 








CLR 


R1,R2 


SEE IF FINISHED 


nn l q a q 
UU iVoo 


47 


60 


F 


92C 




BC 


UNEQ,PBDR31 


CONTINUE 


AA 1 Q Z. f* 

UOlVoC 


41 


20 


F 


7E0 




LA 


R2,DAT00+10 


SET UP GR 2 


UU 1970 


47 


FO 


F 


978 




BC 


UNCfPBDR40 




ft A IOTA 
UUlV IH 


91 


00 


F 


781 


PBDR37 


TM 


DARDtX«00« 


TEST IF BIT READ OK - USED WITH EX 


001978 


92 


00 


F 


5AE 


PBDR40 


MVI 


SCPDAT+SOfX'OO 1 


SET UP COMPARE FIELDS 


00 197C 


D2 


08 


F 


5AF F 5AE 




MVC 


SCPDAT+51 (9) ,SCPDAT^50 , , 


001982 


92 


FF 


F 


5C2 




MVI 


SCPDAT+70 T X«FF« 


1 1 


00 1986 


D2 


08 


F 


5C3 F 5C2 




MVC 


SCPDAT+71(9)»SCPDAT^70 


00 198C 


05 


07 


F 


57C F 5AE 




CLC 


SCPDAT(8) f SCPDAT*50 


SEE IF UNABLE TO TURN ON ANY OR BIT 


001992 


47 


60 


F 


9A0 




BC 


UNEQf PBDR50 


BR IF NO 


001996 


OA 


DO 








SVC 


X«D0« 


ERR 050 - NO PR BUF DAT REG BITS CAN 












* 






tt BE TURNED ON - PRINT BUFFER DATA 


















tt REG RESET MAY BE ON SOLID 


00 1998 


44 










DC 


X»44» 


, , ERROR OUTPUT 


001999 


07 










DC 


X«07« 


9 « 7 CHARACTERS 


00 199 A 


FB49 








DC 


AL2 ( ERR050-BASE+REG) 


ADDRESS OF MESSAGE 


00199C 


47 


FO 


F 


A70 


* 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 


00 19 AO 


91 


FF 


F 


7DB 


* 

PBDR50 


TM 


DAT00+5»X»FF» 


SEE IF ALL DATA REG BITS ON SOLID 


0019A4 


47 


10 


F 


9AC 




BC 


ALLtPBDR51 


BR IF YES 


0019A8 


47 


FO 


F 


9B6 




BC 


UNCPBDR60 


CONTINUE ANALYSIS 


0019AC 


OA 


DO 






PBDR51 


SVC 


X«D0» 


ERR 051 - ALL PRINT BUFFER DATA REG 












* 






tt BUTS ON SOLID - POSSIBLY NOT 












* 






»» GETTING PRINT BUFFER DATA REG 












* 






tt RESET 


0019AE 


44 










DC 


X»44« 


ft ERROR OUTPUT 


0019AF 


07 










DC 


X«07« 


tt 7 CHARACTERS 


0019BO 


FB50 








DC 


AL2 (ERR051-BASE+REG) 


tt ADDRESS OF MESSAGE 


0019B2 


47 


FO 


F 


A70 


* 


BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


0019B6 


41 


10 


F 


786 


PBDR60 


LA 


R1.DAT80 


INITIALIZE ROUTINE 


0019BA 


41 


50 


0 


034 




LA 


R5,52 


1 1 


0019BE 


41 


20 


F 


7CC 




LA 


R2,DAT01 




0019C2 


D2 


09 


F 


77C 1 000 


PBDR61 


MVC 


DATWK(IO) ,0tRl) 


MOVE DATA TO WORK AREA 


0019C8 


41 


90 


5 


000 




LA 


R9 f 0(R0 v R5) 


SET UP ERROR NUMBER 


0019CC 


43 


40 


F 


770 




IC 


R4«DAWR 


SET UP MASK 


0019D0 


44 


40 


F 


974 




EX 


R4, PBDR37 


SEE IF BIT READ 


0019D4 


47 


80 


F 


9FA 




BC 


NONE * PBDR63 


BR IF NO 


0019D8 


41 


90 


9 


001 




LA 


R9»1(R0,R9) 


SET UP ERROR NUMBER 


0019DC 


44 


40 


F 


9F6 




EX 


R4,PBDR62 




0019E0 


47 


10 


F 


9FA 




BC 


ALL t PBDR63 




0019E4 


15 


12 








CLR 


R1,R2 


SEE IF FINISHED HERE 
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0019E6 


47 80 


F 


A10 






BC 


EQ,PBDR70 


BR IF YES 


0019EA 


41 10 


1 


OOA 






LA 


R1,10{R0,R1> 


UPDATE ADDRESS 


0019EE 


41 50 


5 


002 






LA 


R5,2(R0,R5> 


UPDATE ERROR NUMBER 


0019F2 


47 FO 


F 


9C2 






BC 


UNCP8DR61 


CONTINUE 


0019F6 


91 00 


F 


7DB 






PBDR62 TM 


DATOO+SfX'OO 9 


SEE IF BIT IN OFF STATE - USED BY EX 


0019FA 


4E 90 


F 


770 






. PBDR63 CVD 


R9 v WKAR 


CONVERT ERR NO* TO PRINTABLE 


0019FE 


OA DO 










SVC 


X«DD» 


» t 


001 AOO 


0002 










DC 


AL2C2) 


1 1 


001 A02 


0776 










DC 


AL2< WKAR+6-SECN0) 


» t 


ft ft 1 An/. 
00 1 A04 


0829 










DC 


AL2(ERRXX*4-SECN0) 


♦ t 


001 A06 


OA 00 










SVC 


X«DO» 


ERROR - DATA REG BIT HOT OR CANNOT 














# 




, , BE TURNED ON - ERR NO* IN GR 9 


















,, BYTE 3 


j\r\ i a net , 

001A08 


44 










DC 


X»44» 


tt PRINT ERR 


001 A09 


07 










DC 


X»07« 


, , 7 CHARACTERS 


001 AO A 


F825 










DC 


AL2 ( ERRXX-BASE+REG) 


,, ADDRESS OF MESSAGE 


001 AOC 


47 FO 


F 


A70 






BC 

* ■ 


UNC, LGOUT 


GO SEE IF WANT LOG OUT 


001 A10 


91 FF 


F 


598 






PBDR70 TM 


SCPDAT+28 f X , FF l 


BR IF GOT PARITY WITH CE FOR DAT 00 


001A14 


47 10 


F 


A48 






BC 


ALL ,PBDR72 


t » 


001A18 


05 07 


F 


590 


F 


5C2 


CLC 


SCPDAT+20(8),SCPDAT+70 BR IF GOT PARITY WITH CE FOR ALL 














# 




OTHER BIT SETS 


001 A1E 


47 80 


F 


A3E 






BC 


EQ, PBDR71 


1 1 


00 1A22 


D5 07 


F 


590 


F 


5AE 


CLC 


SCPDAT+20 (8) .SCP0AT+50 SEE IF GOT PARITY WITH CE ANYWHERE 


001A28 


47 60 


F 


A66 






BC 


UNEQf PBDR73 


GR IF YES 


001A2C 


91 FF 


F 


599 






TM 


SCPDAT+29,X»FF« 


BR IF GOT PARITY WITH CE FOR DAT FF 


001A30 


47 10 


F 


A66 






BC 


ALL,PBDR73 


t • 


001A34 . 


OA 00 










SVC 


X«DO« 


PRINT -NO ERRORS DETECTED- 


001A36 


84 










DC 


X»84« 


t » 


001 A37 


12 










DC 


X * 12 • 


18 CHARACTERS 


001A38 


FB37 










DC 


AL2CNERDET-BASE+REG) 


ADDRESS OF MESSAGE 


001A3A 


47 FO 


F 


A70 






BC 


UNC t LGOUT 


GO SEE IF WANT LOG OUT 


001A3E 


OA DO 










PBDR71 SVC 


X«DO« 


ERROR 068 - PRINT BUFFER DATA REG 














* 




,t PARITY BIT ALWAYS ACTIVE 


001A40 


44 










DC 


X»44« 


» t 


001A41 


07 










DC 


X'OT^ 


7 CHARACTERS 


001A42 


.FBC7 










DC 


AL2<£RR068-BASE+REG) 


ADDRESS OF MESSAGE 


001A44 


47 FO 


F 


A70 






BC 


UNC, LGOUT 


GO SEE IF WANT LOG OUT 


001A48 


D5 07 


F 


590 


F 


5C2 


PBDR72 CLC 


SCPDAT+20C8) ,SCPDAT+70 BR IF GOT PARITY WITH CE FOR ALL 


















,, OTHER BIT SETS 


001A4E 


47 80 


F 


A66 






BC 


EQ, PBDR73 


? » 


001A52 


D5 07 


F 


590 


F 


5AE 


CLC 


SCP0AT+20(8),SCPDAT*50 BR IF GOT PARITY WITH CE FOR ANY 














* 




,, OTHER BITS 


001A58 


47 60 


F 


A66 






BC 


UNEQ,PBDR73 




001A5C 


OA DO 










SVC 


X»DO« 


ERROR 069 - PRINT BUFFER DATA REG 














* 




,, PARITY BIT NEVER ACTIVE 


001A5E 


44 










DC 


X»44» 


1 1 


001A5F 


07 










DC 


X«07« 


7 CHARACTERS 


001A60 


FBCE 










DC 


AL2 ( ERR069-BASE+REG) 


,, ADDRESS OF MESSAGE 


001 A62 


47 FO 


F 


A70 






BC 


UNC, LGOUT 


GO SEE IF WANT LOGOUT 


001A66 


OA DO 










PBDR73 SVC 


X»D0« 


ERROR 070 - FALSE PRINT BUFFER DATA 














* 




,, DATA REG PARITY ERRORS 


001A68 


44 










DC 


X*44« 




001A69 


07 










DC 


X»07» 


tYi CHARACTERS 


001A6A 


FBD5 










DC 


AL2 (ERR070-BASE+REG) 


ADDRESS OF MESSAGE 


001A6C 


47 FO 


F 


A70 






BC 


UNC , LGOUT 


GO SEE IF WANT LOG OUT 




























* LOG 


OUT ROUTINE 


* 
















001A70 


91 20 


F 


004 






LGOUT TM 


SNSW,X»20» 


BR IF SEC SS 02 IS 0 - 00 NOT WANT 


O01A74 
















1 1 LOG OUT 


47 80 


F 


A02 






BC ' 


NONEvLGOUTE 




001A78 


41 10 


F 


786 






LA 


R1,DAT80 


INITIALIZE 


001A7C 


41 20 


F 


7E0 






LA 


R2,DATFF 




001A80 


D2 09 


F 


77C 


1 


000 


LGOUTA MVC 


DATWK(IO) ,0(R1) 


MOVE DATA 


001A86 


OA DD 










SVC 


X«DD» 


CONVERT DATA TO PRINTABLE 


001A88 


0009 










DC 


AL2(9) 


t» CONVERT 9 BYTES 


DATE 


16JUN65 




15JUL65 


15MAR66 15N0V66 




ID F80D- 


EC 


124263 




124265 


125632 125655 
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001A8A 


077C 




t 




DC 


AL2 ( DATWK-SECNQ) 


,, HEX DATA ADDRESS 


001A8C 


057C 








DC 


AL2(SCPDAT-SECN0) 


PRINTABLE DATA ADDRESS 


001A8E 


41 


30 


F 


57C 




LA 


R3,SCPDAT 


INITIALIZE 


001A92 


41 


40 


F 


590 




LA 


R4,SCPDAT+20 


t f 


001A96 


41 


50 


F 


5E0 




LA 


R5,SCPDAT+10G 




001A9A 


92 


40 


F 


5E0 




MVI 


SCPDAT+100,X»40« 


SET UP PRINT FIELD 


001A9E 


D2 


30 


F 


5E1 F 5E0 




MVC 


SCPDAT+101 (49) ♦SCPDAT+IQO #» 


001AA4 


D2 


01 


5 


000 3 000 


LGOUTB 


MVC 


0(2,R5) ,0iR3i 




001 AAA 


15 


34 








CLR 


R3,R4 


BR * I F END 


001AAC 


47 


80 


F 


ABC 




BC 


EQ, LGOUTC 




001AB0 


41 


50 


5 


003 




LA 


R5,3(R0,R5) 


UPDATE ADDRESSES 


001AB4 


41 


30 


3 


002 




LA 


R3,2(R0,R3> 




001AB8 


47 


FO 


F 


AA4 




BC 


UNC , LGOUTB 


CONTINUE 


001ABC 


OA 


00 






LGOUTC 


SVC 


X'DO* 


LOG OUT OF ACCUMULATED DATA 


001ABE 


80 










DC 


X«80« 


f 9 


001ABF 


1A 










DC 


XHA 1 


tt 26 CHARACTERS 


001AC0 


F5E0 








DC 


AL2 ( PRTLQG~BA$|H>RE6! 


ADDRESS OF MESSAGE 


001AC2 


15 


12 








CLR 


R1,R2 ' ' 


SEE IF END OF LOG OUT 


001AC4 


47 


80 


F 


ADO 




BC 


EQ, LGOUTD 


BR IF YES 


001AC8 


41 


10 


1 


OOA 




LA 


RltlO(ROtRi) 


UPDATA ADDRESSES 


001ACC 


47 


FO 


F 


A80 




BC 


UNC, LGOUTA 


CONTINUE 


001 ADO 


OA 


DA 






LGOUTD 


SVC 


X«DA« 


HALT ♦ WAIT FOR ACTION 


001AD2 


91 


40 


F 


004 


tGOUTE 


TM 


SNSW,X«40 f 


BR IF SEC SS 01 IS 0 - DO NOT WANT 
•« UTILITY ROUTINE 


001AD6 


47 


80 


F 


ADE 




BC 


NONE, LGOUTF 




001ADA 


45 


80 


F 


678 




BAL 


R8,SCPR00 


Br'tO UTILITY ROUTINE 


001ADE 


91 


20 


E 


1A3 


LGOUTF 


TM 


419(R14) ,X«20» 


IS LOOP ON SEC SS ON 


001AE2 


47 


10 


F 


AEA 




BC 


ALL, LGOUTG 


BR IF YES 


001AE6 


96 


40 


F 


751 




01 


SCHNUM,X«40« 


SET UP TO BYPASS ALL REMAINING OVLYS 


001AEA 


OA 


D6 






LGOUTG 


SVC 


X«D6« 


ROUTINE EXIT 



001AF0 - 05 00157C 2000 0002 
001AF8 02 00157C '2000 0001 
001B00 06 00157C 2000 0002 



* CCW,S USED BY ROUTINE 03 ♦ 

WRCCW CCW X«05 , ,SCPDAT,X»20S2 DIAGNOSTIC WRITE - SILI ON - 
RDCCW CCW X , 02»,SCPDAT,X , 20«,1 DIAGNOSTIC DATA READ - SILI ON - 
CKRCCW CCW X»06« , SCPDAT , X «20 • ,2 DIAGNOSTIC CHECK READ - SILI ON - 

* CONSTANTS FOR ROUTINE 03 - NO BOUNDARY * 



001 808 


F2F8F2F140E2C3C1D5 


TITLE 


DC 


C»2821 SCAN/1403 U« 


001B11 


61F1F4F0F340E4 








001B18 


C3E26B40D7D9C9D5E3 




DC 


CCS, PRINT BUFFER* 


001B21 


40C2E4C6C6C5D9 








001B28 


40C4C1E3C140D9C5C7 




DC 


C 1 DATA REG FLT • 


001B31 


40C6D3E3 








001B35 


OOFF 


P8DRK1 


DC 


X«00FF» 


001B37 * 


D5D640C5D909D6D9E2 


NERDET 


DC 


C'NO ERRORS DETECT • 


001B40 


40C4C5E3C5C3E3 








001B47 


C5C4 




DC 


C«ED» 



* EQUATES * 

* 

GENERAL REGISTER EQUATES 



000000 
000001 
000002 
O00003 
000004 
000005 
000006 
000007 
000008 
000009 
OOOOOA 
000008 
OOOOOC 



RO 

Rl 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

RIO 

Rll 

R12 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
.EQU 
EQU 
EQU 



0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
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OOOOOD 


R13 


EQU 


13 










OOOOOE 


R14 


EQU 


14 










OOOOOF 


R15 


EQU 


15 














CONDITION COOE EQUATES 










OUOOOo 


NONE 


EQU 


8 


ALL OFF 


0 






000005 


ANY 


EQU 


5 


ANY ON 




1 


3 


OOOOOi 


ALL 


EQU 


1 


ALL ON 






3 


000004 


SOME 


EQU 


4 ' 


MIXED 




1 




000009 


NMIXED 


EQU 


9 


NOT MIXED 


0 




3 


000008 


EQ 


EQU 


8 


EQUAL 


0 






000006 


UNEQ 


EQU 


6 


NOT EQUAL 




1 


2 


000004 


LO 


EQU 


4 


LOW 




1 




000002 


HI 


EQU 


2 


HIGH 






2 


AAAAAA 

000008 


Z 


EQU 


8 


ZERO 


0 






000002 


POS 


EQU 


2 


GREATER ZERO 






2 


000008 


ceo 


EQU 


8 


AVAILABLE 


0 






000004 


CC1 


EQU 


4 


CSW STORED 




1 




000002 


CC2 


EQU 


2 


BUSY 






2 


OOOOOF 


UNC 


EQU 


15 


UNCONDITIONAL 


0 


1 


2 3 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 


0 


1 


3 


000007 


NZ 


EQU 


7 


NOT CC 0 




1 


2 3 


000004 


NEC 


EQU 


4 


NOT ZERO -AND- 




1 




OOOOOC 


ZNEG 


EQU 


12 


MIXED OR NONE 


0 


1 




000008 


CSWNST 


EQU 


11 


CSW NOT STORED 


0 


2 3 




* * 
♦ 


GENERAL EQUATES 










000040 


HCSW 


EQU 


64 


HARDWARE CSW LOCATION 


000048 


HCAW 


EQU 


72 


HARDWARE CAW LOCATION 


000078 


HION 


EQU 


120 


HARDWARE I/O NEW 


PSW LOCATION 


001118 


CSWSAV 


EQU 


SI0VR3 












* 

* 


EQUATES FOR ROUTINE 03 


EXCLUSIVELY 








00177D 


STAT1 


EQU 


DATWK+1 










00177E 


STAT2 


EQU 


DATWK+2 










00177F 


WRSNS 


EQU 


DATWK+3 










001780 


WCKRD 


EQU 


DATWK+4 










001781 


DARD 


EQU 


DATWK+5 










001782 


STATRD 


EQU 


DATWK+6 










001783 


RDSNS 


EQU 


DATWK+7 










001784 


RCKRD 


EQU 


DATWK+8 










001785 


STSW 


EQU 


DATWK+9 










00177C 


DAHR 


EQU 


DATWK 










0015E0 


PRTLOG 


EQU 


SCPDAT+100 











* ERROR DEFINITION FOR ROUTINE 03 * 



001849 


C509D940F0F5F0 


ERR050 
* 


DC 


C'ERR 


050 • 


NO PRINT BUFFER DATA REG BITS CAN 
tt BE TURNED ON - PRINT BUFFER 
t, DATA REG RESET MAY BE ON SOLID 


001B50 


C5D9D940F0F5F1 


ERR051 
* 


DC 


C •ERR 


051 • 


ALL PRINT BUFFER DATA REG BITS ARE 
,, ON. SOLID.- NOT GETTING PRINT 
«, BUFFER DATA REG RESET 


001B57 


C5D9D940F0F5F2 


ERR052 
* 


DC 


C • ERR 


052 • 


PRINT BUFFER DATA REG BIT 0 NEVER 
«* ACTIVE 


001B5E 


C5D9D940F0F5F3 


ERR053 


DC 


C'ERR 


053 8 \ 


PRINT BUFFER DATA REG BIT 0 ALWAYS 
v* ACTIVE 


001B65 


C5D9D940F0F5F4 


ERR054 
* 


DC 


C 'ERR 


054' 


PRINT BUFFER DATA REG BIT 1 NEVER 
tt ACTIVE 


00186C 


C5D9D940F0F5F5 


ERR055 
* 


DC 


C'ERR 


055 • 


PRINT BUFFER DATA REG BIT 1 ALWAYS 
tt ACTIVE 


001B73 


C5D9D940F0F5F6 


ERR056 


DC 


C'ERR 


056 8 . 


PRINT BUFFER DATA REG BIT 2 NEVER 
*t ACTIVE 


001B7A 


C5D9D940F0F5F7 


ERR057 


DC 


C'ERR 


057' 


PRINT BUFFER DATA REG BIT 2 ALWAYS 
ACTIVE 
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001B81 


C5D9D940F0F5F8 


ERR058 


DC 


C'ERR 


058' 


PRINT BUFFER 


DATA 


REG 


BIT 


3 


NEVER 




C5D9D940F0F5F9 


* 








ft ACTIVE 












001B88 * 


ERR059 
* 


DC 


C'ERR 


059' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


3 


ALWAYS 


001B8F 


C5D9D940F0F6F0 


ERR060 


DC 


C'ERR 


060' 


PRINT BUFFER 


DATA 


REG 


BIT 


4 


NEVER 






* 








tt ACTIVE 












001B96 


C5D9D940F0F6F1 


ERR061 
♦ 


DC 


C'ERR 


061' 


PRINT BUFFER 
t, ACTIVE 


DATA 


REG 


BIT 


4 


ALWAYS 


001B9D 


C5D9D940F0F6F2 


ERR062 


DC 


C'ERR 


062' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


5 


NEVER 


001BA4 


C5D9D940F0F6F3 


ERR063 
* 


DC 


C'ERR 


063' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


5 


ALWAYS 


001BAB 


°C5D9D940F0F6F4 


ERR064 


DC 


C'ERR 


064' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


6 


NEVER 


001BB2 


C5D9D940F0F6F5 


ERR065 

* • 


DC 


C'ERR 


065' 


PRINT BUFFER 
,, ACTIVE 


DATA 


REG 


BIT 


6 


ALWAYS 


001BB9 


C5D9D940F0F6F6 


ERR066 
* 


DC 


C'ERR 


066' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


7 


NEVER 


001BC0 


C5D9D940F0F6F7 


ERR067 
* 


OC 


C'ERR 


067' 


PRINT BUFFER 
tt ACTIVE 


DATA 


REG 


BIT 


7 


ALWAYS 


001BC7 


C5D9D940F0F6F8 


ERR068 


DC 


C'ERR 


068' 


PRINT BUFFER 


DATA 


REG 


PARITY BIT 














«t ALWAYS ACTIVE 










001BCE 


C5D9D940F0F6F9 


ERR069 


DC 


C'ERR 


069' 


PRINT BUFFER 


DATA 


REG 


PARITY BIT 






* 








,, NEVER ACTIVE 










001BD5 


C5D9D940F0F7F0 


ERR070 


DC 


C'ERR 


070' 


FALSE PRINT BUFFER DATA REG 


PARITY 



* t« ERRORS [ 

001000 BASE EQU SECNO 

OOFOOO* REG EQU X'F000 t 

END ° 



j 



■i - ■ ■ 

DATE 16JUN65 15JUL65 1.5MAR66 15N0V66 ~. ID F80D-3 

EC 124263 124265 125632 125655 . PAGE 4A 



ooooooo-ooooooooooooooooooooooooooo 



cccccccccccccccc c 



I8M MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 84022 5 
PAGE 5 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



4 



1 


8 


2 














1AAC 


1 


8 


EQ 


1838, 
1AC4 


18FA, 


190E, 


19E6, 


1A1E, 


1A4E, 


1 


2 


HI 
















1 


4 


LO 
















1 


7 


NZ 
















1 


0 


RO 


1876, 


187A, 


18A2, 


18A6, 


18D4, 


18E2, 


18E6 








195E, 


1962, 


19C8, 


19D8, 


19EA, 


19EE, 


1AB0 








1AB4, 


1AC8 












1 


1 


Rl 


1858, 


1860, 


18CE, 


18D4, 


18D4, 


1808, 


1924 








192C, 


195E, 


195E, 


1966, 


19B6, 


19C2, 


19E4 








19EA, 


19EA, 


1A78, 


1A80, 


1AC2, 


1AC8, 


1AC8 


1 


2 


R2 


185C, 

1AC2 


18D8, 


1966, 


196C, 


19BE, 


1.9E4, 


1A7C 


1 


3 


R3 


1928, 
1A8E, 


1936, 
1AA4, 


1942, 
1AAA, 


1946, 
1AB4, 


195A, 
1AB4 


1962, 


1962 


1 


4 


R4 


1932, 


193A, 


19CC, 


19D0, 


19DC, 


1A92, 


1AAA 


1 


5 


R5 


19BA, 
1AB0 


19C8, 


19EE, 


19EE, 


1A96, 


1AA4, 


1AB0 


1 


6 


R6 
















1 


7 


R7 
















1 


8. 


R8 


1854, 


1898, 


18C4, 


1912, 


1ADA 






1 


9 


R9 


19C8, 


19D8, 


19D8, 


19FA 








1 


1 


ALL 


19A4, 


19E0, 


1A14, 


1A30, 


1AE2 






1 


5 


ANY 
















\ 


1048 


CAM 


187A* 


18A6, 


18E6 










1 


8 


CCO 
















1 


4 


CC1 
















I 


2 


CC2 
















I 


1040 


CSW 
















I 


4 


NEG 
















I 


2 


POS 
















I 


A 


RIO 


















8 


Rll 


1882, 


18AE, 


18F0, 


1904 






- 


1 


c 


R12 


187E 














1 


D 


R13 , 
















1 


E 


R14 


1ADE 














1 


F 


R15 
















1 


FOOD 


REG 


184A, 
1A60, 


191E, 
1A6A, 


199A, 
1AC0 


19B0, 


1A0A, 


1A38, 


1A42 


1 


1228 


SIO 


1882, 


18AE, 


18F0, 


1904 








1 


F 


UNC 


18DE, 


1912, 


1920, 


1970, 


199C, 


19A8, 


19B2 








19F2, 


lAOCt 


1A3A, 


1A44, 


1A62, 


1A6C, 


. 1A88 








1ACC 














1 


1000 


BASE 


184A,' 
1A6Q, 


191E, 
1A6A, 


199A, 
1AC0 


19B0, 


1A0A, 


1A38, 


1A42 


10 


1781 


DARO 


1882, 


1974 












10 


177C 


DAWR 


1866, 


1932, 


19CC 










1 


48 


KCAW 
















1 


40 


HCSW 
















1 


78 


HION 
















16 


17EA 


MSG1 


1914* 


191E 












1 


8 


NONE 


1842, 
1AD6 


1850, 


193E, 


194E, 


1956, 


19D4, 


1A74 


1 


1004 


SNSW 


183E, 


184C, 


1A70, 


1A02 








1 


4 


SOME 
















10 


1785 


STSW 
















1 


6 


UNEQ 


18DA, 


1968t 


1992, 


1A28, 


1A58 






4 


1770 


WKAR 


19FA, 


1A02 












1 


C 


ZNEG 
















1 


11A4 


CSWAG 


1888 















DATE 
EC 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 15N0V66 
125632 125655 



ID F8CD-3 
PAGE 5 
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I&M MAINTENANCE DIAGNOSTIC PROGRAM 
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P/N 840225 
PAGE 5A 



1 


17D6 


DAT 00 


196C , 


19A0, 


1 OCA 


*• 


1 


17CC 


DAT 01 


19BE 








1 


17C2 


DAT 02 










1 


17B8 


DAT04 










1 


17AE 


DAT 08 










1 


17A4 


DAT 10 










1 


179A 


DAT 20 










1 


1790 


DAT40 










1 


1786 


OAT 80 


1858, 




\ on a _ 

L 7B O , 


1 ATfl 


1 


17E0 


DAT FF 


io!>U , 


iA f I* 






10 


177C 


DATWK 


1860, 


18CE , 


1 09f - 
1 , 


i or 9 . 








IB 49, 


1B49, 


1 RAO . 


1 A1Q ^ 
LOIt f 








1B49, 


1DH7 






8 


1825 


ERRXX 


1A04, 


1 A AA 

1AUA 






4 


1A70 


LGOUT 


199C , 








10 


1784 


RCKRD 


1 8C 8 








8 


1AF8 


RDCCW 


18A2 








10 


1783 


RDSNS 


18BE 








1 


1830 


RTN03 


1015 








1 


1000 


SECNO 


1000, 


1UUU, 


lUUU , 


i /ion. 

ivUv f 








1000, 


xUUU, 


i UUUf 


i nnn. 

1UUU y 








1000, 


iUUUt 


i Ann. 


1000, 








1A8A, 


1 A SkC 

lAOv# , 


IDUv 




1 


1120 


SENSE 


1892, 


18BE 






10 


177D 


STAT1 


1886, 


1952 






10 


177E 


STAT2 


188C 








16 


1B08 


TITLE 


184A 








1 


1753 


UAPRT 


1914 








1 


10E0 


UNIT1 










10 


1780 


WCKRD 


189C, 


194A 






8 


1AF0 


WRCCW 


1876 








10 


177F 


WRSNS 


1892 








1 


1121 


CAWKEY 










8 


1B00 


CKRCCW 


18E2 








1 


B 


CSWNST 










o I 


1118 


CSWSAV 


1886 








7 


1B49 


ERR050 


199A 








7 


1B50 


ERR031 


19B0 








7 


IB 57 


ERR052 








° 


7 


IB5E 


ERR053 










7 


IB 65 


ERR054 










7 


1B6C 


ERR055 










7 


1B73 


ERR056 










7 


1B7A 


ERR057, 










7 


1B81 


ERR058 










7 


1B88 


ERR059 










7 


1B8F 


ERR060 










7 


1B96 


ERR061 










7 


1B9D 


ERR062 










7 


1BA4 


ERR063 










7 


1BA8 


ERR064 










7 


1BB2 


ERR065 










7 


1BB9 


ERR066 










7 


1BC0 


ERR067 










7 


1BC7 


ERR068 


1A42 








7 


1BCE 


ERR069 


1A60 








7 


1BD5 


ERR070 


1A6A 








6 


1A80 


LGOUTA 


1ACC 








6 


1AA4 


LGOUTB 


1AB8 








2 


1ABC 


LGOUTC 


1AAC 








2 


1AD0 


LGOUTD 


lAC4 o 








4 


1AD2 LGOUTE 


1A74 








4 


1ADE 


LGOUTF 


1AD6 








2 


IAEA 


LGOUTG 


1AE2 








16 


1837 


NERDET 


1A38 








1 


9 


MM IX ED 










1 


D 


N0T8SY 










4 


1834 


PBDROO 











1A80, 



1A8A, 
1B49, 



1B49 
1B49 



1A62, 1A6C 



1000, 
1000, 



1000, 
1000, 
1A02, 



1000 
1000 
1A04 



DATE 
EC 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
PAGE 5A 



i 



DATE 
EC 



18C4,! 1920 
190E ' 



1956 
19D0 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 



1838 

1842 

1850 

18DA 

1898, 

18FA, 

18DE 

1968 

193E 

194E, 

193A, 

1970 

1992 

19A4 

19A8 

19F2 

19DC 

19D4, 

19E6 

1A1E 

1A14 

1A28, 

18EA, 

1AC0 

1834, 

1866, 

18EA, 

197C, 

1A18, 

1A52, 

1A9E, 

1854, 

1872 

1B49 



P/N 840225 
PAGE 6 



4 


183E 


PBDR01 


4 


184C 


PBDR02 


4 


1858 


PBDR10 


6 


1860 


P8DR11 


4 


18E2 


P8DR20 


6 


1914 


PB0R21 


4 


1924 


PBDR30 


6 


192C 


PBDR31 


4 


1946 


PBDR32 


4 


195E 


PBDR33 


4 


1974 


PBDR37 


4 


1978 


PBDR40 


4 


19A0 


PBDR50 


2 


19AC 


PBDR51 


4 


19B6 


PBDR60 


6 


19C2 


PBDR61 


4 


19F6 


PBDR62 


4 


19FA 


PBDR63 


4 


1A10 


PBDR70 


2 


1A3E 


PBDR71 


6 


1A48 


PBDR72 


2 


1A66 


PB0R73 


2 


1B35 


PBDRK1 


1 


15E0 


PRTLOG 


1 


1751 


SCHNUM 


1 


157C 


SCPDAT 



19E0 



1 


1678 


SCPROO 


I 


1122 


SIOSWS 


1 


1118 


SI0VR3 


1 


1108 


SI0VR4 


10 


1782 


STATRD 


! 


119F 


STATSV 




10E2 


U1ADDR 


1 


1000 


XF80D3 



1A30, 


1A4E, 


1A58 








18F4, 


18FE, 


1908 








1AE6 












186C, 


186C, 


189C, 


18AA, 


18B2, 


18C8 


18F4, 


18FE, 


1908, 


1928, 


1978, 


197C 


1982, 


1986, 


1986, 


198C, 


198C, 


1A10 


1A18, 


1A22, 


1A22, 


1A2C 9 


1A48, 


1A48 


1A52, 


1A8C, 


1A8E, 


1A92, 


1A96, 


1A9A 


1A9E, 


1AF0, 


1AF8, 


1B00, 


1B49 




1ADA 













18B8 
188C 
187E 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
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P/N 840225 
PAGE 6A 



001015 



00176C 
00176C 
00176E 
001770 
001774 
001778 



DATE 
EC 



001000 



80D3 TITLE F80D3 UNIV. CHAR* BUFFER DATA REGISTER ROUTINE OVERLAY 4 
XF80D3 START 4096 
USING *,15 

*********************************************************************** 

* * 

♦ ROUTINE OVERLAY 4 * 

* * 

*********************************************************************** 

♦ RESIDENT LABELS ADDRESSED BY OVERLAYS * 
*********************************************************************** 



001898 



07 00 

07 00 
00000000 
00000000 
00000000 



001000 
001004 
001040 
001048 
0010E0 
0010E2 
001118 
001108 
001122 
00119F 
0011A4 
001121 
001120 
00157C 
001678 
001228 
001751 
001753 

001015 

00176C 



SECNO 
SNSW 

csw 

CAW 
UNIT1 
U1ADDR EQU 
SI0VR3 EQU 
SI0VR4 EQU 
SIOSWS EQU 
STATSV EQU 
CSWAG EQU 
CAWKEY EQU 
SENSE EQU 
SCPDAT EQU 
SCPROO EQU 
SIO EQU 
SCHNUM EQU 
UAPRT EQU 



EQU 
EQU 
EQU 
EQU 
EQU 



* 

SECNO+4 

SECNO+64 

SECNO+72 

SECNO+224 

SECNO+226 

SECN0+280 

SECNO+264 

SECNO+290 

SECNO+415 

SECN0+420 

SECN0+289 

SECNO+288 

SECNO+1404 

SECN0+1656 

SECN0+552 

SECNO+1873 

SECNO+1875 



*********************************************************************** 

ORG SECNO+21 

OC AL3(RTN04) INITIAL PSW STARTING ADDR FOR RTN 04 

ORG SECNO+1900 

*********************************************************************** 

* VARIABLES FOR ROUTINE 04 - DOUBLE WORD BOUNDARY * 

*********************************************************************** 

CNOP 0,8 ALIGN ON DOUBLE WORD BOUNDARY 

BCR 0,0 
BCR 0,0 
WKAR DC 3F»00» 

*********************************************************************** 

* VARIABLES FOR ROUTINE 04 - NO BOUNOARY * 

*********************************************************************** 



00177C 


D5D640C4C1E3C140E3 


MSG1 


DC 


C«N0 DATA 


TRANSFER' 


001785 


D9C1D5E2C6C5D9 










00178C 


D9C5C440C2E840C4C9 




DC 


C *RED BY DIAGNOSTI * 


001795 


C1C7D5D6E2E3C9 










00179C 


C340C3C8C5C3D240D9 




DC 


C»C CHECK 


READ FOR* 11 


0017A5 


C5C1C440C6D6D9 










0017AC 


40C4C5E5C9C3C540E7 




DC 


C* DEVICE 


XXX* 


0017B5 


E7E7 










0017B7 


000000000000000000 


DATWK 


DC 


XLIO'OO* 




0017C0 


00 










0017CI 


80 


DAT80 


DC 


X«80« 




0017C2 


000000000000000000 




DC 


XL9 , 00 i 




0017CB 


20 


DAT20 


DC 


X»20« 




0017CC 


000000000000000000 




DC 


XL9»00* 




0017D5 


10 


DAT10 


DC 


X»10» 




0017D6 


000000000000000000 




DC 


XL9»00« 




0017DF 


06 


DAT08 


DC 


x^os* 




0017E0 


000000000000000000 




DC 


XL^'OO* 




0017E9 


04 


DAT04 


DC 


X«04« 




0017EA 


000000000000000000 




DC 


XL9«00 t 




0017F3, 


02 


DAT02 


DC 


X«02" 




0017F4 


000000000000000000 




OC 


XL9 , 00« 





16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
PAGE 6A 



oooooooooooooooooooooooooooooooo 



o o 



occccccccccccccccccccccocooccccocc 
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F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 



F80D3 


UNIV. CHAR. BUFFER OATA 


REGISTER 


ROUTINE OVERLAY 4 


0017FD 


01 


DAT01 


DC 


X'Ol" 


0017FE 


000000000000000000 




DC 


XL9 »00 • 


001807 


00 


OATOO 


DC 


X'OO* 


001808 


000000000000000000 




DC 


XL9 , 00 I 


001811 


40 


DAT40 


DC 


X »40 • 


001812 


000000000000000000 




DC 


XL9 , 00° 


00181B 


FF 


DATFF 


DC 


X'FF" 


00181C 


000000000000000000 




DC 


XL9«00« 


001825 


00 


CDG 


OC 


X«00« 


001826 


000000000000000000 


PLCB 


DC 


XLIO^O' 


00182F 


00 








001830 


000000000000000000 


UCBP 


OC 


XL10 , 00 t 


001839 


00 








00183A 


C5D9D940F0F0F0F0 


ERRX 


DC 


C'ERR 0000* 


001842 


06D9C9C7C9D5C1D340 


RMSG 


DC 


C 'ORIGINAL CONTENT' 


00184B 


C3D605E3C5D5E3 








001852 


E24006C640E4C3E240 




DC 


C«S OF UCS BUFFER • 


00185B 


C2E4C6C6C5D940 








001862 


C6D6D940D7D9C9D5E3 




DC 


C'FOR PRINTER • 


00186B 


C509 








001860 


40404040C4C5E2E309 


RMSG1 


DC 


C« DESTROYED* R« 


001876 


06E8C5C46B40D9 








00187D 


. C5E2E306D9C540E6C9 




DC 


C 'E STORE WITH PROG* 


001886 


E3C840D7D9D6C7 








001880 


09C1D440C6F8F3F7 




DC 


C 'RAM F837" 



4^***********************************^^ 



















ROUTINE 04 PREFIX 


* 


















001896 
















CNOP 


0,4 


FULL WORD ALIGNMENT 


001896 


07 00 










BCR 


0,0 




001898 


04 












RTN04 


DC 


XL1 , 04« 


ROUTINE NUMBER 


001899 


00 














DC 


Xtl'OO* 


FLAGS 


00189A 


FFFF 










* 


DC 


X'FFFF • 


ADDRESS OF NEXT ROUTINE 


00189C 


95 


84 


F 


751 






U8DR00 


CLI 


SCHNUM,X»84« 


SEE IF SEARCHING FOR ROUTINE 04 


00 18 AO 


47 


80 


F 


8A8 








BC 


EQ, U8DR01 


RUN ROUTINE 04 IF YES 


0018A4 


47 


FO 


F 


CBA 








BC 


UNCLGQUTG 


GO PRINT MESSAGE ROUTINE EXIT 


0018A8 


91 


03 


F 


004 






UBDR01 


TM 


SNSW,X , 03« 


BR IF SEC SS 06 IS 1 - PRINT TITLE 


00 18 AC 


47 


80 


F 


8B6 








BC 


NONE ,UBDR02 


BR IF NO 


00 18 BO 


OA 


DO 












SVC 


X»DO« 


PRINT TITLE 


0018B2 


80 














DC 


X»80« 


,, NORMAL OUTPUT 


0018B3 


24 














DC 


X«24» 


36 CHARACTERS 


0018B4 


FCFO 












DC 


AL2 ( TITLE-BASE+REG) 


,, ADDRESS OF MESSAGE 


0018B6 


91 


40 


F 


004 






UBDR02 


TM 


SNSW,X»40» 


SEE IF SEC SS 01 IS 1 - WANT UTILITY 


0018BA 


47 


80 


F 


8C2 








BC 


NONE ,UBDR10 


BR IF NO 


0018BE 


45 


80 


F 


678 






* 


BAL 


R8,SCPR0O 


BR TO UTILITY ROUTINE 
















* 


DATA 


COLLECTION ROUTINE 




0018C2 


41 


10 


F 


7C1 






UBDR10 


LA 


R1,DAT80 


INITIALIZE ROUTINE 


0018C6 


41 


90 


F 


81B 








LA 


R9, DATFF 


• t 


0018CA 


41 


20 


F 


811 








LA 


R2.DAT40 


» » 


0018CE 


41 


50 


F 


807 








LA 


R5,DAT00 




0018D2 


02 


09 


F 


7B7 


1 


000 


UBDR11 


MVC 


DATWK(IO) ,0(R1) 


MOVE DATA TO WORK AREA 


00 18 08 


15 


12 












CLR 


R1,R2 


SEE IF WANT TO WRITE BLANK 


0018DA 


47 


60 


F 


910 








BC 


UNEQ, UBDR15 


BR IF NO 


0018DE 


41 


30 


F 


7C1 








LA 


R3,DAT80 


DETERMINE CHAR TO USE INSTEAD OF 40 


0018E2 


41 


40 


F 


7FD 








LA 


R4,DAT01 


* * 


0018E6 


92 


40 


F 


7B7 








MVI 


0ATWK,X'40« 


*t. 


0018EA 


91 


04 


3 


008 






UBDR12 


TM 


8(R3) ,X«G4« 


» ♦ 


0018EE 


47 


10 


F 


90A 








BC 


ALL ,UBDR14 




0018F2 


15 


34 












CLR 


R3,R4 


» t 


0018F4 


47 


80 


F 


900 








BC 


EQ, UBDR13 


» * 


0018F8 


41 


30 


3 


OOA 








LA 


R3,10<R0,R3) 




0018FC 


47 


FO 


F 


8EA 








3C 


UNCUBDR12 


* • 


001900 


D6 


00 


F 


7B7 


F 


BOB 


UBDR13 


OC 


DATWKU) ,DAT00+4 


t » 


001906 


47 


FO 


F 


910 








BC 


UNCUBDR15 


? t 


00190A 


D6 


00 


F 


7B7 


3 


000 


UBDR14 


OC 


DATWK(l) ,0(R3) 


1 1 
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001910 


D2 


00 


F 


7BB 


F 


7B7 


UBDR15 


MVC 


PW(1),UCBWR 


SET UP DATA TO BE LOADED IN UCB 


001916 


45 


80 


F 


98E 








BAL 


R8,UCSL 


GO LOAD UCS BUFFER 


00191A 


45 


80 


F 


9FA 








BAL 


R8, DCKRD 


GO PERFORM 1ST DIAG CHECK READ 


00191E 


45 


80 


F 


9FA 








BAL 


R8, DCKRD 


GO PERFORM 2ND DIAG CHECK READ 


001922 


D2 


00 


F 


7BA 


F 


57C 




MVC 


UCBWCR(l) tSCPDAT 


SAVE DIAG CHECK READ DATA 


001928 


47 


FO 


F 


94E 








BC 


UNCUBDR18 


GO PERFORM DIAG WRITE 


00192C 


45 


80 


F 


9FA 






UBDR16 


BAL 


R8, DCKRD 


GO PERFORM 1ST DIAG CHECK READ 


001930 


45 


80 


F 


9FA 








BAL 


R8, DCKRD 


GO PERFORM 2ND DIAG CHECK READ 


001934 


D2 


00 


F 


7BF 


F 


57C 


UBDR17 


MVC 


PWCR(l) tSCPDAT 


SAVE DIAG CHECK REAO DATA 


00 19 3 A 


D2 


09 


1 


000 


F 


7B7 




MVC 


0( 10, Rl) ,DATWK 


SAVE ALL COLLECTED DATA 


001940 


15 


19 












CLR 


R1,R9 


SEE IF END OF COLLECTION 


001942 


47 


80 


F 


A36 








BC 


EQ,UBDR20 


BR IF YES 


001946 


41 


10 


1 


OOA 








LA 


Rl, 10(R0,R1) 


UPDATE ADDRESSES 


00194A 


47 


FO 


F 


8D2 






* 


BC 


UNCf UBDR11 


CONTINUE 


00194E 


15 


15 










UBDR18 


CLR 


R1,R5 


SEE IF WANT TO LAOO UCB WITH NULLS 


001950 


47 


80 


F 


95C 








BC 


EQ,UBDR19 


BR IF YES 


001954 


45 


80 


F 


9BC 








BAL 


R8, UCSDW 


GO PERFORM DIAG WRITE 


001958 


47 


FO 


F 


92C 






# 


BC 


UNCUBDR16 


RETURN 


00195C 


IB 


66 










UBDR19 


SR 


R6,R6 


CLEAR GR 6 


00195E 


41 


60 


6 


001 






i in nn n a 

UBDR1A 


LA 


R6,l(R0tR6) 


bcNcRAl c NCR tUUc 


001962 


42 


60 


F 


7BB 








STC 


R6,PW 


SAVE NEW CODE 


001966 


95 


40 


F 


7BB 








CLI 


PW,X»40» 


SEE IF BLANK CODE 


00196A 


47 


80 


F 


95E 








BC 


EQtUBDRIA 


BR IF YES 


00196E 


45 


80 


F 


9BC 








BAL 


R8, UCSDW 


GO PERFORM DIAG WRITE 


001972 


45 


80 


F 


9FA 








BAL 


R8, DCKRD 


GO PERFORM 1ST DIAG CHECK READ 


001976 


45 


80 


F 


9FA 








BAL 


R8, DCKRD 


GO PERFORM 2ND DIAG CHECK READ 


00197A 


91 


04 


F 


57C 








TM 


SCPDAT,X«04« 


SEE IF GOT PLC 


00197E 


47 


10 


F 


934 








BC 


ALL ,UBDR17 


GR IF YES 


001982 


95 


FF 


F 


7BB 








CLI 


PW,X»FF» 


SEE IF USED ALL CODES 


001986 


47 


60 


F 


95E 








BC 


UNEQtUBDRIA 


BR IF NO 


00 198 A 


47 


FO 


F 


934 








BC 


UNCtUBDR17 


END OF GENERATING CODES 
















* 
* 
* 


ROUTINE TO LOAD UCS BUFFER 




00198E 


D2 


00 


F 


57C 


F 


7B7 


UCSL 


MVC 


SCPDATU) ,UCBWR 


SET UP CHAR TO BE WRITTEN 


001994 


02 


EE 


F 


57D 


F 


57C 




MVC 


SCPDAT+1 (239 J tSCPDAT 




00199A 


92 


00 


F 


122 








MVI 


SIOSWS,X«00« 


RESET SIO PGM SWITCHES 


00199E 


41 


00 


F 


CDO 








LA 


ROfLUBCCW 


LOAD CCW ADDR IN CAW 


0019A2 


e 50 


00 


F 


048 








ST 


R0,CAW 




0019A6 


48 


CO 


F 


0E2 








LH 


R12,U1ADDR 


LOAD PRNT I/O ADDR IN GR 12 


0019AA 


45 


BO 


F 


228 








BAL 


R11,SI0 


GO LOAD UCS BUFFER 


0019AE 


D2 


00 


F 


7B8 


F 


1A8 




MVC ' 


UCBST(i) ,CSWAG+4 


SAVE WR UCB STATUS 


001984 


D2 


00 


F 


7B9 


F 


120 




MVC 


UCBSNSU) .SENSE 


SAVE WR UCB SENSE DATA 


0019BA 


07 


F8 










* 


BCR 


UNC ,R8 


RETURN 
















* 


ROUTINE TO PERFORM DIAGNOSTIC WRITE 


0019BC 


D2 


00 


F 


57C 


F 


7BB 


* 

UCSDW 


MVC 


SCPDATU) ,PW 


SET UP CHARACTER TO BE WRITTEN 


0019C2 


02 


00 


F 


57D 


F 


57C 




MVC 


SCPDAT+Kl) ,SCPDAT 




0019C8 


92 


00 


F 


57E 








MVI 


SCPDAT+2,X«00« 


SET NULLS IN REMAINING POSITIONS 


0019CC 


D2 


81 


F 


57F 


F 


57E 




MVC 


SCPDAT+3C130) ,SCPDAT*2 , , 


0019D2 


92 


00 


F 


122 








MVI 


SIOSWS,X«00» 


RESET SIO PGM SWITCHES 


0019D6 


41 


00 


F 


CEO 








LA 


R0,DWRCCW 


LOAD DIAG WR CCW ADDR IN CAW 


0019DA • 


50 


00 


F 


048 








ST 


R0,CAW 




0019DE 


48 


CO 


F 


0E2 








LH 


R12,U1ADDR 


LOAD PRNT I/O ADDR IN GR 12 


0019E2 


45 


BO 


F 


228 s 








BAL 


R11,SI0 


GO PERFORM DIAG WRITE 


0019E6 


02 


00 


F 


7BC 


F 


11C 




MVC 


PW1STC1) ,CSWSAV*4 


SAVE DIAG WR CHAN END STATUS 


0019EC 


D2 


00 


F 


7BD 


F 


19F 




MVC 


PW2STU) ,STATSV 


SAVE DIAG WR DEV ENO STATUS 


0019F2 


02 


00 


F 


7BE 


F 


120 




MVC 


PWSNSC 1 ) , SENSE 


SAVE DIAG WR SENSE OATA 


0019F8 


07 


F8 












BCR 


UNCR8 


RETURN 
















* 


ROUTINE TO PERFORM DIAGNOSTIC CHECK READ 


0019FA 


D2 


01 


F 


57C 


F 


D14 


DCKRD 


MVC 


SCPDAT(2> ,PBDRK1 


INITIALIZE CHECK READ FIELD 


001A00 


02 


82 


F 


57D 


F 


57C 




MVC 


SCPDAT+l ( 131 ) tSCPDAT 




001A06 


92 


00 


F 


122 








MVI 


SIOSWS#X»00« i 


RESET SIO PGM SWITCHES 


DATE 


16JUN65 




I5JUL65 


15MAR66 15N0V66 




,10 F80D-3 


EC 
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001 AO A 


41 


00 


p 


CE8 








LA 


IN W f U\0 KUU H 


! fiAn ni Aft rye on rru Anno tw tau 

LuMU UaAVj Ul\ KU v*V»W AUUK 1IN UAW 


001A0E 


50 


00 


p 


048 








ST 




f f 


001A12 


48 


CO 


p 


0E2 








LH 




i riAn ddkit tin Anno tm no i 3 

L.UAU rKni a/U AUUK in VaK 1* 


001A16 


45 


BO 


p 


228 








BAL 


rii • sin 


GO PFRFORM HI AG fHFfK RFAR 
wU r CftrUnn ui«u vncuiv KCAU 


001A1A 


05 


01 


p 


57C 


p 


D14 




CLC 


SCPDAT(2) .PBDRK1 


SFF TP ANY DATA HAT A UA^ TRAN^FFRRPn 


001 A20 


47 


80 


p 


A26 








BC 


EG .DCKRD1 

*— *M j l/wlMM/4 


RR TP NO. 
on i r nu 


001A24 


07 


F8 












BCR 


UNf .Rft 
Uliv ? f\o 


RETURN 
K C 1 U in IN 


001 A26 


D2 


02 


p 


7B4 


p 


753 


DCKRD1 


MVC 


MSG1+56(3) .11APRT 


<IFT DOINTFR Anno TM nilTDHT MCR 
OC I rnlllt CK AUUK 1IN UUJrUI How 


001A2C 


OA 


DO 












SVC 


• X'DO' 


NO DATA TRAN^FFRRFn RV niAft tit DCAD 
nu UAI A IKAnorCKKCU DT- U AAv Wl\ HCAU 


001A2E 


44 














DC 


X ' 44 * 


t 9 


001A2F 


31 














DC 


X »3X • 


. . aVQ fHARATTFR^ 


001A30 


F77C 












DC 


AL2 (MSG1-BASF+ RFC) 


. • aoorf^ of mp^^ahp 

tt MUUnCdd Ur nCooAuC 


001A32 


47 


FO 


p 


9FA 






* 


BC 




GO TRY niAfi fK RFAO AGAIN 
WU 1 RT UAAU vK KCAU AO A ill 
















* 
* 


DATA 


ANALYSIS ROUTINE 




001A36 


41 


10 


F 


7C1 






UBDR20 


LA 


R1,DAT80 


INITIALIZE 


001A3A 


41 


20 


p 


81B 








LA 


R2 .DATFF 
i\£iun irr 


t * 


001A3E 


41 


30 


p 


826 








LA 


R3tPLCB 


• t 


001A42 


41 


40 


p 


830 








LA 


R4.UCRP 


ii 


001A46 


02 


09 


p 


7B7 


1 


000 


UBDR21 

W W W W\ m» *m 


MVC 


DATUK(IO) •OlRll 

Un 1 rlfM *v 1 f U 1 f\ A f 


MflVF DATA 

nuv C UM 1 M 


001A4C 


92 


00 


3 


000 








MVI 


0(R3) «X'00 ' 


SET SW MAYING NO PI f 


001A50 


91 


04 


p 


7BF 








TM 


PWCR.X*04* 


CpF IF GOT PI r 


001A54 


47 


80 


p 


A5C 








BC 


NONE .URDR22 


RR IP Nfl 
ot\ i r nu 


001A58 


92 


FF 


3 


000 








MVI' 


0(R3) tX'FF 1 


SET SW SAYING GfJT PI f 


001A5C 


92 


00 


4 


000 






UBDR22 


MVI 


0(R4) tX*00* 


SET SW SAYING NO UCB PARITY 


001A60 


91 


04 


p 


7B9 








TM 


UC8SNS ,X '04 • 


SEE IF GOT UCB PARITY 


001A64 


47 


80 


F 


A6C 








BC 


N0NEtUBDR23 


BR IF NO 


001A68 


92 


FF 


4 


000 








MVI 


0(R4) »X*FF 9 


SET SAYING GflT IJfR PARITY 


001A6C 


15 


12 










UBDR23 


CLR 


R1»R2 


SEE IF END 


001A6E 


47 


80 


p 


A82 








BC 


E0«UBDR30 


BR IF YES 


001A72 


41 


10 


1 


OOA 








LA 


R1«10(R0,R1) 


UPDATE ADDRESSES 


001A76 


41 


30 


3 


001 








LA 


R3yl (ROf R3) 


» » 


001A7A 


41 


40 


4 


001 








LA 


R4«l (R0 V R4) 


1 1 


001A7E 


47 


FO 


F 


A46 






* 


BC 


UNC »UBDR21 


CONTINUF 


001A82 


D5 


06 


F 


D20 


P 


826 


* 

UBDR30 


CLC 


PBDRK3 (7 ) fPLCB 


SEE IF GOT PLC FOR SPPARATP RIT«; 


001A88 


47 


60 


p 


B52 








BC 




RR IP Kin 
OK ir nu 


00LA8C 


91 


04 


F 


819 








TM 


DAT40+8 1 X • 04 • 


f f 


001A90 


47 


80 


p 


B52 








BC 


NONE t UBDR40 




001 A94 


91 


FF 


F 


82D 








TM 


PLCB+7,X»FF« 


SEe'iF GOT PLC FOR DAT 00 


001A98 


47 


10 


p 


C36 








BC 


ALL.U8DR80 


RR IF YF^ 


001A9C 


D5 


08 


F 


830 


F 


020 




CLC 


UCBP(9> ,P8DRK3 


SEE IF GOT UCB PARITY FOR ALL 8ITS 


001AA2 


47 


60 


p 


ABO 








BC 




RR TF Nfl 
OK A r IMU 


001 A A6 


OA 


DO 












SVC 


X *D0 9 


prrdr nfln — cai cc iiro iiata dcc dadtv 

CKKUK UOU "~ rALoC UUO UAIM KCb rAKIT 


001AA8 


41 














DC 


X *41 ' 


>> rKAiXI UiN ALlCKiMAIC UcVaUC 


001AA9 


07 














DC 


X»07' 


t» 7 CHARACTERS 


001AAA 


FD42 












DC 


AL2 < ERR080-8ASE+REG) 


»t ADDRESS OF MESSAGE 


001AAC 


47 


FO 


F 


C40 






* 


BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001AB0 


D5 


06 


F 


830 


F 


020 


UBDR31 


CLC 


UCBP(7) y PBDRK3 


SEE IF GOT UCB PARITY FOR ALL BUT 


001AB6 


47 


60 


F 


ACE 








BC 


UNEQt UBDR32 


,t 00 + 40 - BR IF NO 


001ABA 


D5 


01 


F 


837 


F 


016 




CLC 


UCBP+7(2> t PBDRK2 




001AC0 


47 


60 


F 


ACE 








BC 


UNEQt UBDR32 


\\ BR IF NO 


001AC4 


OA 


DO 












SVC 


X«DO» 


ERROR 081 - UCB DATA REG PARITY 






















tt LATCH ON SOLID 


001AC6 


44 














DC 


X«44» 




001AC7 


07 














OC 


X • 07 • 


11 7 CHARACTERS 


001AC8 


FD49 












DC 


AL2 ( ERR081-BASE+REG) 


tt ADDRESS OF MESSAGE 


001ACA 


47 


FO 


F 


C40 






# 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 


001 ACE 


05 


06 


F 


830 


F 


D16 


* 

UBDR32 


CLC 


UCBPC71 f PBDRK2 


SEE IF GOT UCB PARITY FOR 00 ♦ 40 


001AD4 


47 


60 


F 


AEC 








BC 


UNEQ,U8DR33 


tt ONLY - BR IF NO 


001AD8 


05 


01 


F 


837 


F 


D20 




CLC 


UCBP+7123 f PBDRK3 




001ADE 


47 


60 


F 


AEC 








BC 


UNEQt UBDR33 


11 BR IF NO 



DATE 
EC 



16JUN65 
124263 
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15N0V66 
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001AE2 


OA DO 








SVC 


X«D0« 


ERROR 082 - CAN NOT TURN ON UCB DATA 










* 






tt REG PARITY LATCH 


001AE4 


44 








DC 


X«44« 


1 1 


001AE5 


07 








DC ' 


X»07» 


tt 7 CHARACTERS 


001AE6 


FD50 








DC 


AL2 ( ERR082-BASE+REG) 


tt ADDRESS OF MESSAGE 


001AE8 


47 FO 


F 


C40 


* 


BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001AEC 


05 08 


F 


830 F 016 


* 

UBDR33 


CLC 


UCBP(9) t PBDRK2 


SEE IF GOT ANY UCB DATA REG PARITY 










* 






ERRORS 


001AF2 


47 60 


F 


B08 




BC 


UNEQt UBDR34 


BR IF YES 


001AF6 


91 FF 


F 


839 




TM 


UCBP+9,X»FF« 


SEE IF GOT UCB PARITY FOR DAT FF 


001AFA 


47 10 


F 


B48 




BC 


ALL f UBDR37 


BR IF YES 


001AFE 


OA DO 








SVC 


X«D0« 


NO ERRORS DETECTED 


001 BOO 


84 








DC 


X«84« 


it 


001801 


10 








DC 


X'10' 


ii 16 CHARACTERS 


001B02 


FD2A 








DC 


AL2( NERDET-BASE+REG) 


it ADDRESS OF MESSAGE 


001B04 


47 FO 


F 


C40 




BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001B08 


41 10 


F 


830 


* 

UBDR34 


LA 


RltUCBP 


INITIALIZE 


001B0C 


41 20 


F 


838 




LA 


R2»UCBP+8 


• t 


001B10 


41 90 


0 


053 




LA 


R9 9 083 


1 1 


001B14 


91 FF 


1 


000 


UBDR35 


TM 


0<R1) ,X*FF« 


SEE IF GOT UCB DATA REG PARITY 


001B18 


47 10 


F 


B32 




BC 


ALL,UBDR36 


BR IF YES 


001B1C 


15 12 








CLR 


RltR2 


SEE IF END 


001B1E 


47 80 


F 


B2E 




BC 


EQ, PGMER 


BR IF YES 


001B22 


41 10 


1 


001 




LA 


RltKROtRl) 


UPDATE ADDRESSES 


001B26 


41 90 


t 


001 




LA 


R9,1(R0,R9) 


UPDATE ERROR NUMBER 


001B2A 


47 FO 




B14 




BC 


UNCUBDR35 


CONTINUE 


001B2E 


47 FO 


F 


B2E 


PGMER 


BC 


UNCt* 


**** PROGRAM ERROR **** 


001B32 


4E 90 


F 


770 


UB0R36 


CVD 


R9t WKAR 


CONVERT ERR NO. TO PRINTABLE 


001B36 


OA DD 








SVC 


X^DD' 


1 1 


001B38 


0002 








DC 


AL2(2) 


1 1 


001B3A 


0776 








DC 


AL2 ( WKAR+6-SECN0) 


ii 


001B3C 


083E 








DC 


AL2CERRX+4-SECN0) 


1 1 


001B3E 


OA DO 








SVC 


X«D0» 


ERROR - GETTING FALSE UCB DATA REG 










* 






,t PARITY FOR DATA REG BIT(S) XX 


001B40 


44 








DC 


X«44» 


1 1 


001841 


07 








DC 


X«07» 


♦, 7 CHARACTERS 


001B42 


F83A 








DC 


AL2 (ERRX-BASE^REG) 


tt ADDRESS OF MESSAGE 


001B44 


47 FO 


F 


C40 




BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001B48 


OA DO 






UBDR37 


SVC 


X'DO" 


ERROR 111 - FALSE UCB PARITY WITH 
















tt ALL DATA REG BITS ACTIVE 


001B4A 


44 








DC 


X»44» 


1 1 


001 B4B 


07 








DC 


X«07» 


tt 7 CHARACTERS 


001B4C 


FE1B 








DC 


AL2 ( ERR1 1 l-BASE-»-REG) 


tt ADDRESS OF MESSAGE 


001B4E 


47 FO 


F 


C40 


* 


BC 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001B52 


91 04 


F 


80F 


UBDR40 


TM 


DAT00+8tX«04 i 


SEE IF GOT PLC FOR 0AT00 


00 1 R5A 


47 80 


p 


BBC 




BC 


NHNP . IIRDR^O 
nunc t uouks u 


BR IF NO 


001B5A 


91 FF 


F 


80B 




TM 


DAT00+4,X»FF« 


SEE IF GOT PLC WITH FF 


001B5E 


47 10 


F 


B6A 




BC 


ALLtUBDR41 


BR IF YES 


001B62 


91 BF 


F 


80B 




TM 


DAT0Q+4,X"BF« 


SEE IF GOT PLC WITH BF 


001B66 


47 60 


F 


B74 




BC 


UNEQ,UBDR42 


8R IF NO 


001B6A 


OA DO 






UBDR41 


SVC 


X»D0« 


ERROR 092 - NOT GETTING UCB DATA REG 










* 






, • RESET 


001B6C 


44 








DC 


X«44» 




001B6D 


07 








DC 


X»07» 


\\ 7 CHARACTERS 


001B6E 


FD96 








DC 


AL2 ( ERR092-BASE+REG) 


tt ADDRESS OF MESSAGE 


00 1B70 


47 FO 


F 


C40 


* 


BC 

j ) 


UNCtLGOUT 


GO SEE IF WANT LOG OUT 


001B74 


41 10 


F 


D3A 


* 

UBDR42 


liA 


RltHBIT 


INITIALIZE 


001B78 


41 20 


F 


D41 




LA 


R2tHBIT*7 


1 1 


001B7C 


41 90 


0 


05D 




LA 


R9 t 93 




001 880 


43 50 


1 


000 


UBDR43 


IC 


R5,0(R0.R1) 


set'up mask 


DATE 


16JUN65 




15JUL65 


15MAR66 15N0V66 




ID F80D-2 


EC 


124263 




124265 


125632 125655 
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001B84 : 


44 50 


F 


BA2 




EX 


R5,UBDR44 


FIND HOT BITS 


001B88 


47 10 


F 


BA6 




BC 


ALL »UBDR45 


BR IF THIS BIT IS HOT 


001B8C 


15 12 








CLR 


R1,R2 


SEE IF END 


001B8E 


47 60 


F 


B96 




BC 


UNEQ,*+8 


BR IF NO 


001B92 


47 FO 


F 


B92 




BC 


UNC* 


PROGRAM OR MACHINE ERROR 


001B96 


41 10 


1 


001 




LA 


R1,1CR0»R1) 


UPDATE ADDRESS 


001B9A 


41 90 


9 


001 




LA 


R9,1(R0,R9> 


UPDATE ERROR NUMBER 


001B9E 


47 FO 


F 


B80 




BC 


UNCUBDR43 


CONTINUE 


001BA2 


91 00 


F 


80B 


UBDR44 


TM 


DATOO+4»X , 00« 


USED BY EXECUTE OP 


001BA6 


4E 90 


F 


770 


UBDR45 


CVD 


R9» WKAR 


CONVERT ERROR NO TO PRINTABLE 


001 BAA 


OA OD 








SVC 


X^DD* 


» t 


00 IB AC 


0002 








DC 


AL2(2) 




001BAE 


0776 








DC 


AL2(WKAR+6-SECN0) 




00 IB BO 


083E 








DC 


AL2(ERRX+4-SECN0) 


1 1 


001BB2 


OA DO 








SVC 


X'DO 1 


ERROR - HAVE UCB DATA REG HOT BIT 


001BB4 


44 








DC 


X«44« 


t » 


001BB5 


07 








DC 


X«07« 


,,7 CHARACTERS 


001BB6 


F83A 








DC 


AL2 (ERRX-BASE+REG) 


t, ADDRESS OF MESSAGE 


001 BBS 


47 FO 


F 


C40 


* 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 


001BBC 


D5 06 


F 


D16 F 826 


UBDR50 


CLC 


PBDRK2C7) »PLCB 


SEE IF DIO NOT GET PLC FOR 80-01 


001BC2 


47 60 


F 


C22 




BC 


UNEQ,U8DR70 


,, BR IF DID GET ALL OR MIXED 


001BC6 


91 04 


F 


819 




TM 


DAT40+8,X , 04« 


1 » 


001BCA 


47 80 


F 


BD8 




BC 


N0NE,UBDR51 


t, BR IF DID GET ALL OR MIXED 


001BCE 


OA DO 








SVC 


X«DO« 


ERROR 094 - UCB DATA REG 1 BIT ON 










* 






tt SOLID 


001BD0 


44 








DC 


X«44» 


* t 


001BD1 


07 








DC 


X»07» 


7 CHARACTERS 


001B02 


FDA4 








DC 


AL2 ( ERR094-BASE+REG) 


,, ADDRESS OF MESSAGE 


001BD4 


47 FO 


F 


C40 


* 


BC 


UNC , LGOUT 


GO SEE IF WANT LOG OUT 


001BD8 


OA DO 






* 

UBDR51 


SVC 


X«D0« 


ERROR 101 - NOT GETTING UCB DATA REG 










* 






, , LOAD FORMAT SET OR UCB DATA REG 










* 






9, RESET ON SOLID 


001BDA 


44 








DC 


X«44« 


9 t 


001BDB 


07 








OC 


X»07» 


ti 7 CHARACTERS 


001BDC 


FDD5 








DC 


AL2 ( ERR101-BASE+REG) 


ADDRESS OF MESSAGE 


001BDE 


47 FO 


F 


C40 


* 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 


001BE2 


41 10 


F 


826 


* 

UBDR60 


LA 


Rl.PLCB 


j, 
Jl 

INITIALIZE 


001BE6 


41 20 


F 


82C 




LA 


R2,PLCB+6 


1 1 


001BEA 


41 90 


0 


066 




LA 


R9,102 




001BEE 


91 FF 


1 


000 


UBDR61 


TM 


0{R1) ,X«FF« 


8R*IF NO PLC 


001BF2 


47 80 


F 


COC 




BC 


N0NE,UBDR63 




001BF6 


15 12 








CLR 


R1,R2 


SEe'iF END 


001BF8 


47 80 


F 


C08 




BC 


EQ,UBDR62 


BR IF YES 


001BFC 


41 10 


1 


001 




LA 


R1,1(R0,R1) 


UPDATE ADDRESS 


001 COO 


41 90 


9 


001 




LA 


R9,1(R0,R9) 


UPDATE ERROR NUMBER 


00lC04 


47 FO 


F 


BEE 




BC 


UNCUBDR61 


CONTINUE 


001C08 


47 FO 


F 


C08 


UBDR62 


BC 


UNC,* 


**** PROGRAM OR MACHINE ERROR **** 


001C0C 


4E 90 


F 


770 


U80R63 


CVD 


R9, WKAR 


CONVERT ERR NO. TO PRINTABLE 


001C10 


OA DD 








SVC 


X»DD» 


» » 


001C12 


0002 








DC 


AL2(2) 


» » " i 


001C14 


0776 








DC 


AL2(WKAR+6-SECN0> 


, t 


001C16 


083E 








DC 


AL2(£RRX+4-SECN0> 




001C18 


OA DO 








SVC 


X«DO« 


ERROR - CAN NOT TURN ON UCB DATA REG 
















,, BIT X 


001C1A 


44 








DC 


X«44» 




001C1B 


07 








DC 


X«07« 


'tl 7 CHARACTERS ' 


001C1C 


F83A 








DC 


AL2(ERRX-BASE+REG) 


ADDRESS OF MESSAGE 


001C1E 


47 FO 


F 


C40 


* 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT j 

1 


001C22 


D5 06 


F 


D20 F 826 


* 

U80R70 


CLC 


PBDRK3(7) ,PLCB 


GET PLC FOR ALL BUT . DAT40 


001C28 


47 60 


F 


BE2 




BC 


UNEQt UBDR60 


BR IF NO 


DATE 


16JUN65 




15JUL65 


15MAR66 15N0V66 




ID F 800- 


EC 


124263 




124265 


125632 125655 
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0O1C2C 


OA DO 






SVC 


X»DO» 


ERROR 109 - CANNOT TURN ON 














REG 1 BIT 


001C2E 


44 






DC 


X»44» 




001C2F 


° 07 






DC 


X»07« 


" 7 CHARACTERS 


001C30 


FEOD 






DC 


AL2( ERR109-BASE+REG) 


, ♦ ADDRESS OF MESSAGE 


001C32 


47 FO 


F C40 




BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 


001C36 


OA DO 




UBDR80 


SVC 


X«DO« 


ERROR 110 - PLC OR COMPARE 


001C38 


44 






PC 


X«44' 




001C39 


07 






DC 


X«07« 


Yt 7 CHARACTERS 


001C3A 


FE14 






DC 


AL2 ( ERR110-BASE+REG) 


ADDRESS OF MESSAGE 


001C3C 


47 FO 


F C40 


* 


BC 


UNCLGOUT 


GO SEE IF WANT LOG OUT 








. * 


LOG 


OUT ROUTINE 





001C40 


91 


20 


F 


004 






LGOUT 
* 


TM 


001C44 


47 


80 


F 


CA2 








BC 


001C48 


41 


10 


F 


7C1 








LA 


001C4C 


41 


20 


F 


81B 








LA 


001C50 


D2 


09 


F 


7B7 


1 


000 


LGOUTA 


MVC 


001C56 


OA 


DD 












SVC 


001C58 


0009 












DC 


001C5A 


07B7 












DC 


001C5C 


057C 












DC 


001C5E 


41 


30 


F 


57C 








LA 


001C62 


41 


40 


F 


590 








LA 


001C66 


41 


50 


F 


5E0 








LA 


001C6A 


92 


40 


F 


5E0 








MVI 


001C6E 


D2 


30 


F 


5E1 


F 


5E0 




MVC 


001C74 


D2 


01 


5 


000 


3 


000 


LGOUTB 


MVC 


\ 001C7A 


15 


34 












CLR 


001C7C 


47 


80 


F 


C8C 








bc; 


001C80 


41 


50 


5 


003 








LA 


001C84 


41 


30 


3 


002 








LA 


001C88 


47 


FO 


F 


C74 








BC 


001C8C 


OA 


DO 










LGOUTC 


SVC 


001C8E 


80 














DC 


001C8F 


1A 














DC 


001C90 


F 5E0 












DC 


001C92 


15 


12 












CLR 


001C94 


47 


80 


F 


CAO 








BC 


001C98 


41 


10 


1 


OOA 








LA 


001C9C 


47 


FO 


F 


C50 








BC 


001CA0 


OA 


DA 










LGOUTD 


SVC 


001CA2 


91 


40 


F 


004 






LGOUTE 
* 


TM 


001CA6 


47 


80 


F 


CAE 








BC 


001CAA 


45 


80 


F 


678 








BAL 


001CAE 


91 


20 


E 


1A3 






LGOUTF 


tM 


001CB2 


47 


10 


F 


CBA 








BC 


• 001CB6 


96 


40 


F 


751 








01 


001CBA 


D2 


02 


F 


86D 


F 


753 


LGOUTG 


MVC 


001CC0 


OA 


DO 












SVC 


001CC2 


80 














DC 


001CC3 


2B 














DC 


001CC4 . 


F842 












DC 


001CC6 


OA 


DO 












SVC 


001CC8 


80 














DC 


001CC9 


28 














DC 


001CCA 


F86D 












DC 


001CCC 


OA 


06 












§VC 



SNSW,X*20' 



BR 



IF SEC SS 
i » LOG OUT 



02 IS 0 - DO NOT WANT 



NONE, LGOUTE 
R1,DAT80 
R2,DATFF 
DATWK(IO) ,0(R1) 
X'DD' 
AL2(9) 

AL2 ( DATWK-SECNO) 
AL2CSCPDAT-SECN0) 
R3,SCPDAT 
R4,SCPDAT+20 
R5,SCPDAT+100 
SCPDAT+100,X«40» 
SCPDAT+101 {49 J fSCPOAT+lQO 
0(2,R5),0(R3) 
R3,R4 
EQ, LGOUTC 
R5,3(R0,R5) 
R3,2(R0,R3) 
UNC LGOUTB 
X»DO« 
X«80« 
X'lA' 

Si SCPDAT+100) 
R1,R2 
EQ, LGOUTD 
R1,10(R0,R1) 
UNC LGOUTA 
X'DA« 

SNSW,X«40« 



INITIALIZE 
MOVE DATA 

CONVERT DATA TO PRINTABLE 
vf CONVERT 9 BYTES 
,, HEX DATA ADDRESS 

PRINTABLE DATA ADDRESS 
INITIALIZE 



SET UP PRINT FIELD 



BR IF END 

UPDATE ADDRESSES 
t , 

CONTINUE 

LOG OUT OF ACCUMULATED DATA 



,, 26 CHARACTERS 

ADDRESS OF MESSAGE 
SEE IF END OF LOG OUT 
BR IF YES 
UPDATE ADDRESSES 
CONTINUE 

HALT ♦ WAIT FOR ACTION 
BR IF SEC SS 01 IS 0 - DO NOT WANT 
,, UTILITY ROUTINE 



NONE, LGOUTF 

R8,SCPR00 

419(R14) ,X»20« 

ALL, LGOUTG 

SCHNUM,X«40» 

RMSG1 (3) ,UAPRT 

X«DO» 

X^O* 

X«2B» 

AL2 (RMSG-BASE+REG) 

X'DO* 

X'80» 

X«28« ] 
AL2(RMSG1-BASE+REG> 
X«D6» 



BR TO UTILITY ROUTINE 
IS LOOP ON SEC SS ON 
BR IF YES 

SET UP TO BYPASS ALL REMAINING OVLYS 
MOVE PRINTER ADDR TO OUTPUT MESSAGE 
PRINT MESSAGE INDICATING TO RESTORE 
UCS BUFFER WITH PROGRAM F637 



ROUTINE EXIT 



001CD0 
001CD8 



EB 00157C 6000 0001 
FB 00157C 2000 OOFO 



* CCW,S USED BY ROUTINE 04 * 

*»***********************#*******^ 

LUBCCW CCW X«EB«,SCPDAT,X»60S1 COND LD FMT CCW - SLI + CC ON 
CCW X»FB , ,SCPDAT,X I 20 , ,240 LOAD UCS BUFFER - SLI ON 



DATE 16JUN65 15JUL65 15MAR66 15N0V66 
EC 124263 124265 125632 125655 
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F80C 
F80D3 



001CE0 
001CE8 



001CF0 
001CF9 
OOIDOO 
001009 
001D10 
001014 
001016 
001D1F 
001020 
001D29 
001D2A 
001033 
00103A 
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05 00157C 2000 0084 

06 00157C 2000 0084 



F2F8F2F140E2C3CID5 

61F1F4F0F340E4 

C3E26B40E4C3C240C4 

C1E3C140D9C5C7 

40C6D3E3 

OOFF 

000000000000000000 
00 

FFFFFFFFFFFFFFFFFF 
FF 

05D640C5D9D9E240C4 

C5E3C5C3E3C5C4 

8040201008040201 



DATE 
EC 



16JUN65 
124263 



DWRCCW CCW X«05«,SCPDAT,X»20*,132 DIAGNOSTIC WRITE - SLI ON 
DCRCCW CCW X«06 , ,SCPDAT,X»20%132 DIAGNOSTIC CHECK READ SLI ON 

*****4^***************************^^ 

* CONSTANTS FOR ROUTINE 04 - NO BOUNDARY 

TITLE DC C«2821 SCAN/1403 U* 

DC CCS, UCB DATA REG* 

DC C» FLT* 
PBDRK1 DC X»00FF« 
PBDRK2 DC XLIQ'OO* 

PBDRK3 DC X'FFFFFFFFFFFFFFFFFFFF* 

NERDET DC C'NO ERRS DETECTED* 

HBIT DC X«8040201008040201« 

* EQUATES * 
* 

* GENERAL REGISTER EQUATES 



000000 


RO 


EQU 


0 






000001 


Rl 


EQU 


1 






000002 


R2 


EQU 


2 






000003 


R3 


EQU 


3 






000004 


R4 


EQU 


4 






000005 


R5 


EQU 


5 






000006 


R6 


EQU 


6 






000007 


R7 


EQU 


7 






000008 


R8 


EQU 


8 






000009 


R9 


EQU 


9 






OOOOOA 


RIO 


EQU 


10 






OOOOOB 


Rll 


EQU 


11 






OOOOOC 


R12 


EQU 


12 






OOOOOD 


R13 


EQU 


13 






OOOOOE 


R14 


EQU 


14 






OOOOOF 


R15 
* 


EQU 


15 








* 
* 


CONDITION CODE EQUATES 






000008 


NONE 


EQU 


8 


ALL OFF 0 




000005 


ANY 


EQU 


5 


ANY ON 


1 3 


000001 


ALL 


EQU 


1 


ALL ON . 


3 


000004 


SOME 


EQU 


4 


MIXED 


1 


000009 


NMIXED 


EQU 


9 


NOT MIXED 0 


3 


000003 


EQ 


EQU 


8 


EQUAL 0 




000006 


UNEQ 


EQU 


6 


NOT EQUAL 


1 2 


000004 


LO 


EQU 


4 


LOW 


1 


000002 


HI 


EQU 


2 


HIGH 


2 


000003 


Z 


EQU 


8 


ZERO 0 




000002 


POS 


EQU 


2 


GREATER ZERO 


2 


0000G3 


CCO 


EQU 


8 


AVAILABLE 0 




000004 


CC1 


EQU 


4 


CSW STORED 


1 


000002 


CC2 


EQU 


2 


BUSY 


2 


OOOOOF 


UNC 


EQU 


15 


UNCONDITIONAL 0 


12 3 


OOOOOD 


NOTBSY 


EQU 


13 


NOT BUSY 0 


1 3 


000007 


N2 


EQU 


7 


NOT CC 0 


12 3 


000004 


NEG 


EQU 


4 


NOT ZERO -AND— 


1 


OOOOOC 


ZNEG 


EQU 


12 


MIXED OR NONE 0 


1 


OOOOOB 


CSWNST 
* 


EQU 


11 


CSW NOT STORED 0 


2 3 




* 

* 


GENERAL EQUATES 






000040 


0 HCSW 


EQU 


64 


HARDWARE CSW LOCATION 


000048 


HCAW 


EQU 


72 


HARDWARE CAW LOCATION 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 
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DATE 
EC 



000078 


HION 


EQU 


120 


HARDWARE I/O NEW PSW LOCATION 


001118 


CSWSAV 
* 


EQU 


SI0VR3 


. • , . . * 




* 
* 


EQUATES USED EXCLUSIVELY 


BY ROUTINE 04 


0017B7 


UCBWR 


EQU 


DATWK 




0017B8 


UCBST. 


EQU 


DATWK+1 




0017B9 


UCBSNS 


EQU 


DATWK+2 




0017BA 


UCBWCR 


EQU 


DATWK+3 




0017BB 


PW 


EQU 


DATWK+4 




0017BC 


PW1ST 


EQU 


DATWK+5 




0017BD 


PW2ST 


EQU 


DATWK+6 




0017BE 


PWSNS 


EQU 


DATWK+7 




0017BF 


PWCR 


EQU 


DATWK+8 





* ERROR DEFINITIONS FOR ROUTINE 04 * 



001D42 


• C5D9D940F0F8F0 


ERR080 


DC 


C 


'ERR 


080 • 


FALSE UCB DATA REG PARITY ERRORS 


001 049 


C5D9D940F0F8F1 


■■• ERR081 


DC 


c 


'ERR 


081 • 


UCB DATA REG PARITY LATCH ON SOLID 


001D50 


C5D9D940F0F8F2 


ERR082 


DC 


c 


•ERR 


082 • 


CAN NOT TURN ON UCB DATA REG PARITY 
















LATCH 


001D57 


C5D9D940F0F8F3 


ERR083 


DC 


c 


'ERR 


083* 


FALSE UCB DATA REG PARITY FOR 0 BIT 


001D5E 


C5D9D940F0F8F4 


ERR084 


DC 


c 


'ERR 


084 • 


FALSE UCB DATA REG PARITY FOR 2 BIT 


001D65 


C5D9D940F0F8F5 


. ERR085 


DC 


c 


'ERR 


085* 


FALSE UCB DATA REG PARITY FOR 3 BIT 


001D6C 


C5D9D940F0F8F6 


ERR086 


DC 


c 


•ERR 


086* 


FALSE UCB DATA REG PARITY FOR 4 BIT 


001D73 


C5D9D940FOF8F7 


ERR087 


DC 


c 


•ERR 


087 • 


FALSE UCB DATA REG PARITY FOR 5 BIT 


001D7A 


C5D9D940F0F8F8 


ERR088 


DC 


c 


•ERR 


088 • 


FALSE UCB DATA REG PARITY FOR 6 BIT 


001D81 . 


C5D9D940F0F8F9 


ERR089 


DC 


c 


'ERR 


089* 


FALSE UCB DATA REG PARITY FOR 7 BIT 


001D88 


C5D9D940F0F9F0 


* ERR090 


DC 


c 


•ERR 


090* 


FALSE UCB DATA REG PARITY FOR P BIT 


001D8F 


C5D9D940F0F9F1 


ERR091 
* 


DC 


c 


•ERR 


091 • 


FALSE UCB DATA REG PARITY FOR 0 AND 


001D96 


C5D9D940F0F9F2 


ERR092 


DC 


c 


'ERR 


092 • 


I BITS 

NEVER GETTING UCB DATA REG RESET 


001D9D 


C5D9D940F0F9F3 


ERR093 


DC 


c 


•ERR 


093* 


UCB DATA REG 0 BIT ON SOLID 


001DA4 


C5D9D940F0F9F4 


ERR094 


DC 


c 


•ERR 


094' 


UCB DATA REG 1 BIT ON SOLID 


001DAB 


C5D9D940F0F9F5 


ERR095 


DC 


c 


•ERR 


095 • 


UCB DATA REG 2 BIT ON SOLID 


001DB2 


C5D9D940F0F9F6 


ERR096 


DC 


c 


•ERR 


096* 


UCB DATA REG 3 BIT ON SOLID 


001DB9 


C5D9D940F0F9F7 


ERR097 


DC 


c 


•ERR 


097 • 


UCB DATA REG 4 BIT ON SOLID 


001DC0 


C5D9D940F0F9F8 


ERR098 


DC 


c 


•ERR 


098* 


UCB DATA REG 5 BIT ON SOLID 


001DC7 


C5D9D940F0F9F9 


ERR099 


OC 


c 


'ERR 


099 • 


UCB DATA REG 6 BIT ON SOLID 


001DCE 


C5D90940F1F0F0 


ERR 100 


DC 


c 


•ERR 


100 • 


UCB DATA REG 7 BIT ON SOLID 


001DD5 


C5D9D940F1F0F1 


ERR101 


DC 


c 


•ERR 


101 • 


NOT GETTING UCB DATA REG SET OR UCB 






* 










DATA REG RESET ON SOLID 


001DDC 


C5D9D940F1F0F2 


ERR102 


DC 


c 


•ERR 


102* 


CAN NOT TURN ON UCB DATA REG 0 LATCH 


001DE3 


C5D9D940F1F0F3 


ERR103 


DC 


c 


•ERR 


103« 


CAN NOT TURN ON UCB DATA REG 2 LATCH 


001DEA 


C5D9D940F1F0F4 


ERR104 


DC 


c 


•ERR 


104 • 


CAN NOT TURN ON UCB DATA REG 3 LATCH 


001DF1 


C5D9D940F1F0F5 


ERR105 


DC 


c 


'ERR 


105 • 


CAN NOT TURN ON UCB DATA REG 4 LATCH 


001DF8 


C5D9D940F1F0F6 


ERR10L 


DC 


c 


'ERR 


106 • 


CAN NOT TURN ON UCB DATA REG 5 LATCH 


001DFF 


C5D9D940F1F0F7 


ERR107 


DC 


c 


•ERR 


107 • 


CAN NOT TURN ON UCB DATA REG 6 LATCH 


001E06 


" C5D9D940F1F0F8 ■ 


ERR10& 


DC 


c 


'ERR 


108* 


CAN NOT TURN ON UCB DATA REG 7 LATCH 


001EOD 


» C5D9D940F1F0F9 


ERR109 


DC 


c 


•ERR 


109* 


CAN NOT TURN ON UCB DATA REG 1 LATCH 


001E14 . 


. C5D9D940F1F1F0 


ERR110 


DC 


c 


'ERR 


110« 


PLC OR COMPARE PROBLEM 


001E1B 


C5D9D940F1F1F1 


ERR111 


PC 


c 


•ERR 


111* 


FALSE UCB DATA REG PARITY WITH ALL 






* 










DATA REG BITS ACTIVE 










001000 


BASE 


EQU 


SECNO 








OOFOOO 


REG 


EQU 


X'FOOO* 





END 



16JUN65 15JUL65 15MAR66 15N0V66 
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DATE 
EC 



1 


8 


z 


1 


8 


EQ 


1 


2 


HI 


1 


4 


LO 


1 


7 


NZ 


10 


17BB 


PW 


1 


0 


RO 


1 


1 


Rl 


1 


2 


R2 


1 


3 


A3 


1 


4 


R4 


1 


5 


R5 


I 


6 


R6 


1 


7 


R7 


1 


8 


R8 


I 


9 


R9 


1 


1 


ALL 




5 


A KIV 


1 


1048 


CAW 


1 


8 


ceo 


1 


4 


CC1 


1 


2 


CC2 


1 


1825 


COG 


1 


1040 


CSW 


1 


4 


NEG 


1 


2 


P0S 


1 


A 


RIO 


1 


B 


Rll 


1 


C 


R12 


1 


0 


R13 


1 


E 


R14 


1 


F 


R15 


1 


FOOO 


REG 


1 


1228 


SIO 


1 


F 


UNC 


1 


1000 


BASE 


8 


183A 


ERRX 



18A0, 


18F4, 


1942, 


1950, 


196 A , 


l A9n 

iA4U , 


1 A A C 
1 AOC 


IBlEt 


1BF8, 


1C7C, 


1C94 








1910, 


1962, 


1966, 


1982, 


19BC 






18F8, 


1946, 


195E, 


199E, 


19A2, 


1906, 


190A 


lAOAt 


1A0E, 


1A72, 


1-A76, 


1A7A, 




1 

X DtO 


1B80, 
1C98 


1B96, 


1B9A, 


1BFC, 


1C00, 


1C80, 


1C84 


18C2, 


1802, 


1808, 


193A, 


1940, 


1946, 


1946 


194E, 


1A36, 


1A46, 


1A6C, 


1A72, 


1A72, 


1B08 


1814, 


1B1C, 


1B22, 


1B22, 


1B74, 


1B80, 


1B8C 


1B96, 


1B96, 


1BE2, 


lBEE, 


1BF6, 


1BFC, 


1BFC 


1C48, 


1C50, 


1C92, 


1C98, 


1C98 




18CA, 


1808, 


1A3A, 


1A6C, 


lBOCt 


181C, 


1B78 


lB8Ct 


1BE6, 


1BF6, 


1C4C, 


1C92 






180E, 


18EA, 


18F2, 


18F8, 


18F8, 


190 A, 


1A3E 


1A4C, 


1A58, 


1A76, 


1A76, 


1C5E, 


1C74, 


1C7A 


IC84, 


1C84 










1862, 


18F2, 


IA42, 


1A5C, 


1A68, 


1A7A, 


1A7A 


1C62, 


1C7A 










18CE, 


194E, 


1B80, 


IB 84, 


1C66, 


1C74, 


1C80 


1C80 












195C, 


195C, 


195E, 


195E, 


1962 






18BE, 


1916, 


191A, 


191E, 


192C, 


1930, 


1954 


196E, 


1972, 


1976, 


19BA, 


19F8, 


1A24, 


1CAA 


18C6, 


1940, 


IB10, 


1B26, 


1B26, 


1B32, 


1B7C 


1B9A, 


1B9A, 


1BA6, 


1BEA, 


1C00, 


1C00, 


1C0C 


18EE, 


197E, 


1A98, 


1AFA, 


1818, 


XB5E, 


1B88 


1CB2 












19A2, 


190 A, 


1A0E 











19AA, 


19E2, 


1A16 






: i 




19A6, 


190E, 


1A12 










1CAE 














18B4, 


1A30, 


1AAA, 


1AC8, 


1AE6, 


1B02, 


1B42 


1B4C, 


1B6E, 


1BB6, 


1BD2, 


1B0C, 


1C1C, 


1C30 


1C3A, 


1CC4, 


1CCA 








19AA, 


19E2, 


1A16 










18A4, 


18FC, 


1906, 


1928, 


194A, 


1958, 


198A 


19BA, 


19F8, 


1A24, 


1A32, 


1A7E, 


lAAiC, 


1ACA 


1AE8, 


IB 04, 


182 A, 


1B2E, 


1B44, 


1B4E, 


1870 


1B92, 


1S9E, 


18B8, 


1804, 


1B0E, 


1C04, 


1C08 


1C1E, 


1C32, 


1C3C, 


1C88, 


1C9C 






1834, 


1A30, 


1AAA, 


1AC8, 


1AE6, 


1B02, 


1B42 


1B4C, 


1B6E, 


1BB6, 


1B02, 


1B0C, 


lC^C, 


1C30 


1C3A, 


1CC4, 


1CCA 








1B3C, 


1B42, 


1BB0, 


1BB6, 


1C16, 


1C1C 





16JUN65 
124263 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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II V. 


CHAR. 


BUFFER 


8 


1D3A 


HB IT 


X 


48 


HCAW 


X 


40 


HCSW 




"7<J 

t o 


HI ON 


XO 


X I f V» 


MSG1 




O 

o 


NONE 


10 


1 ft OA. 
LOCO 


PL CB 


10 


17RC 

X I Dr 


PWCR 


16 




RMSG 


, 2_ 




CM C U 






CDMC 


10 


1830 


UV»Or 


6 


198E 


UCSL 




O 


UN tW 




1770 


kflf AO 
NIV AK 


1 


C 


ZNEG 


1 


11A4 


CSWAG 


I 


1807 


DATOO 


I 


17FD 


DAT 01 




17F3 


UH 1 ViC. 




17E9 


UA 1 \jH 




X f Ur 






X f U3 


UA 1 XU 


1 


17CB 


OAT 20 


1 


1811 


DAT 40 


1 


17C1 


DAT 80 


1 


18 IB 


DATFF 


10 


X f O f 


UA 1 W l\ 


O 


1 OCA 
XVr A 


OCKRD 


j. 
t 


i r in 
xL*tU 


LGOUT 




Lock. 


PGM ER 


1 


X / OU 


PW1ST 


1 ft 


1780 


PW2ST 


10 


17BE 


PWSNS 


16 


1860 


RMSG1 


1 


1898 


RTN04 


1 


1000 


SECNO 


1 


1120 


SENSE 


16 


1CF0 


TITLE 


1 


1753 


UAPRT 


10 


17B8 


UCBST 


10 


17B7 


UCBWR 


6 


19BC 


UCSDW 


' 1 


10E0 


UNIT1 


1 


1121 


CAWKEY 


1 


B 


CSWNST 


1 


1118 


CSWSAV 


6 


1A26 


OCKRD 1 


8 


1CE8 


DCRCCW 


8 


ICEO 


DWRCCW 


7 


1042 


ERR080 


7 


ID 49 


ERR081 


7 


1050 


ERR082 


7 


1057 


ERR083 


7 


105E 


ERR084 


7 


1D65 


ERR085 


7 


106C 


ERR086 


7 


1D73 


ERR087 


7 


1D7A 


ERR088 



1B74, 


1B78 






1A26, 


1A30 






18AC, 


18BA, 


1A54, 


1A64, 


1BF2, 


1C44, 


1CA6 




1A3E, 


1A82, 


1A94, 


1BBC, 


1934, 


1A50 






1CC4 








18A8, 


18B6, 


1C40, 


1CA2 


1A42, 


1A9C, 


1AB0, 


1ABA, 


1AF6, 


1B08, 


1B0C 




1916 








18DA, 


1986, 


1A88, 


1AA2, 


1A0E, 


1AF2, 


1B66, 


1B8E, 


1B32, 


1B3A, 


1BA6, 


1BAE, 


19AE 








18CE, 


1900, 


1B52, 


1B5A, 


18E2 









18CA, 

18C2, 

18C6, 

1802, 

1C5A, 

1042, 

191A, 

1AAC, 

1BB8, 

1B1E 

19E6 

19EC 

19F2 

1CBA, 

1015 

1000, 

1000, 

1000, 

1BAE, 

19B4, 

18B4 

1A26, 

19AE 

1910, 

1954, 



19E6 
1A20 
1A0A 
1906 
1AAA 
1AC8 
1AE6 



1AB6, 1AC0, 1A04 



1A8C, 


1BC6 










180E, 


1A36, 


1C48 








1A3A, 


1C4C 










18E6, 


1900, 


190A, 


193A, 


1A46, 


1C50 


1042, 


1042, 


1042, 


1042, 


1042, 


1042 


1042, 


1042 










191E, 


192C, 


1930, 


1972, 


1976, 


1A32 


1ACA, 


1AE8, 


1B04, 


1B44, 


1B4E, 


1B70 


1804, 


1BDE, 


1C1E, 


1C32, 


1C3C 





1CCA 

1000, 
1000, 
1000, 
1BB0, 
19F2 

1CBA 

198E 
196E 



1000, 1000, 

1000, 1000, 

1000, 1000, 

1C14, 1C16, 



1000, 1000, 1000 

1000, 1000, 1000 

1018, 1B3A, 1B3C 

1C5A, 1C5C, 1E22 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F8CD-3 
PAGE 11 



DATE 
EC 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
PAGE 11A 
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DATE 
EC 



i 



7 


1D81 


ERR089 






7 


ID 88 


ERR090 






7 


1D8F 


ERR 091 






7 


1096 


ERR092 


1B6E 




7 


1D9D 


ERR093 






7 


1DA4 


ERR094 


1BD2 




7 


1DAB 


ERR095 






7 


1DB2 


ERR096 






7 


1DB9 


ERR097 






7 


1DC0 


ERR098 






7 


10C7 


ERR099 






7 


1DCE 


ERR 100 






7 


1DD5 


ERR 101 


1BDC 




7 


1DDC 


ERR 102 






7 


1DE3 


ERR 103 






7 


IDEA 


ERR104 






7 


1DF1 


ERR105 






7 


1DFF 


ERR107 






„ 7 . 


1E06 


ERR 108 






7 


1E0D 


ERR 109 


1C30 




7 


1DF8 


ERR 10L 






7 


1E14 


ERR 110 


1C3A 




7 


1E1B 


ERR111 


1B4C 




6 


1C50 


LGOUTA 


1C9C 




6 


1C74 


LGOUTB 


1C88 




2 


1C8C 


LGOUTC 


1C7C 




2 


1CA0 


LGOUTD 


1C94 




4 


1CA2 


LGOUTE 


1C44 




4 


1CAE 


LGOUTF 


1CA6 




6 


ICBA 


LGOUTG 


18A4t 


1CB2 


8 


1CD0 


LUBCCW 


199E 




16 


1D2A 


NERDET 


1B02 




1 


9 


NMIXED 






I 


D 


NOTBSY 






2 


1D14 


PBDRK1 


19FA, 


1A1A 


10 


1016. 


PBDRK2 


lABAt 


lACEt 


10 


1D20 


PB0RK3 


1A82, 


lA9C t 


1 


1751 


SCHNUM 


l89Ct 


1CB6 


1 


157C 


SGPDAT 


1922, 


1934, 








19C2, 


19C2, 








1A00, 


1A1A, 




1678 




1C6E, 


1C6E» 


1 


SCPROO 


18BE, 


1CAA 


1 


1122 


SIOSWS 


199A, 


1 90 2, 


1 


1118 


SI0VR3 


1D42 




1 


1108 


SI0VR4 






1 


119F 


STATSV 


19EC 




1 


10E2 


U1ADDR 


19A6. 


19DE, 


4 


189C 


U8DR00 






4 


18A8 


UBDR 01 


18A0 




4 


1886 


UBDR02 


18AC 




4 


18 C2 


UBDR10 


18BA 




6 


18D2 


UBDR11 


194A 




4 


18EA 


UBDR12 


18FC 




6 


1900 


UBDR13 


18F4 




6 


190A 


UBDR14 


18EE 




6 


1910 


UB0R15 


18DA, 


1906 


4 


192C 


UBDR16 


1958 




6 


1934 


UB0R17 


197E, 


198A 


2 


194E 


UBDR 18 


1928 




2 


195C 


UBDR19 


1950 




4 


195E 


UBDR 1A 


196A, 


1986 


4 


1A36 


UBDR20 


1942 




6 


1A46 


UBDR21 


1A7E 




4 


1A5C 


UB0R22 


1A54 




2 


1A6C 


UBDR23 


1A64 




6 


1A82 


UBDR30 


1A6E 




6 


1AB0 


UBDR31 


1AA2 





1AEC, 1BBC 

1AB0, 1AD8, 1C22 

197A, 198E, 1994, 1994, 19BC 

19C8, 19CC, 19CC, 19FA, 1A0O 

1C5C, 1C5E, 1C62, 1C66, 1C6A 

1C90, 1CD0, 1C08, 1CE0, 1CE8 

1A06 
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6 


1ACE 


UBDR32 


1AB6, 


1AC0 


6 


1AEC 


UBDR33 


1AD4, 


1ADE 


4 


1B08 


UBDR 34 


1AF2 




4 


1B14 


UBDR35 


1B2A 




4 


. 1B32 


UBDR 36 


IB 18 




2 


1B48 


UBDR37 


1AFA 




4 


1B52 


UBDR40 


1A88, 


1A90 


2 


1B6A 


UBDR41 


1B5E 




4 


1B74 


UB0R42 


1B66 




4 


1B80 


UBDR43 


• 1B9E 




4 


1BA2 


UBDR 44 


1B84 




4 


1BA6 


UBDR45 


1B88 




6 


1BBC 


U6DR50 


1B56 




2 


1B08 


UBDR 51 


1BCA 




4 


1BE2 


UBDR60 


1C28 




4 


1BEE 


UBDR 61 


1C04 




4 


1C08 


UBDR62 


1BF8 




4 


1C0C 


UBDR63 


1BF2 




6 


1C22 


UBDR70 


1BC2 




2 


1C36 


UBDR80 


1A98 




10 


17B9 


UCBSNS 


19B4, 


1A60 


10 


17BA 


UCBWCR 


1922 




1 , 


1000 


XF80D3 







16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
PAGE 12 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 
EC 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D-3 
PAGE 12A 



O O O O O O O O O O O O OO-OOOOOOOO.O'O o o o o o o o o o o 

t 



occccccccccccc c c c 
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PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 



BESD .AA..AAXF80 

9 YQ Y9 

99 9 

BTXT. A AN. .AC. • AAAQA. 
9 YQ9 Y9 Y9Y9Q 
99 9 9 9 Z 



BTXT.APU. 
9 Y98 
9 

8TXT. APM. 
9 Y90 
9 

BTXT.APD. 
9 Y9Q 
9 9 

BTXT.AQM. 

9 Y99 
9 

BTXT. AQD. 
9 Y98 
9 

BTXT* AQD. 

9 Y90 
9 

BTXT. AQD. 
9 Y9Q 
9 0 

BTXT.AQ4. 
9 Y9 
9 

BTXT.AJU. 

9 Y88 
999 

BTXT.AJM. 

9 Y8Z 
99 

BTXT.AJD. 

9 Y8Q 
99 

BTXT.AJM. 
9 Y8 
99 

BTXT.AKD. 
9 Y8Z 
99 

BTXT.AK4. 
9 Y88 
99 



•A8..AAGAGA 
Y9 Y99Y9Y 
9 9 9 9 

. A8..AAAAAA 
Y9 Y9QYYY 
9 9 9999 

• A8. • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• A8..AAAD.F 

Y9 Y9 
9 9 

•A8..AAA.GD 
Y9 Y9- 9 
9 9 

•A8..AA2YKA 

Y9 Y9 9 Y 

9 9 9 

•A8..AA1QKA 

Y9 Y9 0 Y 
9 9 9 

•A8..AANA54 

Y9 Y9 9 8 
9 9 

.A8..AAKA74 

Y9 Y9 8 8 
9 9 9 

» A8.« AAAANK 
Y9 Y9Q999 
9 9 Z 

.A8..AAG0B0 
Y9 Y9Z Q+ 
9 9 Z~ 

• A8. . AAGA9B 
Y9 Y9ZY Q 
9 9 Z 

•A8..AAG0B0 
Y9 Y9Z Q+ 
9 9 Z- 

. A8. . AAAJ7S 
Y9 Y9ZY 8 
9 9 9 



D3..AAAA.ACD. 

YYQY Y8Q 
9999 999 



COLS. 41 THROUGH 60 
840 



COLS. 61 THROUGH 80 
265. 125655. .80030001 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAHAAAAAAAAADAAA 
YYYYYY9YYYYYYYYY9YYY 
999999 999999999 999 

GAAAAAAAAANO.DATA.TR 

QYYYYYYYYY 

Z999999999 

OR. DEVICE. XXXERR. 000 



GA8HEA6HAA7FA J7KKA74 
ZY RZY RZQ OZY Y Y 8 
0 9 9 9 9 

751MKA761GKA771JEA8S 
8 8 Y 8 Q Y 8 YZY 
9 9 9 9 

7C1JEA8SKA7D54KAAA74 
0 YZY Y 0 8 8QY 8 
9 9 999 

C5GA9MKA54C5EA2YNA54 
Q9ZY 9 9 8Q9ZQ 9 9 8 
2 Z 0 

AAC .74BAAAD. 9DGA9FBG 
QYZ 8-YQYZ RZY Z-Q 
99 9Z9 0 Z 

G-9UAJ7SG09HAA7ABA5Q 
Z 8ZY 8Z R-Y 0-Y Y 
9 9 0 9 ; 9 

AG7CGA9MG09FB0DGC+G0 
-Q QZQ YZ 08-Z9Q Z 
Z 9 9 -9 Z 

AAAAD.96GA9BNKGABAAA 
ZQQ9Z ZQ Q99ZYQQZQ 
9 Z 29 9 

NG5A5BGAB0NG5A5O.G-BO 
9 Q ZYQZ 9 Q YZ QZ 
2 2 

KA74AABEAAG4E4AA54A . 

8 8QY8QY89898ZQ 8Z 

9 999999 2, > 

i ; 



.80030002 



AAAAAA AAAAAA* AAAAAAA 
YYYYYYYYYYYY YYYYYYY 
99 999999999 9999999 

AAAAAABAAAAAAAAAAAAA 
YYYYYY9YYYYYYYYY9YYY 
999999 999999999 999 



AAJAAAAAAAAA80D30003 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA80D30004 

YYYYYYYYYYYY 

999999999999 



g|NSFERRED.BY.DIAGNQS TIC. CHECK. RE80D30005 



• AGACAGFEC7AGA86B0AB 
Y9Y9YGQ-0 R2Y 88 -9 
9 9 9ZZ 99 

AAKA5474KA5554BA1SAA 
QY Y 8 8 Y 8 8-Y 9ZY 
99 9 9 9 9 

KA7A54AAB8+A0HBA54EA 
Y Y 8ZY0 Y Z-Y 8ZQ 
9 9Z 9 9 0 

AAABNKG-8-G09UAACA+A 
ZQQ899Z Z 9ZYQY Y 
999 9Z9 9 

C5GA9MG8KB8S7CB0. 17K 
Q9ZY 99 9 9 R8- 9 Y 
Z 9 9 

AABAAMAA7AGA90AB75GA 
QY-YG9-9 YZY 8-9 8ZY 
Z9 9Z 

KH5P50BG5BKH5C5BNG54 
9 Y Y-Q 9 9 8 

Z n 

B0AA7FA+A4A J7DKA74AA 
Q+ZQ OZ Y9ZY Y 8 8QY 
Z- 9 9 9 9 9 99 

ABA++BG09BAA7CFA708E 
Q8Z 9Z -Y Q8Q +8Q 
99 9 9 -99 

B0DGCFG080B0DGCNG0B0 
8-Z9QYZ Q+8~Z9Q Z Q+ 
9 Z9 Z-9 Z Z- 

5AA+5SB. 5SKA5 J5SKA+A 
QZ 8- 8 Q Z 8 9 Y 

Z: 9 



0DGA8DB0AVCH8OD300O6 
9ZY 88-Y8Q9 
9 9Z 

BO+AOHHOOSEA8QD30007 
Q Y ZZ+ ZQ 
2 9 0 

2YKA7A54KA7B80D30008 
9 Y 0 8 Y 0 
9 9 

OHKA54C5EA2Y80D30009 
Z 9 8Q9ZQ 9 
Z 0 

G08SAA7FAA5480D30010 
Z ZQ OZQ 8 
9 Z 

90BGAH AAABAA80D300 11 . 
8-QQ9ZQQ8ZQ 
ZZ 999 Z 

5GG-9JB0DGCA80D30012 
YZ Y8-Z9Q8 

9 Z | 

AA+AC.74D.9D80D30013 
ZQ YZ 8Z R 
9 0 

ABGFH/B0DG8V80D30014 

Y99R988-Z9 9 

9 0 99 ! 

AJ0DGABKAA7F80D3C015 
-Y 9ZYQ ZQ 0 
9 Z 9 

AAN4GABDA++C80D3C016 
QY99ZYQQZ 9 
Z9 ZO 



DATE 
EC 



16JUN65 
124263 



15JUL65 
124265 



15MAR66 
125632 



15N0V66 
125655 



ID F80D- 
PAGE 13 
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BTXT.AKD..A8..AAG0B0 

9 Y88 Y9 Y9Z Q+ 
999 9 9 Z- 

BTXTi AKD.. A8. • AAAAAB 
9 Y80 Y9 Y9ZQQ9 
99- 9 9 ZZ 

BTXT. AKM. . A8. . AAAAAA 
9 Y8Y Y9 Y9YYYY 
999 0 9 9 9999 

BTXT. ALU. .A8..AAFFER 

9 Y89 Y9 Y9 
99 9 9 

BTXT. ALM*. A8. .AA52ER 
9 Y88 Y9 Y9 
99 9 9 

BTXT.ALD.. A8. • AA60ER 
9 Y8- Y9 Y9 
99 9 9 

BTXT.ALD..AA..AA68ER 

9 Y8Y YQ Y9 
999 99 9 



BRLD...« 

9 



BEND. 
9 



.AM....AAAA 

Y9 Y9Y9 
9 9 9 

....•AA«... 

Y9 

9 



BOAT. 
9 



BESD • AA. • AAXF80 

9 YQ Y9 

99 9 

8TXT.AAN..AC..AAAQH. 
9 YQ9 Y9 Y9Y9- 
99 9 9 9 

BTXT. APU. . A8 • • AAGAGA 
9 Y98 Y9 Y99Y9Y 
9 9 9 9 9 

BTXT. APM.. A8..AAREAD 
9 Y90 Y9 Y9 
9 9 9 

BTXT.APD. • A8. . AAAAAH 
9 Y9Q Y9 Y9YYY9 
9 9 *9 9 999 

BTXT. AQM..A8.. AAAAAA 
9 Y99 Y9 Y9YYYY 
9 9 - 9 9999 

BTXT . AQD. . A8 . . AAONT E 
9 Y98 Y9 Y9 
9 9 9 



AG5HGABHNG5A5BGAB6NG 
~Q -ZQQZ 9 Q ZYQ8 9 
2 9Z Z9 

G0BMB0AK5SNKGAB0AAAB 
Z Q08-Y8 899Z YQ-ZQQ8 
Z 9 9 Z 999 

EAN4JAABBAN4JAAAFAN4 
9Y98YYY99Y98YYY99Y98 
9 999 9 999 9 

♦DATA. REG. FLTAGNQ.ER 
• YQ 
9Z 

R-053ERR.054ERR.055E 



R • 061ERR.062ERR. 063E 



R.069ERR.070 

AAANAAK 1AAK9HALA. 
8YQ98Y8 8Y8 9Y89 
999 999 999 99 

D3« • AAAA.AFS 

YYQY Y89 
9999 99 



AAAAAAAAAAAANO.DATA. 

YYYYYYYYYYYY 

999999999999 

.FOR. DEVICE. XXXAAAAA 
YYYYY 
99999 

AAA^AAAAADAAAAAAAAAB 
YYYYYYYYY9YYYYYYYYY9 
999999999 999999999 

AAAGAAA AAAAAAA AAAAAA 
YYYQ YYYYYYYYYYYY YYYY 
999Z 9999999999999999 

NTS. OF. UCS. BUFFER. FO 



5A50G-B0AG5IGA80B0DK 
Q YZ QZ-Q -ZQQZ8-09 
Z Z 92 9 

G0BABBA.0DGABFEA6HAJ 
Z QY8Q- 9ZYCCZY R-Y 
Z 99 Z9 0 9 

JAAB2821.SCAN/1403.U 

YYY9 

999 

R0RS.DETECTEDERR.050 



RR.056ERR.057ERR.058 



RR.064ERR.065ERR.066 



TRANSFERRED. BY. DIAGN 



AAAAAAAAAAAAAAAJAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999 99999999999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 

AAAAAA A A AAA A A AERR. 00 
YYYYYYY YYYYYYY 
99999999999999 

R. PRINTER. •••DESTROY 



C7GOB0B0DGCG80D30017 
Q9Z Q+8-Z9Q 
Z Z-9 Z 

JLGABKF.7AB080D3C018 
ZOZQQY- R8 
9Z9 9 

CST.PRINT.BU60D30019 

8 



ERR.O51ERR.080D30020 
ERR.059ERR.080D30021 
ERR.067ERR.080D30022 

• ••* ••80D30023 

••••••••••••60D30024 

• ••• 80D30025 

80D30026 

80D30027 

• ••80D30028 

OSTIC. CHECK. 80D30029 



AAAAAA A AAA AA80D30030 

YYYYYQYYYYYY 

999999999999 

AAAAA AAAA« AA80D30031 
YYYYYYYYY YY 
999999999 99 

000RIGINAL.C80D30032 



EOT. RESTORE. 80D30033 
8 
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BTXT.AQD. 
9 Y90 
9 

BTXT.AQD. 
9 Y9Q 
9 0 

BTXT.AQ4. 
9 Y9 
9 

BTXT.AJU. 
9 Y88 
999 

BTXT.AJM. 
9 Y8Z 
99 

BTXT.AJD. 
9 Y8Q 
99 

BTXT.AJM. 
9 Y8 
99 

BTXT.AKO. 
9 Y88 
999 

BTXT.AKD. 
9 Y8Z 
99 

BTXT.AK4. 

9 Y88 
99 

BTXT.AKD. 

9 Y80 
99- 

BTXT.AKM. 
9 Y8Y 
999 

8TXT.ALU. 
9 Y89 
99 

BTXT.ALM. 
9 Y88 
99 

BTXT.ALD. 
9 Y8- 
99 

BTXT.ALD. 
9 Y8Y 
999 

BTXT.AMD. 

9 Y89 
99 



» A8. • AAWITH 
Y9 Y9 
9 9 

• A8. . AA8BEA 
Y9 Y9 ZY 
9 9 

» A8* .AAGA9A 
Y9 Y9ZY Y 
9 9 9 

» A8*. AAEA9B 
Y9 Y9ZY Q 
9 9 Z 

» A8« • AA7CE. 
Y9 Y9 Q- 
9 9 0 

•A8..AA1SAA 

Y9 Y9 9ZY 
9 9 9 

.A8..AA1SAA 
Y9 Y9 9ZY 
9 9 9 

■A8..AADY+A 
Y9 Y9Q Y 
9 9 Z 9 

» A8. • AA8AKA 
Y9 Y9 Q 8 
9 9 Z 9 

>A8..AA.AG0 

Y9 Y9 9Z 
9 9 

.A8..AAEJG- 
Y9 Y9QYZ 
9 9 Z9 

» A8. • AANH8A 
Y9 Y9 9 Q 
9 9 Z 

» A8. . AAAAAA 
Y9 Y9Q9ZQ 
9 9 9 

» A8. • AA8CGA 
Y9 Y9 8ZQ 
9 9 9 9 

> A8..AACBAA 
Y9 Y9Q-ZQ 
9 9 Z 9 

■A8..AACQ80 
Y9 Y9Q 8- 
9 9 Z 9 

.A8..AAG0C0 
Y9 Y9Z QY 
9 9 Z9 



. PROGRAM. F837AGA0AGG 
Y9Y9YQQ 
9 9 9ZZ 

6HAA7AAA8LAJ8JA+8GKA 
RZQ ZQ 8ZY 9Z 9 8 
0 9 9 9 9 

AAABG08KOA7G8CG09AOA 
ZQQ8Z Y Y 0 8Z Q Y 
ZZ9 9 9-9 99 

EA9BKA7G54KAAA7GNJGA 
ZY Q Y Q 8 8QY 098ZY 
Z 9 0 999-9 

7CGA90EA9DEA9BEA9BAD 
QZY 8ZY QZY QZY Q-9 
0 0 Z Z 

D0+A0HH00SEA2YKA7H1Q 
Q- Y ZZ+ ZQ 9 Y 0 0 
Z 9 0 9- 

DS+A0HH00SEA2YKA7D1M 
Q8 Y ZZ* ZQ 9 Y Q 8 
Z 9 0 9 0 9 

OHH0OSEA2YNA54EMGABW 
ZZ+ ZQ 9 9 8Q9ZYQ9 
0 Z Z 

7GAABAAAAD7GGABMBGAA 
OQY-YQY-9 QZYQ8-QQY 
-99 9Z9 0 Z ZZ9 

BFNFEJ 8WG-CBAD8JGACB 
QZ 9QY 9Z QR-9 8ZYQR 
Z Z9 Z 9 Z 

BFNA87EOG-BFB0DGEAG0 
QY 9 9Q9Z QY8-Z9Q8Z 
Z9 Z Z99 Z 

E0G-CHAG81GACHB0DAES 
Q9Z Q9-Q 8ZQQZ8-0QQ8 
Z Z Z 9 9Z 9 9Z9 

AAG0CMG0CWFA70BEABGF 
Q9Z Q9Z Q88Q +8QY99R 
Z Z9 -999 0 

C+AG8CG-CDB0DGEFG0D. 
Q — Q 8Z QR8-Z9Q-Z Q 
Z 0 9 Z09 Z Z 

AAAAAAG0CAAA8CFA708E 
Q9ZQQ9Z QY-Y 88Q +8Q 
9 Z 9 9 -99 

DGEMGOD.BODGENGOD.AA 
Z9Q0Z Q 8-Z9Q 1 Q ZQ 
1 19 Z^Z 9 

G0DHFA70BEABGFH6B0DG 
Z Q98Q +8QY99R988-Z9 
Z -999 0 99 



ED7AGA8QG0DBAC0DGA8F 
-0 RZY OZ QQ-9 9ZY 0 
ZO 

7GAANKG-9AAA7AA.7EB. 
0QY99Z QZQ Z Q- 
-99 9 Z Z 

7GAAKA7C7GEA9FEA9BEA 
OQY Y Q OZY YZY QZY 
-Z9 9 0 - Z 

B6AAABG08KNNGA9MEA9D 
Q9ZQQ8Z 99ZY 8ZY Q 
Z 999 0 

54GA94EG7CG-90G094KA 
8ZQ 9-Q QZ 8Z 9 Y 
9 Z 0 9 

KA7I1JG8KA547CKA5554 
Y0Y9 Y8QY88 
9 - 9 9 0 9 

KA7E1GKA7F1JG8KA54EM 
Y Q Q Y Q Y9 9 8Q9 
9 0 9 0 9 Z 

G8KB7D7CB0D174G09BAA 
9 9 0 R8-Z9 8Z QZQ 
- 9 Z 9 

BA.AAD7IGABUBG. ANKGA 
-Y Y-9 0ZYG8-Q Y99ZY 
9 9 - Z Z 9 

AG8VGAD6NH8AEJG-BAB0 
-Q 8ZQQ9 9 QQYZ QQ8- 
Z 9 9Z ZZ9 Z09 

D.NF8AE0G-BMNA87EJG- 
Q 9 QQ9Z QY 9 9QYZ 
Z ZZ Z9 Z9 

GOD. AA8AAJ88 AAACAGAA 
Z Q ZQ QZY 9ZQYR-QQY 
Z 9 Z 9 9 Z99 

H6B0DG82G0D. BODGFLGO 
988-Z9 8Z Q 8-Z9Q8Z 
99 9 ( Z 9 Z9 

AAE2A JE AAAANC+ AAD+CK 
ZQQ8ZYQZZQY8Z QYZ QO 
9Z9 9Z 9 99 Z 

ABGFH6B0DG82G0D. NFEO 
Y99R988-Z9 8Z Q 9Q9 
9 0 99 "f\ 9 Z Z 

8VIAJ8UAAA0AGAAGADDNK 
9ZY 8ZQYZ-QQYZYC899 
9 9 9, Z99 Z9 

82G0D. NFE J8WG-CSB0DG 
8Z Q 9QY 9Z Q 8-29 
9 Z Z9 Z 9 



BOAUD0A.ODGA8OD30034 
8-Y9Q - 9ZY 
9 Z 

7GADAHGA9BN480030035 
0-9Q9ZQ 899 
- Z 9 9 

9BKA7B54G09F80D30036 
Q Y Q 8Z 8 
Z 9 0 

G09ULQA— AB-80D30037 
Z 88ZZ 9Z 
99 

547GK05554BA80D3C038 

8 0 Y 8 8-Y 
- 9 9 

BA56KA5756BA80D30039 
-Y 8 0 8 8-Y 

9 9 

KB5554BA1S AA80D30040 
0 8 8-Y 9ZY 
9 9 

7AAJ8LAA8WA.80D30041 
ZY 8ZQ 9Z 
9 9 Z 

BBAAABAAA A A.80D30042 

Q0ZQQ8ZQQ9Z 

Z 999 ZZ 

AGEBGOD.NF8A80D30043 
Z9QZZ Q 9 Q 
Z Z Z 

BMB0DGE+G0D.80D30044 
QY8-Z9Q Z Q 
Z99 Z Z 

GAC2NKGACW AA80D30045 
ZQQ999ZYQ8ZQ 
9Z Z9 9 

D.AD8GGACDAG80D30046 

Q -9 8ZYQQ-Q 

Z 9 ZO Z , 

GAC0NKG-CFG080D30047 
ZQQ099Z Q-Z 
9Z Z 

8WG-DSAD8JGA80D3C048 
9Z Q9-9 8ZY 
Z 9 

GADKAAAAAAAA80D30049 
ZYQ9ZQQ9ZQQ9 
Z 99 

FEG0D.B0DGFM80D30050 

Q8Z Q 8-Z9Q9 

Z9 Z 9 Z n 
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BTXT.AM4..A8..AAG0D. 

9 Y88 Y9 Y9Z Q 
999 9 9 Z 



AJ0DGADKAA7AA J8LKA7G 
-Y 9ZYQOZQ ZY 8 8 0 
9 Z 9 9 9 9 - 



BTXT. AMD.. A8. • AAKA+A 
9 Y8R Y9 Y9 9 Y 
990 9 9 9 



AAN4GAD0A++CAAABG0DD 
QY99ZYQYZ 9ZQQ9Z QR 
Z9 Z ZZ ZO 



BTXT . AMM. . A8 • • AA6HAJ 
9 Y8Y Y9 Y9 R-Y 
99 9 9 0 9 



JLGADBF.7AK88V7GB0AT 
ZOZQQQ- R 9 8 R8-Y8 
9Z0 9 9 



BTXT .AMU . • A8 . . AAJ AAD 

9 Y8 Y9 Y9YYY0 
99 9 9 999 



FAN4JAAD2821. SCAN/14 
9Y98YYY0 
9 999 



BTXT. ANM..A8. .AAAAAA GGGGGGGGGGNO.ERRS.OE 
9 Y88 Y9 Y9YYYY QQQQQQQQQQ 
999 9 9 9999 ZZZZZZZZZZ 



BTXT. AND.. A8. 

9 Y8R Y9 
99 9 



.AA082E 
Y9 
9 



RR.083ERR.084ERR.085 



BTXT. AND. . A8. 
9 Y8Y Y9 
99 9 



•AA090E 
Y9 
9 



RR.091ERR.092ERR. 093 



BTXT. AND.. A8. 
9 Y8 Y9 
99 9 



.AA098E 
Y9 
9 



RR.099ERR.100ERR.101 



BTXT. AND.. AW, 
9 Y8Q Y9 
99Z 9 



•AA106E 
Y9 
9 



RR. 107ERR. 108ERR. 109 



BRLD.... 

9 



•AQ....AAAA 

Y9 Y9Y9 
9 9 9 



AAANAAMJAAMRAAMJHAMZ 
8YQ98Y8 8Y8 8Y8Z9Y8 
999 999 999 999 99 



BEND.. 
9 



• AA. . . . 

Y9 
9 



BLOT. 
9 



AABEAAGGE4AA54A.5AA+ 
QY8QY89098ZQ 8Z QZ 
999999 - Z 



5SB.5SKA5J5S80030051 
8- 8 Q Z 8 
Z 



BQAK5SNKGAD JAAABG0D+ 
8-Y8 899ZYQYZQQ8Z Q 
9 9 Z 999 Z 



BBA.ODGAD0EA80D3O052 
8Q- 9ZYQYZY 
99 Z 



8BB0AY8VB0AALAN4-AAA 
Z8-Y9 88 YYYY98 YY9 
9 9 9999 99 



CAN4JAA0EAN480D30053 
QY98YYY 9Y98 
Z9 999 9 



03.UCST.UCB.DATA.REG 
8 



.FLTAGAAAAAA80030054 
YQYYYYYY 
9Z999999 



TECTEDA. JAHDBAERR.08 
Y YQ9999 
99 



0ERR.081ERR.8003C055 



ERR.086ERR.087ERR.08 



8ERR.089ERR.80030056 



ERR.094ERR*095ERR«09 6ERR.097ERR.80030057 



ERR. 102ERR. 103ERR. 10 4ERR. 105ERR.80D30058 



ERR.110ERR»111. 



.80030059 



•80030060 



•80030061 



•80030062 



LAST PAGE 



DATE 
EC 



16JUN65 
124263 



15JUL65 15MAR66 15N0V66 
124265 125632 125655 



ID F80D-3 
PAGE 14A; 



o o o o o o 



OOOOOOOOQO 



